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

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

commandbars("menu bar").Enabled = False

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

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

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

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