Create "in memory" listbox

Question

All

I created a function which fills in a given listbox on a given form.  This works as expected

FillInListbox lstMyListbox, frmForm, rs

public sub FillInListbox(lst as ListBox, frm as Form, rs as RecordSet)
while not rs.bof and not rs.eof
frm(lst.name).Additem rs!Data
rs.movenext
wend
end sub

I am now in a situation where I need to fill in a "virtual listbox" so there is no real form nor a real listbox. So I want to assign the values to a listbox I create in the code.  Is this possible?

public sub FillInListbox(lst as ListBox, frm as Form, rs as RecordSet)
if lst = nothing then
…
else
while not rs.bof and not rs.eof
frm(lst.name).Additem rs!Data
rs.movenext
wend
end if
end sub

Answer 1

A list box doesn't exist in a vacuum. You'd have to open a form in design view. You can then use the Application.CreateControl method to create a list box on the form. Next, save the form and, if desired, open it in form view.

I would not recommend doing this in a 'production' database...

---

Regards, Hans Vogelaar (http://www.eileenslounge.com)

Answer 2

I am now in a situation where I need to fill in a "virtual listbox" so there is no real form nor a real listbox. So I want to assign the values to a listbox I create in the code.  Is this possible?

Hi kvhoof,

What do you want to do with this "virtual listbox"?

Imb.