Något som är lik det:
Privata underForm_Load ()
Om DCount (”*”, ”NameOfYourProjectTable”) = 0 därefter
Me.NameOfTheSetupButton.Enabled = falskt
Me.NameOfTheLogOutButton.Enabled = falskt
'… och så vidare
Annars
Me.NameOfTheButton.Enabled = True
Me.NameOfTheLogOutButton.Enabled = True
'… och så vidare
Avsluta om
Avsluta suben