ich habe ein Listenfeld, das ich ListBox_Auswahl genannt habe,
da ich hier auf einen beliebigen Datensatz per Mauszeiger zugreifen möchte.
Wenn ich bei meinem Konstrukt eine Listenfeldzeile auswähle erscheint bei mir
die Meldung;
Unzulässiger Wert oder Datentyp.
Index außerhalb des definierten Bereichs.
Ich habe das Forum schon durchsucht und wahrscheinlich nicht die richtige Frage gestellt.
Somit habe ich meine Anfrage ans Forum gestellt.
Hier noch mein Quellcode zur Listenfeld (ListBox_Auswahl)
Code: Alles auswählen
Sub Listbox_lesen
dim oDoc as object
dim odrawpage as object
Dim oform as object
dim oList as Object
dim auswahlListe()
dim auswahlSelektion
dim auswahlstring as String
dim auswahlsatz as Integer
dim aform as String
dim aMedID as String
oDoc = thisComponent 'das Dokument
odrawpage = oDoc.Drawpage 'Zeichenfläche des Formulars einer Datenbank
oForm = odrawpage.Forms.getByName("Formular_Start") 'Das Formular selbst
oList = oForm.getByName("ListBox_Auswahl") 'Das Kontrollelement
auswahlListe = oList.stringItemList
auswahlSelektion = oList.SelectedItems
auswahlstring = auswahlListe(auswahlSelektion(0))
msgbox auswahlstring
aMedID = rTrim(right(auswahlstring,10))
aform = oForm.getName("ListBox_Auswahl")
msgbox aMedID
formulardatensatz_suchen(aForm,aMedID)
end Sub
Mit freundlichem Gruß
Werner