OpenOffice.info

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

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

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]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[/code]

Irgendwie muss ich das Feld anders auslesen.
Aber wie?

Grüße
Uli