Hallo Leute,
Ich habe zwei miteinander verknüpfte Tabellen. Die Tabelle1, meine Haupttabelle und die Tabelle2, meine Nebentabelle, sind mit einer 1:n Beziehung miteinander verbunden.
Da nicht jeder Datensatz in meiner Haupttabelle (Tabelle1)einen dazugehörigen Satz in der Nebentabelle (Tabelle2) hat, möchte ich in der Haupttabelle einen Hinweis auf einen evtl. vorhandenen, Eintrag in der Nebentabelle geben. Ich habe dazu eine Spalte „Swap“ (Wahr/Falsch) in der Haupttabelle eingerichtet und lasse das folgende Modul darüberlaufen.
Public Sub Zugriff2()
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset(„Tabelle1“, dbOpenDynaset) 'Haupttabelle
Set rm = db.OpenRecordset(„Tabelle2“, dbOpenDynaset) 'Nebentabelle
Do Until rs.EOF
rs.Edit
If rm![Nennwert] > „“ Then
rs![Swap] = True
Else
rs![Swap] = False
End If
rs.Update
Debug.Print rs![Swap]
rs.MoveNext
rm.MoveNext
Loop
rs.Close
rm.Close
Set rs = Nothing
Set rm = Nothing
End Sub
Leider durchläuft diese Schleife die Nebentabelle einfach bis zu deren letztem Datensatz und hört dann auf.
Kann mir jemand helfen, wie ich das anders hinbekomme ?
Gruß Christian