sql - MS Access VBA内の複数の顧客IDのFor Eachループ

Question

何千ものレコードを保持する既存のテーブルがあります。顧客 ID とそれに関連付けられた日付フィールドに応じて、各レコードを更新する必要があります。

基本的に、日付の順序に応じて、各日付の横に順序番号を付けることができます。

これを行うには、2 つの「for each」ループを使用する必要があると思います。IE

For Each Customer ID in tblCustomers

'gather all records for that customer and get all dates in order from each record via recordset?

    For Each Date 
    newfield = newfield+ 1
    end loop

end loop

これを理解するために誰かが私を正しい方向に向けることができますか?

ありがとう

Answer 1

次のようなもの：

Dim rstCustomers As DAO.Recordset
Set rstCustomers = CurrentDb.OpenRecordset("SELECT CustomerID FROM tblCustomers GROUP BY CustomerID")
If rstCustomers.RecordCount > 0 Then
    rstCustomers.MoveFirst
    Do Until rstCustomers.EOF
        Dim rstRecords As DAO.Recordset
        Set rstRecords = CurrentDb.OpenRecordset("SELECT RecordDate, OrderField FROM tblRecords WHERE CustomerID = " & rstCustomers!CustomerID & " ORDER BY RecordDate")
        If rstRecords.RecordCount > 0 Then
            Dim iCount as Integer
            iCount = 1
            rstRecords.MoveFirst
            Do Until rstRecords.EOF
                rstRecords.Edit
                   rstRecords!OrderField = iCount
                rstRecords.Update

                iCount = iCount + 1
                rstRecords.MoveNext
            Loop
        End If
        rstRecords.Close
        Set rstRecords = Nothing

        rstCustomers.MoveNext
    Loop
End If
rstCustomers.Close
Set rstCustomers = Nothing

Answer 2

Recordsetを使用してレコードをループする