Discussion on:

10 tips for customizing menus and toolbars in your Access apps

How much do you customize the interface when creating an Access application? What tips or suggestions would you add to this list?

Links to article and PDF download appar to be mixed up. Cannot get PDF download by following link at all.

Article links appear convoluted to get to actual article.

I also can't get the PDF download of this or any other article on this site. I'm prompted for my credentials, and when I enter them, get a page listing other downloads.

What's wrong?

I'm very interested in an opportunity to create menus on several Access formulars as it is possible in VB6.
Till now I couldn't find a simple way to do this. What I currently could think of is creating a callback for this, but hopefully there is an easier way ..

If you want to cycle through everything (Excel only)

For i = 1 To CommandBars.Count
j = 1
For Each cbc In CommandBars(i).Controls
ActiveSheet.Cells(j + 1, i) = cbc.Caption
j = j + 1
Next cbc
Next i

Sub ListMenus()
Dim cb As CommandBar
Dim cbc As CommandBarControl
Dim i As Integer, j As Integer

i = 1
For Each cb In CommandBars
ActiveSheet.Cells(1, i) = cb.Name & " / " & TypeReturn(cb.Type)
ActiveSheet.Cells(1, i).Font.Bold = True
i = i + 1
Next

For i = 1 To CommandBars.Count
j = 1
For Each cbc In CommandBars(i).Controls
ActiveSheet.Cells(j + 1, i) = cbc.Caption & " / " & cbc.Type & " / " & cbc.Index & " / " & cbc.Tag
j = j + 1
Next cbc
Next i
Columns("A:IV").EntireColumn.AutoFit

End Sub

Function TypeReturn(TypeRtn As Integer)

If TypeRtn = 0 Then
TypeReturn = "Toolbar"
ElseIf TypeRtn = 1 Then
TypeReturn = "Menu bar"
Else: TypeReturn = "Popup"
End If

End Function