replacing a field name with a variable name

[LisaB]

I want to pass the name of a list box on my form to a function. How do I
make the following work using the variable name??
------------
Public Sub MatchAll (listName as string)
Dim Selection as Variant
Dim Item as string
Dim txtListName as string

txtListName = "lst" + listName
....

For each selection in txtListName.ItemsSelected
Item = txtListName.ItemData(Selection)
....
---------------

 

[George Nicholson]

If this procedure is on the same form as you are calling it from:

Me.Controls(txtListName).ItemsSelected

If not (and maybe even if it is), then I suggest you change the procedure
argument to listbox (which will also change how you call it as well):

Public Sub MatchAll (lbo as Listbox)
.......
For each selection in lbo.ItemsSelected

HTH,

 

[LisaB]

Thank You

If this procedure is on the same form as you are calling it from:

Me.Controls(txtListName).ItemsSelected

If not (and maybe even if it is), then I suggest you change the procedure
argument to listbox (which will also change how you call it as well):

Public Sub MatchAll (lbo as Listbox)
......
For each selection in lbo.ItemsSelected

HTH,