объяясните плиз популярно, а лучше вариант исправленния((( при запуске выдает ошиибку "User - defined type not defined" и пробегитесь по коду, мб еще где косяки есть( За ранее спасибо

Option Compare Database

Public Sub MainMenu()
Dim cbar As CommandBar
Dim Exist As Boolean
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:=msoControlButton)
.Style = msoButtonCaption
.Caption = "Äîáàâèòü"
.Enabled = True
.OnAction = "Íîâàÿ ýêñêóðñèÿ"
End With
With .Add(Type:=msoControlPopup)
.Caption = "Äîáàâèòü"
With .Controls
With .Add(Type:=msoControlButton)
.Caption = "Íîâàÿ ýêñêóðñèÿ"
.Enabled = True
.OnAction = "Íîâàÿ ýêñêóðñèÿ"
End With
With .Add(Type:=msoControlButton)
.Caption = "Íîâàÿ òåìà"
.Enabled = True
.OnAction = "Íîâàÿ òåìà"
End With
With .Add(Type:=msoControlButton)
.Caption = "Íîâûé ýêñêóðñîâîä"
.Enabled = True
.OnAction = "Íîâûé ýêñêóðñîâîä"
End With
With .Add(Type:=msoControlButton)
.Caption = "Íîâûé àäìèíèñòðàòîð"
.Enabled = True
.OnAction = "Íîâûé àäìèíèñòðàòîð"
End With
End With
End With
With .Add(Type:=msoControlPopup)
.Caption = "Óäàëèòü"
With .Controls
With .Add(Type:=msoControlButton)
.Caption = "Óäàëèòü ýêñêóðñèþ"
.Enabled = True
.OnAction = "Óäàëèòü ýêñêóðñèþ"
End With
With .Add(Type:=msoControlButton)
.Caption = "Óäàëèòü òåìó"
.Enabled = True
.OnAction = "Óäàëèòü òåìó"
End With
With .Add(Type:=msoControlButton)
.Caption = "Óäàëèòü ýêñêóðñîâîäà"
.Enabled = True
.OnAction = "Óäàëèòü ýêñêóðñîâîäà"
End With
With .Add(Type:=msoControlButton)
.Caption = "Óäàëèòü àäìèíèñòðàòîðà"
.Enabled = True
.OnAction = "Óäàëèòü àäìèíèñòðàòîðà"
End With
End With
End With
With .Add(Type:=msoControlPopup)
.Caption = "Çàïðîñû"
With .Controls
With .Add(Type:=msoControlButton)
.Caption = "Ýêñêóðñèè"
.Enabled = True
.OnAction = "Ýêñêóðñèè Çàïðîñ"
End With
With .Add(Type:=msoControlButton)
.Caption = "Çàêîí÷åíî"
.Enabled = True
.OnAction = "Çàïðîñ_çàêîí÷åíî?"
End With
With .Add(Type:=msoControlButton)
.Caption = "Çàíÿòû"
.Enabled = True
.OnAction = "Çàïðîñ_çàíÿò?"
End With
End With
End With
With .Add(Type:=msoControlPopup)
.Caption = "Îò÷åò"
With .Controls
With .Add(Type:=msoControlButton)
.Caption = "ïîä÷èíåííûé îò÷åò Ýêñêóðñèè"
.Enabled = True
.OnAction = "ïîä÷èíåííûé îò÷åò Ýêñêóðñèè"
End With
End With
End With
With .Add(Type:=msoControlButton)
.Style = msoButtonCaption
.Caption = "Îáíîâèòü ìåíþ"
.Enabled = True
.OnAction = "ResetMainMenu"
End With
End With
End With
End Sub

http://www.sql.ru/forum/1127374/ne-poluchaetsya-sdelat-menu-nadstroek-v-access-ne-ponimau-chto-on-hochet