Office: (Office 2019) Eine Schleife mit zwei tebellen vba Access

Hallo zusammen!
Es gibt’s zwei Tabellen und ich wollte aus zweiter Tabelle die Daten nach einem Kriterium (FLTR=0) an erste Tabelle übertragen (kopieren).
Geht aber nicht.
Hier ist mein Kode, Attachment - eine DB mit Muster.
Ich bitte um eine Hilfe!

Set DbDB = DBEngine.Workspaces(0).Databases(0)
Set AktRS = DbDB.OpenRecordset("ZT002")
Set AktZWS = DbDB.OpenRecordset("a_RHZ000")
AktID = 0
With AktZWS
.MoveFirst
Do While Not .EOF
AktRS.MoveFirst
Do While Not AktRS.EOF
If !FLTR = AktID And TimeValue(!drt) >= TimeValue("08:00:00") Then
AktWRT = !ZTS
MsgBox AktWRT & " ID " & !ID
End If
AktRS.Edit
AktRS!STP = AktWRT
AktRS.Update
AktRS.MoveNext
Loop
.MoveNext
Loop
.Close
AktRS.Close
End With

 

Hallo,
bevor Du Dir mit Halbwissen in VBA die Ohren brichst, schau Dir mal die verschieden Abfragetypen in Access an:
Anfügeabfrage, Aktualisierungsabfrage und Unionabfrage. Da brauchts kein VBA.

 

Das Problem ist dass es gibt' keine identische kriterium. brauche ich nur eine Schleife.Das kennst du in meinen Muster sehen.

 

Du pruefst auf 0, es gibt aber in der Tabelle auch Felder die LEER sind, was etwas anderes als die Zahl 0 ist.
Vielleicht hilft dir da die Funktion Nz() weiter, oder eine Abfrage auf IsNull.

 

danke für alle! Die Fehler habe ich gefunden.

 

....und was war der Fehler?

 

Das Problem liegt wie so oft im Kopf. die Kriterien ungenau beschrieben. Der Code selbst funktioniert wie eine Uhr. Aus der Schweiz