News & Tipps zu Microsoft Access

Lesen Sie hier einige der besten Beiträge aus SmartTools Access Weekly sowie ausgewählte Inhalte anderer E-Mail-Newsletter von SmartTools Publishing rund um Microsoft Access.

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