Private Sub lstKfz_DblClick(Cancel As Integer)
FormularDatensatzAuswählen Me, "Pkw_Id =" & Me!lstKfz
Me.RegisterKfz.Value = 0
End Sub

Function FormularDatensatzAuswählen(F As Form, Bedingung As String) As Integer
 
'Wechselt in dem unter F angegebenen Formular zu dem ersten Datensatz,
'der die Bedingung erfüllt.
'War der Wechsel erfolgreich, gibt die Funktion TRUE, andernfalls FALSE zurück.
 
On Error GoTo Err_FormularDatensatzAuswählen
 
Dim R As Recordset
 
    Set R = F.RecordsetClone
 
    If R.Bookmarkable = False Then FormularDatensatzAuswählen = False: Exit _
      Function
 
    F.Painting = False
 
    R.FindFirst Bedingung
 
    If R.NoMatch Then
        F.Requery
        Set R = F.RecordsetClone
        R.FindFirst Bedingung
        If Not R.NoMatch Then
            F.Bookmark = R.Bookmark
            FormularDatensatzAuswählen = True
        End If
    Else
        F.Bookmark = R.Bookmark
        FormularDatensatzAuswählen = True
    End If
 
    F.Painting = True
 
    Exit Function
 
Err_FormularDatensatzAuswählen:
 
    FormularDatensatzAuswählen = False
    F.Painting = True
    Exit Function
 
End Function