Inzwischen bin ich nun auch schon wieder auf meinem Stand:
bezüglich meines Formularbasierten Filter Makros bräuchte ich noch einen tipp
bislang habe ich zwei makros, eines für das aufrufen des filters und eines das den Filter ausführt:
Code: Alles auswählen
REM ***** BASIC *****
Sub Main
End Sub
sub Aufruf_Formfilter
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:FormFilter", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:FormFilterNavigator", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:FormFilterNavigator", "", 0, Array())
end sub
sub bestaetigen_Formfilter
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:FormFilterExecute", "", 0, Array())
end sub
Code: Alles auswählen
sub SuchenundAusführen
CASE "formfilteraktiv"=FALSE
Aufruf_Formfilter
ELSE
bestaetigen-Formfilter
EDIT: Nochwas merk ich gerade, die erstellten grafischen Schaltflächen führen die zugewiesenen Standardaktionen nich aus (Vor, Züruck, Neuer Datensatz...) die schalflächen auf denen das makro hinterlegt ist, hingegen machen was sie sollen?
Wie kommts?