Makro für Suche bei Betätigung der Enter-Taste

[Oldie63]

Hallo zusammen
Ich habe ein Luxus-Problem.
Ich habe in angehängter LibreOffice Base DB ein Formular mit dem Namen "Belege suchen".
Wenn ich dort einen Suchbegriff in das dafür vorgesehene Textfeld eingebe, muss ich immer auf die Suchen-Schaltfläche klicken, damit die Suche gestartet wird.
Ich möchte aber die Suche bei Betätigung der Enter-Taste im Textfeld direkt auslösen.
Ich habe bereits einen Versuch mit dem Makro "Suche_starten" gemacht. Dieses hatte ich dem Ereignis "Taste gedrückt" zugeordnet.
Leider sind meine Kenntnisse zu schlecht. Habe wohl ein Problem mit der korrekten Felder-Bezeichnungen?
Kann mir da jemand helfen?
LG Oldie63

Belege_Richard.odb

(237.03 KiB) 249-mal heruntergeladen

[F3K Total]

Moin,
binde dieses kurze Makro an die Eigenschaft Text modifiziert des Suchfeldes.

TM.png (19.94 KiB) 5876 mal betrachtet

Code: Alles auswählen

Sub Suchen
    oF_FILTER = Thiscomponent.drawpage.forms.F_FILTER
    oSuchfeld = oF_FILTER.Suchfeld
    oSuchfeld.commit
    oF_FILTER.UpdateRow()
    oF_Anzeige = oF_FILTER.Anzeige
    oF_Anzeige.reload
end sub

Frohe Weihnachten!
R

[Oldie63]

Super. Herzlichen Dank.

Auch dir F3K Total frohe Weihnachten und einen guten Rutsch ins neue Jahr.

LG Oldie63