✔ Aus Access Listenfeld in VBA Array schreiben

[Orphelina]

Hallo,

habs mit dem VBa noch nicht so raus und habe folgendes Problem:
Ich habe in Access 2003 ein Formular und darin ein Listenfeld in dem der User mehrere Zeilen markieren kann. Diese Zeilen will ich in ein Array speichern um die Werte in ein SQL Select zu packen bzw. sie auszulesen.
Aber ich hab keine Idee wie ich das anstelle.
Hat mir jemand nen Tipp?
Wird das Array so angelegt: Dim aVariable AS Variant?


mfg Orphelina

 

[wincnc]

Hallo, versuch´s mal so:

Dim aVariable() As String
Dim N As Long
Dim Zähler As Long

For N = 0 To Liste1.ListCount - 1

 If Liste1.Selected(N) = True Then
  Zähler = Zähler + 1
   ReDim Preserve aVariable(Zähler)
  aVariable(Zähler - 1) = Liste1.ItemData(N)
 End If

Next

For N = 0 To UBound(aVariable) - 1
 MsgBox aVariable(N)
Next

 

[Orphelina]

Danke für die Antwort!

Ich habe es jetzt so gelöst:

Dim vrtSelectedItem As Variant
For Each vrtSelectedItem In MeinListenFeld.ItemsSelected

'vrtSelectedItem is a String that contains the path of each selected item.
'You can use any file I/O functions that you want to work with this path.
'This example simply displays the path in a message box.
moduleID = MeinListenFeld.ItemData(vrtSelectedItem)