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

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: osmor
не совсем понимаю что должен делать ваш код, но видимо что-то подобное

Dim cbar As CommandBar
Dim menuitem As CommandBarControl
Dim Exist As Boolean
Exist = False
For Each cbar In CommandBars
    cbar.Enabled = False
    If cbar.Name = "MainMenu" Then  Exist = True
Next cbar
If Not Exist Then
    Set cbar = CommandBars.Add(Name:="MainMenu", _
    Position:=msoBarTop, MenuBar:=True, Temporary:=False)
End If
With cbar
.Enabled = True
.Visible = True

    Set menuitem = .Controls.Add(Type:=msoControlPopup)
    menuitem.Caption = "Поддержка"
    Set menuitem = .Controls.Add(msoControlButton)
    menuitem.Caption = "Данные"
    menuitem.Style = msoButtonCaption
    menuitem.Enabled = True
    menuitem.OnAction = "Общее декабрь"
End With


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.