Beim Öffnen des Formular geben Sie den folgenden Code ein:
Private Sub Form_Open(Cancel As Integer) 'Beim Öffnen
If Nz(lstAuswahl.ListCount) > 0 Then 'Wenn Liste vorhanden ist
Me!lstAuswahl = Me!lstAuswahl.ItemData(0) 'Name des Listenfeldes: lstAuswahl 0 zeigt erster Tabelleneintrag der Liste
Call lstAuswahl_AfterUpdate ' Rufe das Makro auf. Es wird dann der richtige Datensatz angezeigt
End If
End Sub
'Makro NachAktualisierung beim Listenfeld:
Private Sub lstAuswahl_AfterUpdate() 'Name des Makros
If Not IsNull(lstAuswahl) Then _ ' Nur wenn etwa ausgewählt ist
Me.Recordset.FindFirst "AdressNr=" & Me!lstAuswahl 'Suche den entsprechenden Datensatz
End Sub