1 2 3 4 5 6 7 8 9 10 11 | With LST
For i = 0 To .ListCount - 1
If .Selected(i) Then
ReDim vnt(x)
vnt(x) = .ItemData(x)
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:
|