M
Mark
Hi all,
I have the following code on the "On Open" property of a
form. Basically, when the user opens the form... they are
asked to enter their Employee ID and then their NT Logon.
If there is a record containing that info, then the form
should open (as in the "else" statement below). However,
if there is not a record I would like a message box come
up and then not allow the form to be opened (as in
the "if" statement below). But the "If" statement is not
working... if there is not a record... the text box
(EmployeeID) is showing "#Error". How can I get this to
work???? Thanks!!!
Private Sub Form_Open(Cancel As Integer)
If IsNull(Me.EmployeeID) Then
MsgBox "The Employee ID and NT Logon is not
valid.", vbCritical, "Notice:"
Cancel = True
Else
MsgBox "Supervisor approval is required for class
enrollment.", vbExclamation, "Notice:"
End If
End Sub
I have the following code on the "On Open" property of a
form. Basically, when the user opens the form... they are
asked to enter their Employee ID and then their NT Logon.
If there is a record containing that info, then the form
should open (as in the "else" statement below). However,
if there is not a record I would like a message box come
up and then not allow the form to be opened (as in
the "if" statement below). But the "If" statement is not
working... if there is not a record... the text box
(EmployeeID) is showing "#Error". How can I get this to
work???? Thanks!!!
Private Sub Form_Open(Cancel As Integer)
If IsNull(Me.EmployeeID) Then
MsgBox "The Employee ID and NT Logon is not
valid.", vbCritical, "Notice:"
Cancel = True
Else
MsgBox "Supervisor approval is required for class
enrollment.", vbExclamation, "Notice:"
End If
End Sub