Hallo Leute ,
ich habe ein Problem.Möchte ein Endlosformular erstellen.
Mein Problem ist. In der 1.Tabelle habe ich ein Datensatz, in der 2.Tabelle mehrere dazugehörige Datensätze. Jedoch möchte ich nur die Informationen aus der 2.Tabelle vom Letzten Datensatz Anzeigen.
In den Endlosformular soll der Datensatz aus der 1.Tabelle und den letzten dazugehörigen Informationen aus der 2.Tabelle.
Um das zu lösen habe ich folgendes geschrieben.
Set db = OpenDatabase()
temp2 = Form_frmHauptmenue.ESNS
strSQL = „SELECT * FROM tabelle1 WHERE tabelle1.Schlüssel = '“ & temp2 & „’ ;“
Set rec = db.OpenRecordset(strSQL, dbOpenDynaset)
Do While Not rec.EOF
Me!Schlüssel = rec.Fields(„Schlüssel“)
strSQL1 = „SELECT * FROM tabelle2 WHERE tabelle2.Schlüssel = " & temp1 & " ORDER BY tabelle2.Datum ;“
Set rec1 = db.OpenRecordset(strSQL1, dbOpenDynaset)
If Not rec1.EOF Then rec1.MoveLast
Me!Feld = rec1.Fields(„Feld 2.Tabelle“)
rec.MoveNext
Loop
Aber bei dem Endlosformular wird nur der letzte Datenatz angezeigt. Zwar mit den richtigen Daten, aber wie gesagt nur der letzte von 5.Datensätzen.
Vielleicht kann mir jemand einen Tipp geben. Ich komme einfach nicht weiter.