OpenOffice.info

Verfasst: **Sa, 09.11.2013 14:43**

Hallo Forum,
ich habe mir aus einem anderen Forums-Beitrag ein Makro "geklaut":

Sub FilterAn ' Filter für Name anschalten
    Dim sFilter
    Dim oForm As Object
    oForm = ThisComponent.DrawPage.Forms.getByName("MainForm")
    sFilter = oForm.getByName("txtSuche").text
    oForm.Filter = "Priorität= '" + sFilter +"'" ' Name ist ein Feld in Deiner Tabelle des aktuellen Formulars
    oForm.reload ' Formular aktualisieren
    End Sub

Das Funktioniert auch soweit. Allerdings ist das Suchfeld hier ein einfaches Textfeld. Ich würde dagegen gerne ein Listenfeld mit definierten Suchbegriffen als Suchfeld einsetzen. Im Moment steigt dabei aber das Makro an folgender Stelle mit einem Laufzeitfehler aus:

Code: Alles auswählen

sFilter = oForm.getByName("txtSuche").text

Weiß jemand Rat, wie das Skript zu verändern ist, dass es durchläuft?

Danke und liebe Grüße!!

Verfasst: **Sa, 09.11.2013 14:53**

Hallo

Weiß jemand Rat, wie das Skript zu verändern ist, dass es durchläuft?

Man installiert sich mri

und untersucht das mal mit

Code: Alles auswählen

....
mri( oForm.getByName("txtSuche"))
...

Karolus

OpenOffice.info

Filter-Makro-Problem: Suchfeld ist Listenfeld

Filter-Makro-Problem: Suchfeld ist Listenfeld

Re: Filter-Makro-Problem: Suchfeld ist Listenfeld