In meiner Datenbank "Termine" ist die Art des Inhalts: SQL-Befehl.
In dem Feld Filter habe ich folgenden Inhalt: ( "tblTermine"."Beginn" >= CURRENT_DATE )
Soweit alles in Ordnung. Nun möchte ich jedoch dieses Feld per Makro z.B. über ein Listenfeld verändern.
Ist dies generell Möglich? Wenn ja, bräuchte ich hierzu einen Lösungsansatz.
Vorab vielen Dank für Eure Bemühungen
Gruß Werner
🙏 Helfen Sie jetzt mit, unser LibreOffice Forum zu erhalten! 🙏
Mit Ihrer Spende sichern Sie den Fortbestand, den Ausbau und die laufenden Kosten dieses Forums. 🌱
🍀 Jeder Beitrag zählt – vielen Dank für Ihre Unterstützung!🍀
>> Dank Ihrer Unterstützung -> Keine Werbung für alle registrierten LibreOffice-Forum User! <<
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗
Formulareigenschaften Filter per Makro beschreiben
Re: Formulareigenschaften Filter per Makro beschreiben
Aus dem Base-Handbuch:
undCode: Alles auswählen
SUB FilterSetzen DIM oDoc AS OBJECT DIM oForm AS OBJECT DIM oFeld AS OBJECT DIM stFilter As String oForm = thisComponent.Drawpage.Forms.getByName("MainForm") oFeld = oForm.getByName("Filter") stFilter = oFeld.Text oForm.filter = " UPPER(""Name"") LIKE '%'||'" + UCase(stFilter) + "'||'%'" oForm.ApplyFilter = TRUE oForm.reload() End Sub
Code: Alles auswählen
SUB FilterEntfernen DIM oForm AS OBJECT oForm = thisComponent.Drawpage.Forms.getByName("MainForm") oForm.ApplyFilter = False oForm.reload() END SUB
https://de.libreoffice.org/get-help/documentation/
https://www.familiegrosskopf.de/robert/index.php?&Inhalt=base_handbuch
https://www.familiegrosskopf.de/robert/index.php?&Inhalt=xml_formulare
https://www.familiegrosskopf.de/robert/index.php?&Inhalt=base_handbuch
https://www.familiegrosskopf.de/robert/index.php?&Inhalt=xml_formulare
Re: Formulareigenschaften Filter per Makro beschreiben
Hallo Robert,
besten Dank für die Hilfe. Leider habe ich eine Fehlermeldung, die ich nicht beheben kann:
oForm = thisComponent.Drawpage.Forms.getByName("MainForm")
MsgBox oForm.filter REM zeigt den Inhalt des Feldes Filter „("tblTermine"."Beginn" >= CURRENT_DATE )“
oFeld = oForm.getByName("Filter")
und hier nun die Fehlermeldung:
BASIC-Laufzeitfehler.
Es ist eine Ausnahme aufgetreten
Type: com.sun.star.container.NoSuchElementException
Message: .
Vielen Dank im Voraus
Werner
besten Dank für die Hilfe. Leider habe ich eine Fehlermeldung, die ich nicht beheben kann:
oForm = thisComponent.Drawpage.Forms.getByName("MainForm")
MsgBox oForm.filter REM zeigt den Inhalt des Feldes Filter „("tblTermine"."Beginn" >= CURRENT_DATE )“
oFeld = oForm.getByName("Filter")
und hier nun die Fehlermeldung:
BASIC-Laufzeitfehler.
Es ist eine Ausnahme aufgetreten
Type: com.sun.star.container.NoSuchElementException
Message: .
Vielen Dank im Voraus
Werner
Re: Formulareigenschaften Filter per Makro beschreiben
Warum schaust Du nicht im Handbuch weiter?
ist in dem besonderen Makro aus dem Handbuch ein Feld in dem Formular, das "MainForm" heißt. Irgendwoher muss ja die Information kommen, mit der Du das Ganze änderst.
Das wäre bei Dir dann das Listenfeld und die Zuweisung wäre vermutlich auch anders, weil in dem Beispiel ja nach beliebigen Textstücken in dem Feld "Name" gesucht wird.
Code: Alles auswählen
oFeld = oForm.getByName("Filter")
Das wäre bei Dir dann das Listenfeld und die Zuweisung wäre vermutlich auch anders, weil in dem Beispiel ja nach beliebigen Textstücken in dem Feld "Name" gesucht wird.
https://de.libreoffice.org/get-help/documentation/
https://www.familiegrosskopf.de/robert/index.php?&Inhalt=base_handbuch
https://www.familiegrosskopf.de/robert/index.php?&Inhalt=xml_formulare
https://www.familiegrosskopf.de/robert/index.php?&Inhalt=base_handbuch
https://www.familiegrosskopf.de/robert/index.php?&Inhalt=xml_formulare
An alle, die das LibreOffice-Forum gern nutzen und unterstützen wollen:
Bitte helfen Sie uns mit 7 Euro pro Monat.
Durch Ihren Beitrag tragen Sie dazu bei, unsere laufenden Kosten für die kommenden Monate zu decken.
Unkompliziert per Kreditkarte oder PayPal.
Als ein kleines Dankeschön werden Sie im LO-Forum als SUPPORTER gekennzeichnet.