Button für die Suche in Tabelle [gelöst]

[maibaum]

Hallo,

in einem vorhanden Formular würde ich gerne einen zusätzlichen Button einbinden. Dieser soll nach Aktivierung die Suchmaske öffnen, so dass der Benutzer einen Namen eingeben kann nach diesem beim bestätigen in der Tabelle gesucht wird.

Wer kann mir helfen??

Grüße
Maik

[F3K Total]

Hallo, das geht auch mit einem Makro.
Zunächst erzeugst Du im Entwurfsmodus des Formulares eine "Schaltfläche", gehst mit der rechten Maus auf ebendiese und klickst "Kontrollfeld" an.
- Reiter Allgemein, Titel anpassen-> z.B. "Datensatz suchen"
- Reiter Ereignisse/"Aktion ausführen"-> folgendes Makro zuordnen:

Code: Alles auswählen

sub Search
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:RecSearch", "", 0, Array())

end sub

Viel Erfolg,
Gruß R

[komma4]

so dass der Benutzer einen Namen eingeben kann nach diesem beim bestätigen in der Tabelle gesucht wird

Warum nimmst Du nicht die eingebaute Filter-Funktion der Navigationsleiste?

[maibaum]

Hallo,

zunächstmal danke für die schnelle Hilfe. Hab das so wie von Dir beschrieben eingebaut. Dann erhalte ich jedoch beim Klick auf die Schaltfläche folgende Fehlermeldung:


Grüße
Maik

Hallo, das geht auch mit einem Makro.
Zunächst erzeugst Du im Entwurfsmodus des Formulares eine "Schaltfläche", gehst mit der rechten Maus auf ebendiese und klickst "Kontrollfeld" an.
- Reiter Allgemein, Titel anpassen-> z.B. "Datensatz suchen"
- Reiter Ereignisse/"Aktion ausführen"-> folgendes Makro zuordnen:

Code: Alles auswählen

sub Search
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:RecSearch", "", 0, Array())

end sub

Viel Erfolg,
Gruß R

[F3K Total]

Hi,
die Fehlermeldung besagt, dass das Makro "Suche" nicht gefunden wurde. Meins heisst "search".
Gruß R

[maibaum]

Hi,

super, jetzt klappts... besten Dank !!!!!

Grüße
Maik