Filter-Makro-Problem: Suchfeld ist Listenfeld

[gurkenhobel]

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

Code: Alles auswählen

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!!

[Karolus]

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