Beitrag aus SmartTools Access Weekly
Such-Dialog von Access mit vorgegebenem Suchbegriff öffnen
Access 365 2024 2021 2019 2016 2013 2010
FRAGE In älteren Access-Versionen war es per SendKeys möglich, den Suchen-Dialog mit bestimmten Parametern zu initialisieren. Wir haben beispielsweise immer "??-*" genutzt, um standardmäßig Datensätze zu finden, bei denen der Feldinhalt mit zwei Zeichen gefolgt von einem Bindestrich beginnt. Das funktioniert in meiner aktuellen Access-Version nicht mehr. Haben Sie eine Idee, wie ich jetzt den Such-Dialog vorbelegen kann?
Diverse Anfragen
ANTWORT Ab Access 2007 soll "SendKeys" aus Sicherheitsgründen nicht mehr genutzt werden. Es steht aber nach wie vor als VBA-Anweisung zur Verfügung und kann auch verwendet werden, wenn man zum Beispiel beim Aufruf über eine Schaltfläche Suchen (btnSearch) einen zusätzlichen Parameter angibt:
Private Sub btnSearch_Click()
SendKeys "??-*", True
DoCmd.RunCommand acCmdFind
End Sub
Damit wird zunächst die Zeichenfolge "??-*" gesendet und über den zweiten Parameter "Wait" gesteuert, dass die weitere Ausführung erst erfolgt, wenn Access/Windows den Keycode verarbeitet hat. Öffnet man dann direkt danach den Suchen-Dialog, leitet Access/Windows die Keycodes an den Dialog weiter. Das funktioniert auch analog dazu beim Ersetzen:
Private Sub btnReplace_Click()
SendKeys "SuchenNach" & vbTab & "ErsetzenDurch", True
DoCmd.RunCommand acCmdReplace
End Sub