MS Access "run-time Error 2001, You canceled the previous operation"?

[mufc4life]

Hi, actually I'm creating a database for some coursework at school. It's basically about a booking system and how I book hardware in and out of the school for students who need the hardware. I've tried to create a login screen, so that teachers can log in and out the system. I've got one table that is involved in this code, which is the 'tblTechnicianFile'. That's the table that contains the technician's ID and the password as well. The following links are print screens of my tblTechnicianFile and my actual form, which is my login screen.
http://i209.photobucket.com/albums/bb68/ud1992/ms%20access%20prob/Untitled-2.png
http://i209.photobucket.com/albums/bb68/ud1992/ms%20access%20prob/Untitled-4.png

The problem is that it is supposed to send me to another screen when the password is right, but it keeps giving me the "run-time error..." screen whether I put in the right password or not.

This is the all the codes that I have got entered, something must be wrong with it, but I cannot spot it. Help.



Option Compare Database

Private Sub cboEmployee_AfterUpdate()

Me.txtPassword.SetFocus

End Sub


Private Sub cmdLogin_Click()

'Check to see if data is entered into the UserName combo box

If IsNull(Me.cboEmployee) Or Me.cboEmployee = "" Then
MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
Me.cboEmployee.SetFocus
Exit Sub
End If

'Check to see if data is entered into the password box

If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
Me.txtPassword.SetFocus
Exit Sub
End If

'Check value of password in login to see if this
'matches value chosen in combo box

If Me.txtPassword.Value = DLookup("Password", "tblTechnicianFile", _
"[Technician ID]=" & Me.cboEmployee.Value) Then

lngMyEmpID = Me.cboEmployee.Value

'Close logon form and open splash screen

DoCmd.Close acForm, "login screen", acSaveNo
DoCmd.OpenForm "Switchboard"

Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, _
"Invalid Entry!"
Me.txtPassword.SetFocus
End If

'If User Enters incorrect password 3 times database will shutdown

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

End Sub

---------------------------------------------------------------------------------------------------------------
Additional Details
if anyone wants to contact me to get more details about this problem or anything like that, my msn is: [e-mail]

[MikeTheBike]

Hi

Just one suggestion:-

Try opening the 'Switchboard' BEFORE you close the 'Login Screen'

??


MTB

[mufc4life]

erm, I'm not really sure what you mean by that.. are you telling me to edit the code, or open the switchboard form?

If you mean edit the code, can you give me the new code please, as I am not really good with coding.

I found those coding instructions on how to make a login form from this website: http://www.databasedev.co.uk/login.html

but apparently that code only works if the ID is an autonumber field, and mine is a text one. That's what is causing the problem, as it worked fine for my friend, because he had his TechnicianID field as an autonumber.

Thanks.

[MikeTheBike]

Hi

OK so you have a text user ID (Why?), then I suggest changing this

If Me.txtPassword.Value = DLookup("Password", "tblTechnicianFile", _
"[Technician ID]=" & Me.cboEmployee.Value) Then

to this

If Me.txtPassword.Value = DLookup("Password", "tblTechnicianFile", _
"[Technician ID]='" & Me.cboEmployee.Value & "'") Then

Note th apostrophies enclosing Me.cboEmployee.Value

These delimiters are required for all text variable in this situation so the program knows where the variable text starts and ends within the program text.

HTH


MTB

[mufc4life]

thanks a lot mate, it worked. However, now the problem is with the last code

'If User Enters incorrect password 3 times database will shutdown

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

This is the code that checks if an incorrect password has been entered more than 3 times.. I tried entering a wrong password over 3 times, but didn't work, would apreciate if you could help me on this bit as well? Thanks again.

[MikeTheBike]

Hi

Two things
1) You do not say what actually happens
2) Where is the variable 'intLogonAttempts' declared?

To start I would temperarily add this line

MsgBox intLogonAttempts

immediatly after this line

intLogonAttempts = intLogonAttempts + 1

and see if it starts at 1 and index with each incorrct password.

'intLogonAttempts' should be declared at the top of the form 'login screen' code module ie.

Dim intLogonAttempts as Integer


MTB