Strange Error

[Guest]

What do I make of the error, when Access doesn't appear to recognize the
".additem"? Do I use ItemSelected somehow?

 

[Alex Dybenko]

Hi,
perhaps you post code, which cause this error

 

[Guest]

It's as simple as this:

Dim V As Variant
Dim I As Integer
Dim Fname As String
Dim F

V = GetFiles

If Not IsEmpty(V) Then
For I = 0 To UBound(V)
Fname = StrReverse(Split(StrReverse(V(I)), "\", 2)(0))

LstXlsFiles.AddItem Item:=Fname
Next I

End If

It works on my machine as is always the case, and bombs on others. Thanks.

 

[Alex Dybenko]

Hi,
and what error do you get?

Do you have same access version on both PCs?

 

[Guest]

Yes, I have 2002, meaning versions 2000 and earlier do not have additem and
cannot read this. I have read that there is no workaround this. If I cannot
use the additem, how am I to get data into the listboxes?

 

[Alex Dybenko]

Hi,
you can use this code:
http://alexdyb.blogspot.com/2005/11/additem-and-removeitem-for-listboxes.html

for me it works fine in any access version