Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Use Access Special Keys

Public Sub startupProperties()    Dim myDatabase As Object    Set myDatabase = CurrentDb    With myDatabase       .Properties.Delete "AllowFullMenus"       .Properties.Delete "AllowToolBarChanges"     End With     Application.RefreshTitleBar End Sub