Что-нибудь подобное:
Приватное Sub Form_Load ()
Если DCount («*», «NameOfYourProjectTable») = 0 после этого
Me.NameOfTheSetupButton.Enabled = ложно
Me.NameOfTheLogOutButton.Enabled = ложно
'… и так далее
Еще
Me.NameOfTheButton.Enabled = True
Me.NameOfTheLogOutButton.Enabled = True
'… и так далее
Закончитесь если
Закончите подводную лодку