OpenOffice.info

Danke dir Funktioniert super

hallo tobiman26,

und wie sieht es da dann mit dem Makro aus? Wenn das bei jeder Änderung des Inhaltes sofort anspringen soll (ganz schöne Belastung für das Programm), dann muss es eben nicht an den Focusverlust, sondern an die Textänderung gekoppelt werden.

Gruß

Robert

Ja mit einem Button funktioniert es so weit war ich schon aber den Mitarbeiter für den ich das entwickel wünscht sich halt so eine Live Suche wo sich nach jedem Zeichen das ich in die Suchleiste eingeb das Ergebnis sich ändert

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

Hallo tobiman26,

ich weiß nicht, wie Du den Filter bestückst. Hast Du einen Button in "Kundendaten" liegen, so wird bei Betätigung des Buttons automatisch der Inhalt von "Filter" gespeichert.
Das ganze könnte, gebunden an den Fokusverlust eines Feldes, eventuell so aussehen:
[code]
SUB FilterZeigen(oEvent AS OBJECT)
oFeld = oEvent.Source.Model
oForm = oFeld.Parent
oSubForm = oForm.getByName("Kundendaten")
oFeld.commit
oForm.updateRow
oSubForm.reload()
END SUB
[/code]

Ansonsten schau Dir einmal zu den Makros die Kapitel im Handbuch an. Über den Makrorecorder wirst Du da nicht so recht fündig.

Gruß

Robert

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

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

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]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[/code] 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]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[/code]

So geht es leider nicht speichert zwar aber fragt trotzdem nochmal