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.
![]() |
Patch reliability is unclear. Unless you have an immediate, pressing need to install a specific patch, don't do it. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |
-
Adding menu items on the fly using VBA
Home » Forums » AskWoody support » Productivity software by function » MS Access and database help » Adding menu items on the fly using VBA
- This topic has 8 replies, 4 voices, and was last updated 22 years, 11 months ago.
AuthorTopicWSbawn
AskWoody LoungerJuly 5, 2002 at 5:24 pm #373255Viewing 2 reply threadsAuthorReplies-
WSMarkLiquorman
AskWoody Lounger -
WSgellwood
AskWoody Lounger -
WSMarkLiquorman
AskWoody LoungerJuly 8, 2002 at 11:33 pm #599835The .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.
-
WScharlotte
AskWoody Lounger -
WSMarkLiquorman
AskWoody Lounger -
WScharlotte
AskWoody Lounger
-
-
-
-
WSgellwood
AskWoody LoungerJuly 6, 2002 at 4:20 am #599315Hi 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 WithGwenda
WSgellwood
AskWoody LoungerJuly 8, 2002 at 5:49 pm #599769Hi 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 FormSet menubar = CommandBars.Add _
(Name:=”Custom2″, Position:=msoBarFloating, menubar:=True)
With menubar
.Protection = msoBarNoMove
.Visible = True
End WithSet 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 SubViewing 2 reply threads -

Plus Membership
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Get Plus!
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Search Newsletters
Search Forums
View the Forum
Search for Topics
Recent Topics
-
Suggestions for New All in One Printer and a Photo Printer Windows 10
by
Win7and10
50 minutes ago -
Purchasing New Printer. Uninstall old Printer Software First?
by
Win7and10
54 minutes ago -
KB5060842 Issue (Minor)
by
AC641
4 hours, 12 minutes ago -
EchoLeak : Zero Click M365 Copilot leak sensitive information
by
Alex5723
6 hours, 44 minutes ago -
24H2 may not be offered June updates
by
Susan Bradley
1 hour, 12 minutes ago -
Acronis : Tracking Chaos RAT’s evolution (Windows, Linux)
by
Alex5723
19 hours, 18 minutes ago -
Turning off OneDrive
by
CWBillow
23 hours, 47 minutes ago -
June 2025 updates are out
by
Susan Bradley
2 hours, 38 minutes ago -
Mozilla shutting Deep Fake Detector
by
Alex5723
1 day, 10 hours ago -
Windows-Maintenance-Tool (.bat)
by
Alex5723
19 hours, 26 minutes ago -
Windows 11 Insider Preview build 26200.5641 released to DEV
by
joep517
1 day, 12 hours ago -
Windows 11 Insider Preview build 26120.4250 (24H2) released to BETA
by
joep517
1 day, 12 hours ago -
Install Office 365 Outlook classic on new Win11 machine
by
WSrcull999
1 day, 12 hours ago -
win 10 to win 11 with cpu/mb replacement
by
aquatarkus
1 day, 4 hours ago -
re-install Windows Security
by
CWBillow
1 day, 15 hours ago -
WWDC 2025 Recap: All of Apple’s NEW Features in 10 Minutes!
by
Alex5723
1 day, 19 hours ago -
macOS Tahoe 26
by
Alex5723
1 day, 13 hours ago -
Migrating from win10 to win11, instructions coming?
by
astro46
55 minutes ago -
Device Eligibility for Apple 2026 Operating Systems due this Fall
by
PKCano
1 day, 4 hours ago -
Recommended watching : Mountainhead movie
by
Alex5723
1 day, 5 hours ago -
End of support for Windows 10
by
Old enough to know better
12 hours, 35 minutes ago -
What goes on inside an LLM
by
Michael Covington
23 hours, 13 minutes ago -
The risk of remote access
by
Susan Bradley
6 hours, 26 minutes ago -
The cruelest month for many Office users
by
Peter Deegan
7 hours, 4 minutes ago -
Tracking protection and trade-offs in Edge
by
Mary Branscombe
1 day, 9 hours ago -
Supreme Court grants DOGE access to confidential Social Security records
by
Alex5723
2 days, 17 hours ago -
EaseUS Partition Master free 19.6
by
Alex5723
1 day, 18 hours ago -
Microsoft : Edge is better than Chrome
by
Alex5723
3 days, 7 hours ago -
The EU launched DNS4EU
by
Alex5723
3 days, 19 hours ago -
Cell Phone vs. Traditional Touchtone Phone over POTS
by
280park
3 days, 10 hours ago
Recent blog posts
Key Links
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.