Filter mit Kombinationsfeld

[ulihueck]

Hallo.
Ich möchte in meinem Formular einen Filter einfügen, der über ein Kombinationsfeld gesteuert wird.
Das Kombinationsfeld wird mit einer SQl gefüllt.
Leider kann ich aber den ausgewählten Wert des Kombinationsfeldes nicht auslesen.
Es wird folgender Fehler angezeigt: "Eigenschaft oder Methode nicht gefunden: text"
Ich verwende folgenden Code:

Code: Alles auswählen

Sub FilterSetzen
dim , oForm, oDoc,  oFeld as Object
Dim MitgliedsID as String
GlobalScope.BasicLibraries.LoadLibrary("Tools")
DialogLibraries.LoadLibrary("Standard")
oDatabaseContext=CreateUnoService("com.sun.star.sdb.DatabaseContext")
oDataSource=oDatabaseContext.getbyName("Organisation")
oConnection=oDataSource.getConnection("", "")
oDoc = ThisComponent
   	oForm = oDoc.drawpage.forms("Mitglieds-Info")
	oFeld = oForm.getByName("MitgliedsID")
	MitgliedsID = oFeld.text

Irgendwie muss ich das Feld anders auslesen.
Aber wie?

Grüße
Uli

[F3K Total]

Hallo Uli,
ich denke Du hast da vielleicht ein Listenfeld, hier ginge ".CurrentValue" statt ".Text"
".Text" konnte ich mit Xray tatsächlich nur bei einem Kombinationsfeld, aber eben nicht bei einem Listenfeld finden.

Gruß R