Adding menu items on the fly using VBA

Topic

New Reply

I have several forms opened at one time (from 1-15)
I can get a list of opened forms no problem but I want to list them as menu items that can be selected.
Currently I create a table of opened forms then diplay them on a form that allows a selected form to become the active form when double clicked.
In the 5 books I have beside me I have found no reference to how or if I can change the menu on the fly.

Reply | Quote

Replies

Check your reference books again for using a Callback Function to fill a listbox. It is rather complicated, and I really don’t understand how it works (I can use it only by copying an existing function and making changes). Good luck!

Reply | Quote

Hi Mark,
Why couldn’t you just use code sorta’ like the test code I put in my reply to Bawn?
Gwenda

Reply | Quote

The .AddItem method is not available in all versions of Access, and I’m not sure if there are limits to how many rows can be added this way. That is, if the rowsource is a value list, then there is a limit of something like 2000 characters; which may or may not be a problem in certain circumstances.

Also, the .ListIndex property is read-only.

Reply | Quote

I haven’t tried using the .AddItem method on a commandbar combobox, but I suspect it may work there because the commandbars are actually Office objects rather than Access objects. Access comboboxes, of course, don’t have an AddItem method at all.

Reply | Quote

Didn’t I see where .AddItem is now available for combo/listboxes in Access2002?

Reply | Quote

I thought you were talking about 2000? I believe you can use the MSForms comboboxes in AXP, but I’ll have to check at work and see if it’s there in regular Access combo and listboxes.

Reply | Quote

Hi Bawn,
In online help is code to populate a CommandBarCombox Object which I pasted below. Then couldn’t you cycle through the collection of open forms and populate the combobox with their names?

Set combo = CommandBars(“Custom”).Controls(2)
With combo
.AddItem “First Item”, 1
.AddItem “Second Item”, 2
.DropDownLines = 3
.DropDownWidth = 75
.ListIndex = 0
End With

Gwenda

Reply | Quote

Hi Bawn … I fooled around with this a bit and am able to create a custom toolbar and populate with names of open forms:

Sub test()
Dim menubar As CommandBar
Dim newcombo As CommandBarComboBox
Dim frm As Form

Set menubar = CommandBars.Add _
(Name:=”Custom2″, Position:=msoBarFloating, menubar:=True)
With menubar
.Protection = msoBarNoMove
.Visible = True
End With

Set newcombo = CommandBars(“Custom2”).Controls _
.Add(Type:=msoControlComboBox)
For Each frm In Forms
With newcombo
.AddItem frm.Name
.OnAction = “switch to form” ‘would have to call a function here to switch to the form you want
End With
Next frm
End Sub

Reply | Quote