Vollständiges Code für eine Suchfunktion zum Weitersuchen in einem Access Formular
Nach eingabe eines Suchwortes im Textfeld txt_Suche werden Daten des gesuchten Wortes im Formular angezeigt.
Wie funktioniert nun das Weitersuchen?
Hierzu wird ein Button benötigt, dem folgendes Code als Klick-Ereignis hinterliegt wird:
'Kommentar: 'Sucht weiter im Feld Wertelistenname nach dem Suchbegriff, der im Feld txt_Suche angegeben wurde.
'Mithilfe der PreviousControl-Eigenschaft und des Screen-Objekts kann ein Verweis auf das Steuerelement zurückgegeben werden,
'das zuletzt den Fokus erhalten hat. In diesem Fall war das der Button btn_Suche →.
Private Sub btn_WSuchen_Click()
On Error GoTo Err_btn_WSuchen_Click
Me.FilterOn = False
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_btn_WSuchen_Click:
Exit Sub
Err_btn_WSuchen_Click:
MsgBox Err.Description
Resume Exit_btn_WSuchen_Click
End Sub
Suchfunktion →
Weitere Access-Tipps →
Weitere Office-Tipps →
Startseite →