zimmer9
asked on
How do I resolve the error "Run time error '2001': You canceled the previous operation" in an Access 2003 application?
I am developing an Access 2003 application using VBA code.
For my log on screen, I use a combobox control for the userID,
a text box to enter a password and a submit command button to validate the
values.
the tblUserSecurity1 table has the following fields:
primary key recordnum AutoNumber
userID Text
securityLevel Text
password Text
The combox displays the userID but is based on the following Row source:
SELECT tblUserSecurity1.recordnum , tblUserSecurity1.userID FROM tblUserSecurity1 ORDER BY [userID];
My log on FORM code is as follows:
After the Login ID and password are entered, the following error occurs:
Run time error '2001':
You canceled the previous operation.
The system stops at the line:
strUSERRIGHTS = DLookup("secLevel", "tblUserSecurity1", "[recordnum]=" & Me.Combo25.Value)
-------------------------- ---------- ---------- ---------- ---------- ---------- ---------- -------
If IsNull(Me.Combo25) Or Me.Combo25 = "" Then
MsgBox "You must enter a valid login ID.", vbOKOnly, "Required Data"
Me.Combo25.SetFocus
Exit Sub
End If
'Check to see if data is entered into the password box
If IsNull(Me.TxtPwd) Or Me.TxtPwd = "" Then
MsgBox "You must enter a Password", vbOKOnly, "Required Data"
Me.TxtPwd.SetFocus
Exit Sub
End If
If Me.TxtPwd.Value = DLookup("PASSWORD", "tblUserSecurity1", "[recordnum]=" & Me.Combo25.Value) Then
strUSER = DLookup("UserID", "tblUserSecurity1", "[recordnum]=" & Me.Combo25.Value)
strUSERRIGHTS = DLookup("secLevel", "tblUserSecurity1", "[recordnum]=" & Me.Combo25.Value)
'USERRIGHTSM = strUSERRIGHTS
'DoCmd.Close acForm, "frmLogon", acSaveNo
'DoCmd.OpenForm "frmCustomRpt"
Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.TxtPwd.SetFocus
End If
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "You do not have access to this database.Please contact admin.", vbCritical, "Restricted Access!"
Application.Quit
End If
For my log on screen, I use a combobox control for the userID,
a text box to enter a password and a submit command button to validate the
values.
the tblUserSecurity1 table has the following fields:
primary key recordnum AutoNumber
userID Text
securityLevel Text
password Text
The combox displays the userID but is based on the following Row source:
SELECT tblUserSecurity1.recordnum
My log on FORM code is as follows:
After the Login ID and password are entered, the following error occurs:
Run time error '2001':
You canceled the previous operation.
The system stops at the line:
strUSERRIGHTS = DLookup("secLevel", "tblUserSecurity1", "[recordnum]=" & Me.Combo25.Value)
--------------------------
If IsNull(Me.Combo25) Or Me.Combo25 = "" Then
MsgBox "You must enter a valid login ID.", vbOKOnly, "Required Data"
Me.Combo25.SetFocus
Exit Sub
End If
'Check to see if data is entered into the password box
If IsNull(Me.TxtPwd) Or Me.TxtPwd = "" Then
MsgBox "You must enter a Password", vbOKOnly, "Required Data"
Me.TxtPwd.SetFocus
Exit Sub
End If
If Me.TxtPwd.Value = DLookup("PASSWORD", "tblUserSecurity1", "[recordnum]=" & Me.Combo25.Value) Then
strUSER = DLookup("UserID", "tblUserSecurity1", "[recordnum]=" & Me.Combo25.Value)
strUSERRIGHTS = DLookup("secLevel", "tblUserSecurity1", "[recordnum]=" & Me.Combo25.Value)
'USERRIGHTSM = strUSERRIGHTS
'DoCmd.Close acForm, "frmLogon", acSaveNo
'DoCmd.OpenForm "frmCustomRpt"
Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.TxtPwd.SetFocus
End If
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "You do not have access to this database.Please contact admin.", vbCritical, "Restricted Access!"
Application.Quit
End If
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.