Filter-Makro-Problem: Suchfeld ist Listenfeld

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Filter-Makro-Problem: Suchfeld ist Listenfeld

Re: Filter-Makro-Problem: Suchfeld ist Listenfeld

von Karolus » 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

Filter-Makro-Problem: Suchfeld ist Listenfeld

von gurkenhobel » Sa, 09.11.2013 14:43

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

Nach oben