reset any values you set : Database Properties « Access « VBA / Excel / Access / Word






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

 








Related examples in the same category

1.Set new property to database
2.Enumerate the properties of current database
3.Sub KeepEmOut()
4.Database properties: AllowFullMenus, Allowtoolbarchanges
5.Changing Options