Здравствуйте Час! , а разве это нетак делается?

Public Sub StartMainMenu()

Dim cbar As CommandBar
Dim Exist As Boolean
For Each cbar In CommandBars
cbar.Enabled = False
Next cbar
Exist = False
For Each cbar In CommandBars
If cbar.Name = "MainMenu" Then
Exist = True
Exit For
End If
Next cbar

If Not Exist Then
Set cbar = CommandBars.Add(Name:="MainMenu", _
Position:=msoBarTop, MenuBar:=True, Temporary:=False)
End If
cbar.Enabled = True
cbar.Visible = True

With cbar
With .Controls
With .Add(Type:=msoControlPopup)
.Caption = "Поддержка"
With .Controls

With .Add(Type:=msoControlButton)

.Caption = "Данные"
.Enabled = Общее_декабрь
.OnAction = "Общее декабрь"
End With
End With
End With
End Sub

Простите, а кто не хочет включаться???

Если "MainMenu" - то такой вопрос- А вы её (меню) создали???

Проблема с меню бар, подскажите пожалуйста где ошибка, нехочет включатся

Не до конца прочел

2 Мюллер
Видимо опять мало спал. Посмотри вопрос автора.

Или же
DoCmd.ShowToolbar "menu bar", acToolbarNo

>Как сделать так чтобы панель "Menu bar" при открытие не было бы видно.
выполнить

commandbars("menu bar").Enabled = False

Вариант:
Поскольку управлять работой приложения все-равно надо, правильнее заменить штатное меню своим.
Это дополнительно придаст приложению видимость "профессиональности".

Как сделать так чтобы панель "Menu bar" при открытие не было бы видно. В моем проекте я в "Tools - Startup" снял все галочки в пунктах. После этого команда - DoCmd.ShowToolbar "Menu Bar", acToolbarNo -стало не работать!!!