Форумы HiProg.com - MS ACCESS, VBA, VB

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

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