| |
|
|
| | Ребята помогите новичку пожалуйта не пойму где загвоздка? создал модуль, вписал ,а нехочет работать редиска 
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 Sub | |
| |
| |
| |
|
|
| | в чем выражается "нехочет работать" ? не создается пункт меню?? | |
| |
| |
| |
|
|
| | да, не создается в чем ошибка не могу понять. | |
| |
| |
| |
|
|
| | а сообщений никаких не выдает? | |
| |
| |
|
|
| |
|
|
| | ну как не выдает?
У вас в этом куске еесть 4 with и только 1 end with
...
With cbar
With .Controls
With .Add(Type:=msoControlPopup)
.Caption = "Поддержка"
With .Controls
With .Add(Type:=msoControlButton)
.Caption = "Данные"
.Enabled = Общее_декабрь
.OnAction = "Общее декабрь"
End With
End sub
|
синтаксические ошибки исправьте | |
| |
| |
| |
|
|
| | 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
сделал ноль реакции а ошибки и до этого не выдавало. | |
| |
| |
| |
|
|
| | не совсем понимаю что должен делать ваш код, но видимо что-то подобное
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
|
| |
| |
| |
| |
|
|
| | предполагаю, что следующим вашим вопросом будет "как вернуть стандартное меню"  | |
| |
| |
| |
|
|
| | огромное спасибо сейчас попробую 
Public Sub ResetMainMenu()
Dim cbar As CommandBar
For Each cbar In CommandBars
If cbar.NAME = "MainMenu" Then
CommandBars("MainMenu").Delete
Exit For
End If
Next cbar
Dim сBar As CommandBar
For Each сBar In CommandBars
сBar.Enabled = True
Next сBar
End Sub
так пойдет? | |
| |
| |
|
|
| |
|
|
| | опять не видно, но теперь ошибку хоть выдал, compile error: user-defined type not defined и именно на resete | |
| |
| |
| |
|
|
| | Помогите пожалуйста, как отключит свое меню до тех пор пока не ввел пароль?
в автозагрузке стоит форма контроля доступа, в нее вписываю след. но не помогает но все равно видно..
Private Sub Form_Load()
DoCmd.ShowToolbar, acToolbarNo
End Sub | |
| |
| |
| |
|
|
| | Не надо прятать меню. На загрузке формы прячем некоторые кнопки меню, по завершении авторизации показываем нужные кнопки меню. | |
| |
| |
| |
|
|
| | скажите пожалуйста как это можно будет сделать? | |
| |
| |
| |
|
|
| | Например, функция:
Private Sub ShowComBars(Dev As Boolean, Adm As Boolean)
On Error Resume Next
CommandBars("Customs").Controls("Администратор").Visible = Adm
CommandBars("Customs").Controls("Developer").Visible = Dev
End Sub
|
На загрузке формы
На закрытии:
| |
| |
| |
| |
 25 Кб. |
|
| | Если кого не затруднит покажите на примере, и извините за назойливость, только учусь, а учусь с нуля | |
| |
| |
|
|
| |
|
|
| | я смотрел ваш шаблон, очень интересно, только не догоняю как перенести это на мой вариант...  | |
| |
| |
| |
|
|
| | Проще всего:
1. "Открыть" шаблон паролем разработчика.
2. Импортировать в него свои объекты.
3. По окончании разработки сменить код разработчика, создать файл MDE, "закрыть" приложение своим кодом разработчика. | |
| |
| |
| |
|
|
| | Возможно мы недопонимаем друг друга  , в вашем шаблоне когда появляется форма авторизации, меню не активно т.е нельзя кликнуть по журнали или документам, как и мне сделать также? | |
| |
| |
| |
12 Кб. |
|
| | Модальное - да | |
| |
| |
| |
|
|
| | Спасибо! | |
| |
| |
