Iets in die aard:
Privé SubForm_Load ()
Als DCount („*“, „NameOfYourProjectTable“) = 0 toen
Me.NameOfTheSetupButton.Enabled = Vals
Me.NameOfTheLogOutButton.Enabled = Vals
'… etc.
Anders
Me.NameOfTheButton.Enabled = Waar
Me.NameOfTheLogOutButton.Enabled = Waar
'… etc.
Eind als
Sub van het eind