Unbound Listbox (for each row problem, un- and checked items)

[vinzz]

hello,

I'm trying to make a function that gets every itemdata in a listbox (checked and unchecked) to make word docs. I fill up the listbox (6columns) with data from other textboxes (ex columns: Type,dotplace,name,adress,state,...). The data in this listbox gets deleted after each document had maded or when the form closes (temp data)

know i know how to get selected items in a for each parameter (For Each varItem In Me.multiafdruk.ItemsSelected) but how can i say to get every row (checked or unchecked) print the word doc one for one and close the form.

this code i have already (tried):
For Each Row In Me.multiafdruk
....

[COLOR=RoyalBlue]For Each varItem In Me.multiafdruk.ItemData[/COLOR]
    If Len(Dir(Gsavedir & notnumsave & "." & Me.multiafdruk.Column(1, varItem) & ".doc", vbDirectory)) <> 0 Then
   
startover:
        If Len(Dir(Gsavedir & notnumsave & "." & Me.multiafdruk.Column(1, varItem) & docnummer & ".doc", vbDirectory)) <> 0 Then
            docnummer = Format(docnummer + 1, "0000")
            GoTo startover: End If
        Call WordOpenen(Me.multiafdruk.Column(3, varItem), notnumsave & "." & Me.multiafdruk.Column(1, varItem) & docnummer & ".doc", Me.multiafdruk.Column(2, varItem))
    Else
        Call WordOpenen(Me.multiafdruk.Column(3, varItem), notnumsave & "." & Me.multiafdruk.Column(1, varItem) & ".doc", Me.multiafdruk.Column(2, varItem))
    End If
[COLOR=RoyalBlue]Next varItem[/COLOR]

i tried a lot of syntaxes but everything fails to run :s

Someone that knows the right syntax or has a good code for this

 

[pbaldy]

Try this:

  Dim ctl           As Control
  Dim i             As Integer

  Set ctl = Me.ListBoxName

  For i = 0 To ctl.ListCount - 1
    Debug.Print ctl.ItemData(i)
  Next i

 

[vinzz]

i'll give it a try, thx