Office: While-Schleife wird nicht beendet

Hallo Forum
Ein aus einem Unterformular soll in ein Feld im Hauptformular übernommen (fix abgespeichert)
werden. Das Feld wurde nachträglich im Hauptformular (+ Tabelle) eingefügt.
Nun habe ich versucht, eine Sub zu schreiben, die die Werte in allen Datensätzen ( ca. 40.000) nachträglich einträgt. Dies funktioniert auch zum Teil, aber leider wird die while-Schleife nicht mit dem letzten Datensatz beendet! Kann mir wer helfen ??

Hier mein VBA-Code
Private Sub btn_Arbeitszeit_alle_Click() 'Summe Arbeitszeiten bei allen Datensätzen in Hauptformula "AuftragMail" neu eintragen
Dim Zaehler As Long
Dim ZW As Long
Dim Ende1 As Long
Zaehler = 1
ZW = 1000

Me.FilterOn = False
DoCmd.GoToRecord , , acLast
Ende1 = Me.Auftragnummer 'wird richtig eingetragen
'MsgBox Ende1
DoCmd.GoToRecord , , acFirst

While Zaehler < (Ende1 + 1)
'MsgBox Ende1 + 1 ' Stimmt auch
Me.txt_ZeitSum = Forms!AuftragMail![Arbeitszeit Unterformular]![Summe-Arbeitszeit]
Zaehler = Zaehler + 1
If Zaehler = ZW Then
MsgBox "(wieder) 1000 Datensätze erledigt"
ZW = ZW + 1000
End If
DoCmd.GoToRecord , , acNext
Wend
End Sub

PS: Die msgbox pro 1000 datenensätze habe ich, weil mein Bildschirm zwischendurch
immer einfriert (Sub läuft weiter) und beim anzeigen der msgbox wieder normal wird.
Danke
Gruß Joiner

 

Hallo Joiner,
mit welchem Datensatz wird denn beendet? Ist das immer der selbe? Werden denn vorm Ende alle Einträge fehlerfrei vorgenommen?
Füge doch mal statt der Msgboxen ein Debug.print ID ein, wenn es einen Primärschlüssel gibt. So kannst Du im Direktfenster mitverfolgen (Strg-G), wie Deine Sub arbeitet.
Gruß
Doming

 

Hallo,
die Vorgehensweise mit docmd... ist nicht wirklich vorteilhaft. Warum erledigst Du das nicht mit einer Aktualisierungsabfrage?
Wenn es dann doch unbedingt mit VBA gemacht werden soll, arbeite mit Recordsets und den Methoden .edit, .movefirst/next, .update etc. und prüfe dann auf .EOF (End of File) um Schleifen richtig zu beenden.