VBA Suche im Formular

Sie wollen in einem Formular nach dem Nachnamen der Kontakte suchen. Der Kombinationsfeld- Assistent hilft hier nicht weiter, weil das Formular mehrere miteinander verknüpfte Tabellen enthält.

Setzen Sie in den Kopfbereich des Formulars ein Kombinationsfeld mit dem einzigen Tabellenfeld für den Nachname. Nennen Sie das Kombinationsfeld "Suche".

Schreiben Sie in das Ereignis "Nach Aktualisierung" folgendes:

Private Sub Suche_AfterUpdate()
' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "Ko_Nachname = " & "'" & Me!Suche & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Ko_Nachname wäre das Tabellenfeld für den Nachnamen- das muss evtl. angepasst werden.
Die durch & getrennten "'" sind notwendig, wenn nach Text gesucht wird.