При разработке интерфейса Вам может потребоваться погасить или отобразить меню. Этот пример показывает, как можно это сделать.
Private Sub butProgram1_Click()
Me.MenuBar = "Мое меню"
If Me.butProgram1.Caption = "Отобразить меню" Then
DoCmd.ShowToolbar Me.MenuBar, acToolbarYes
Me.butProgram1.Caption = "Погасить меню"
Else
DoCmd.ShowToolbar Me.MenuBar, acToolbarNo
Me.butProgram1.Caption = "Отобразить меню"
End If
End Sub