Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Database properties

Public Sub startupProperties()    Dim myDatabase As Object    Set myDatabase = CurrentDb    myDatabase.Properties("AllowFullMenus") = False    myDatabase.Properties("Allowtoolbarchanges") = False     End Sub