Live Suche

[tobiman26]

Hi Leute ich habe wieder mal eine Frage zu Makros in Basic
und Zwar habe ich Ein Formular "Kundenverwaltung"
Die MainForm heißt "Filter" und die SubForm "Kundendaten"
Auf dem Filter Formular gibt es 3 Textfelder "F_Firma" "F_Name" und "F_Telefon"
Aktuell läuft das so das ich ein Button habe der die Funktion Formular Aktualisieren hat nun möchte ich aber das per Makro so lösen das sich bei jeder Eingabe das Formular automatisch Aktualisiert.
Ich hab es so Versucht

Code: Alles auswählen

sub TabRefresh
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Refresh", "", 0, Array())
end sub

das Funktioniert schon das Problem OoBase fragt jedes mal wegen Datensatz speichern und das nervt kann man das irgentwie noch einbauen das er es automatisch macht und nicht immer frag?

Code: Alles auswählen

sub TabRefresh
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
ThisComponent.Parent.store()
dispatcher.executeDispatch(document, ".uno:Refresh", "", 0, Array())
end sub

So geht es leider nicht speichert zwar aber fragt trotzdem nochmal

[tobiman26]

Code: Alles auswählen

SUB FilterZeigen(oEvent AS OBJECT)
oFeld = oEvent.Source.Model
oForm = oFeld.Parent
oSubForm = oForm.getByName("Kundendaten")
oFeld.commit
oForm.updateRow
oSubForm.reload()
END SUB

GELÖST