меню ADP-проекта для Acc2003

gloryk62
Дата: 20.11.2009 10:22:30
Подскажите, пожалуйста, как в проекте ADP оставить только созданное пользовательское меню( убрать строку меню "Файл-Окно-Справка")
П-Л
Дата: 20.11.2009 10:39:22
Сделайте свою строку меню и скройте все остальные. Куски кода:

    
    '   Удаление пользовательских меню, добавленных при запуске системы
    For Each ctl In menu.Controls
        If InStr(ctl.Tag, "UserMenu") > 0 Then
            ctl.Delete
        End If
    Next ctl


    If modUser.IsSuperUser() Then
        Application.CommandBars("Меню системы").Visible = False
        Application.CommandBars("Menu bar").Visible = True
        SetupProperty "StartUpMenuBar", ""
        Application.CommandBars("Панель системы").Visible = True
        Set menu = Application.CommandBars.item("Menu bar")
    Else
        Dim bar As Office.CommandBar
        For Each bar In Application.CommandBars
            bar.Visible = False
        Next bar
        Application.CommandBars("Меню системы").Visible = True
        Application.CommandBars("Панель системы").Visible = True
        SetupProperty "StartUpMenuBar", "Меню системы"
        DoCmd.ShowToolbar "Панель системы", acToolbarYes
        Set menu = Application.CommandBars.item("Меню системы")
    End If
gloryk62
Дата: 20.11.2009 12:44:05
П-Л, Спасибо!!! С помощью showtoolbar получилось убирать свое меню... Встроенную строку меню убрать не получается... Если можно, подробнее... Извините за беспокойство.
П-Л
Дата: 20.11.2009 12:58:24
Application.CommandBars("Menu bar").Visible = True
Меню не толбар.
П-Л
Дата: 20.11.2009 12:58:57
В смысле ему надо сделать False
gloryk62
Дата: 20.11.2009 13:49:55
П-Л, Спасибо преогромное!!! Все получилось, только с ... .Enabled = False