ListenFelder auslesen
Verfasst: Di, 17.11.2009 22:09
Hallo,
ich war früher ziemlich Fit in Access und versuche nun verzweifelt, mit OO Base und Basic klarzukommen.
Ich habe in einem Formular ein Listenfeld mit folgendem SQL als Inhalt:
Gebundenes Feld ist 1.
Das Feld "ID" ist der PK der Tabelle Besitzer. Das Datenfeld des Listenfelds ist das Feld "Besitzer" welches die ID als Fremdschlüssel enthält.
Jetzt möchte ich mit Basic auf die ID des in dem Listenfeld angezeigten Datensatzes zugreifen. Dazu habe ich mir folgendes Makro geschrieben(ok zusammenkopiert
)
Allerdings wird mir bei CurrentValue immer der CONCAT wert ausgegeben, welcher auch in dem Listenfeld angezeigt werden soll. Komme ich IRGENDWIE an die ID?
2. Frage: Gibt es eine Befehlsreferenz, bzw. Objektdoku in der steht, dass ein Formular die Methode getByName usw. bietet, oder "weiß" man das einfach?
DAnke im Voraus und grüße,
Tom
ich war früher ziemlich Fit in Access und versuche nun verzweifelt, mit OO Base und Basic klarzukommen.
Ich habe in einem Formular ein Listenfeld mit folgendem SQL als Inhalt:
Code: Alles auswählen
SELECT CONCAT( CONCAT( "Besitzer"."Nachname", ', ' ), "Besitzer"."Vorname" ) AS "Voller_name", "ID" AS "ID" FROM "Besitzer" AS "Besitzer"Das Feld "ID" ist der PK der Tabelle Besitzer. Das Datenfeld des Listenfelds ist das Feld "Besitzer" welches die ID als Fremdschlüssel enthält.
Jetzt möchte ich mit Basic auf die ID des in dem Listenfeld angezeigten Datensatzes zugreifen. Dazu habe ich mir folgendes Makro geschrieben(ok zusammenkopiert
)
Code: Alles auswählen
Sub showID
dim oDoc as Object
dim oForm as Object
dim oFeld as Object
oDoc = ThisComponent
oForm = oDoc.drawpage.forms.getByName("Patienten")
oFeld = oForm.getByName("lstBesitzer")
msgbox oFeld.CurrentValue
End Sub2. Frage: Gibt es eine Befehlsreferenz, bzw. Objektdoku in der steht, dass ein Formular die Methode getByName usw. bietet, oder "weiß" man das einfach?
DAnke im Voraus und grüße,
Tom