For-Each-Schleife für mehrere Kunden-id ' s in MS-Access VBA

Ich habe eine bestehende Tabelle, die Platz für 1000 Datensätze. Ich muss jeden Datensatz aktualisieren, je nach der Kunden-id und ein Datum-Feld zugeordnet.

Grundsätzlich so ist, ich kann eine geordnete Reihe neben dem jeweiligen Datum abhängig von der Reihenfolge der Termine.

Ich glaube, ich brauche zu verwenden, zwei "for each" - Schleifen, um dies getan. I. E.

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

Kann jemand mich in die richtige Richtung, um dies herauszufinden?

Dank

  • Welche Art von update sind Sie dabei? also warum tun, müssen Sie ein recordset mit einer update-Abfrage? Sind alle diese Datensätze aktualisiert gleichmäßig?
InformationsquelleAutor Anton Hughes | 2013-03-11
  1. 3

    Etwas wie die folgenden:

    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
    • Toll, durch diese gehen jetzt, wenn Sie erwähnt rstRecords.Edit, meinst du rstRecords.EditMode?
    • Nein, .Edit sollte der aktuelle Datensatz im recordset in 'Bearbeiten-Modus", so dass Sie die Werte ändern. Dann die .Update line-updates den aktuellen Datensatz in der Tabelle
    • Ok, everty mal, wenn ich den code ausführen, es wirft einen Fehler, nämlich "Kompilieren Fehler: Methode oder Datenelement nicht gefunden" und markiert den code rstRecords.Edit. Wissen Sie, was dies bedeuten könnte?
    • Stellen Sie sicher, dass es mit DAO, durch ändern der Zeilen Dim rst... As Recordset zu Dim rst... As DAO.Recordset um zu sehen, ob das hilft?
    • Ich fügte hinzu, im Fett, in der rstRecords SQL 'SELECT RecordDate, OrderField', etc Scheint zu funktionieren jetzt! unwirklich! Dank einer million!
    • Sorry, ja, ich vergaß zu gehören, das Feld. Die Feldnamen wurden wirklich nur um Ihnen eine Idee geben, aber froh, Sie haben es sortiert.

    InformationsquelleAutor RichardC
  2. 1

    Schleife Datensätze mit Recordset

    InformationsquelleAutor Andrey Gordeev
Schreibe einen Kommentar