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

ник: Василий
With .Add(Type:=msoControlPopup)
.Caption = "Информация"
With .Controls
With .Add(Type:=msoControlButton)
.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
End With
End With
End Sub

сделал ноль реакции а ошибки и до этого не выдавало.