Hi Scott
Thanks for the reply
The splashscreen is set in options as the first form as you suspected.
That has an On Timer event and a Timer Interval set to 3000
And it has an On Close event
Code as follows:-
Private Sub Form_Close()
' Check if a registered user exists on tblUsers and if not open Registration Form
If (IsNull(DLookup("UserLogin", "tblUser", "RegUser"))) Then
DoCmd.OpenForm ("frmLicenseAgreement")
Else
DoCmd.OpenForm ("frmLoginForm")
End If
End Sub
Private Sub Form_Timer()
DoCmd.Close
End Sub
The idea is that if there is not a registered user on tblUsers then they are prompted to agree to the License and then enter details of a registered user. If there is a registered user then proceed directly to the Login Form.
I have done some more checks and I found that the accde will not get past the splash screen if running under full access or runtime.
Thanks
Dave