With LST
For i = 0 To .ListCount - 1
If .Selected(i) Then
ReDim vnt(x)
'vnt(x) = .List(x) ' in Acc nicht verfügbar
vnt(x) = .ItemData(x) ' so richtig ?
MsgBox vnt(x)
x = x + 1
End If
Next
End With
» Habe ich soweit gemacht und Code hoffentlich richtig angepasst, da ich Acc 2016 verwende. «
Hat Dein Code approximativ verraten.
» Die MSGBOX zeigt mit korrekt die ausgewählten Einträge an «
Gut. Das bedeutet dem Array werden die gewünschten Daten zugewiesen.
» Die MSGBOX zeigt mit korrekt die ausgewählten Einträge an. Im Direktfenster von Acc sehe ich jedoch zunächst nichts.«
Die Klasse-MsgBox wird in dem gezeigten Code verwandt; der Direktbereich nicht.
» Muss also einen Weg finden, die diversen Variablen Funtionen zuzuordnen, denn nur die sind m.W. abfragbar.«
Wertzuweisung hast Du hiermit:
vnt(x) = .ItemData(x)
|