G
Guest
I have a form on startup, displaying a disclaimer message along with three
options: one to continue to the main switchboard, one to exit access, and
hopefully one like the HideStartupForm control in the "Northwind Traders"
sample database. The problem with the sample database is that the option
goes into the startup settings and changes the form startup. This is good,
but I have several users and I'd like to give all users this option. My idea
was to create a table (2 fields, User and HideStartup(Yes/No)) that "logs"
you in and records your selection. And in the On Open event of the startup
form, I'd like Access to go to the record containing the current user check
the HideStartup Field, and depending on the selection go to the main
switchboard or stay in the startup form. Does anyone know the code to go to
a record and check for that option, my current code is:
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Startup_err
[Input Record Selecting Command Here]
If HideStartup Then
DoCmd.Close
DoCmd.OpenForm "Switchboard"
Else
Exit Sub
End If
Startup_err:
Exit Sub
End Sub
Is this the best way to do this, or is there a better way?
options: one to continue to the main switchboard, one to exit access, and
hopefully one like the HideStartupForm control in the "Northwind Traders"
sample database. The problem with the sample database is that the option
goes into the startup settings and changes the form startup. This is good,
but I have several users and I'd like to give all users this option. My idea
was to create a table (2 fields, User and HideStartup(Yes/No)) that "logs"
you in and records your selection. And in the On Open event of the startup
form, I'd like Access to go to the record containing the current user check
the HideStartup Field, and depending on the selection go to the main
switchboard or stay in the startup form. Does anyone know the code to go to
a record and check for that option, my current code is:
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Startup_err
[Input Record Selecting Command Here]
If HideStartup Then
DoCmd.Close
DoCmd.OpenForm "Switchboard"
Else
Exit Sub
End If
Startup_err:
Exit Sub
End Sub
Is this the best way to do this, or is there a better way?