This is all of the code in there. When I hit debug and Compile it highlights (Switchboard)
Option Compare Database
Option Explicit
Private Sub cmdContinue_Click()
On Error GoTo ErrHandler
Dim strSQL As String
If Nz(Me.txtFirstName, "") = "" Then
MsgBox ("First Name cannot be empty.")
DoCmd.GoToControl "txtFirstName"
Exit Sub
End If
If Nz(Me.txtLastName, "") = "" Then
MsgBox ("Last Name cannot be empty.")
DoCmd.GoToControl "txtLastName"
Exit Sub
End If
If Nz(Me.txteMail, "") = "" Then
MsgBox ("Email cannot be empty.")
DoCmd.GoToControl "txteMail"
Exit Sub
End If
strSQL = "INSERT INTO tblUsers ( uNetworkID, uFirstName, uLastName, ueMail, uLastLogon, uLogonCount, uActive )" & _
" SELECT GetUserID(), '" & Me.txtFirstName & "', '" & Me.txtLastName & "', '" & Me.txteMail & "', Now(), 1, True"
CurrentDb.Execute strSQL, dbFailOnError
Forms(Switchboard).Tag = "Continue" 'frmMainMenu change to the name of your Main Menu/Switchboard/Navigation Form
DoCmd.Close acForm, Me.Name
Complete:
Exit Sub
ErrHandler:
MsgBox ("Error creating user profile: " & Err.Description)
End Sub
Private Sub cmdExit_Click()
End Sub
Private Sub Form_Click()
End Sub