Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Reset any values you set

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