ник: Йожык
Ответ:
Sub ViewCMB()
Dim cmb As Object
Dim сButton As Object
Set cmb = Application.CommandBars("Form View Popup")
For Each сButton In cmb.Controls
Debug.Print сButton.Caption
If сButton.Caption = "&Конструктор форм" Then
Stop
сButton.Enabled = False
End If
Next
End Sub
|
Можно вешать на открытие формы.
На закрытие - наверно, следует возвращать отъенебленное. Удачи
Можно узнавать имя комьпютера или пользователя на запуске базы... Да чего я, разберешься ;)
ЗЫ если англоязычная - можно универсально обращаться к индексу контрола.