ник: joka
что то не получается пройтись по свойствам форм:(
пробую на открытие стартовой формы поставить такой код
Private Sub Form_Open(Cancel As Integer)
Dim frm As AccessObject
For Each frm In Application.CurrentProject.AllForms
Forms.Item(frm.Name).ShortcutMenu = False
Next frm
End Sub
говорит что не могу найти форму... почему кто подскажет?
заранее спасибо!