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 Sub
Viewing 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
-
Small desktops
by
Susan Bradley
40 minutes ago -
Totally disable Bitlocker
by
CWBillow
3 hours, 58 minutes ago -
Totally disable Bitlocker
by
CWBillow
5 hours, 37 minutes ago -
Windows 11 ad from Campaign Manager in Windows 10 (Awaiting moderation)
by
Jim McKenna
9 hours, 7 minutes ago -
Phishers extract Millions from HMRC accounts..
by
Microfix
17 hours, 46 minutes ago -
Windows 10 22H2 Update today (5 June) says up-to-date but last was 2025-04
by
Alan_uk
19 hours, 38 minutes ago -
Thoughts on Malwarebytes Scam Guard for Mobile?
by
opti1
22 hours, 47 minutes ago -
Mystical Desktop
by
CWBillow
23 hours ago -
Meta and Yandex secretly tracked billions of Android users
by
Alex5723
4 hours, 18 minutes ago -
MS-DEFCON 2: Do you need that update?
by
Susan Bradley
13 hours, 11 minutes ago -
CD/DVD drive is no longer recognized
by
WSCape Sand
1 day, 14 hours ago -
Windows 11 24H2 Default Apps stuck on Edge and Adobe Photoshop
by
MikeBravo
1 day, 17 hours ago -
North Face and Cartier customer data stolen in cyber attacks
by
Alex5723
1 day, 15 hours ago -
What is wrong with simple approach?
by
WSSpoke36
1 day, 7 hours ago -
Microsoft-Backed Builder.ai Set for Bankruptcy After Cash Seized
by
Alex5723
2 days, 2 hours ago -
Location, location, location
by
Susan Bradley
16 hours, 59 minutes ago -
Cannot get a task to run a restore point
by
CWBillow
2 days, 3 hours ago -
Frustrating search behavior with Outlook
by
MrJimPhelps
1 day, 18 hours ago -
June 2025 Office non-Security Updates
by
PKCano
2 days, 14 hours ago -
Secure Boot Update Fails after KB5058405 Installed
by
SteveIT
17 hours, 19 minutes ago -
Firefox Red Panda Fun Stuff
by
Lars220
2 days, 14 hours ago -
How start headers and page numbers on page 3?
by
Davidhs
3 days, 1 hour ago -
Attack on LexisNexis Risk Solutions exposes data on 300k +
by
Nibbled To Death By Ducks
2 days, 3 hours ago -
Windows 11 Insider Preview build 26200.5622 released to DEV
by
joep517
3 days, 9 hours ago -
Windows 11 Insider Preview build 26120.4230 (24H2) released to BETA
by
joep517
3 days, 9 hours ago -
MS Excel 2019 Now Prompts to Back Up With OneDrive
by
lmacri
2 days, 23 hours ago -
Firefox 139
by
Charlie
2 days, 16 hours ago -
Who knows what?
by
Will Fastie
1 day, 18 hours ago -
My top ten underappreciated features in Office
by
Peter Deegan
3 days, 10 hours ago -
WAU Manager — It’s your computer, you are in charge!
by
Deanna McElveen
1 day, 4 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.