HELLO
I have a databse with a table to give access user to login .but it have an error that i can solve it ,anyone can help me to find the issue ?
Private Sub Command1_Click()
If IsNull(Me.txtBnumber) Then
MsgBox "Please enter your Bnumber to proceed."
Me.txtBnumber.SetFocus
Else
'process the job
If (IsNull(DLookup("User Bnumber", "Authorised Users", "User Bnumber = '" & Me.txtBnumber.Value & "'"))) Then
MsgBox "You do not have access to the database."
Else
MsgBox "Login accepted."
End If
End If
End Sub
I have a databse with a table to give access user to login .but it have an error that i can solve it ,anyone can help me to find the issue ?
Private Sub Command1_Click()
If IsNull(Me.txtBnumber) Then
MsgBox "Please enter your Bnumber to proceed."
Me.txtBnumber.SetFocus
Else
'process the job
If (IsNull(DLookup("User Bnumber", "Authorised Users", "User Bnumber = '" & Me.txtBnumber.Value & "'"))) Then
MsgBox "You do not have access to the database."
Else
MsgBox "Login accepted."
End If
End If
End Sub