Private Sub Kombinationsfeld_AfterUpdate() 
'Den mit dem Steuerelement übereinstimmenden Datensatz suchen. 
 
Dim rs As Object 
 
On Error GoTo ErrorHandle
 
Set rs = Me.Recordset.Clone 
rs.FindFirst "[ID] = " & Str(Me![Kombinationsfeld]) 
Me.Bookmark = rs.Bookmark 
 
Exit Sub
ErrorHandle:
 
End Sub