I modified a piece of code and now its not working (1 Viewer)

Dannyc989

Registered User.
Local time
Today, 11:13
Joined
Dec 18, 2013
Messages
46
I created a logon form using a table of data which contains the following fields

cboemployee
txtpassword
txtaccesslevel

the idea is that the employee selects there name in the cboemployee drop down list and when this is selected it automatically adds the access level in txtaccesslevel i.e Administrator or sales.

If the level is administrator I want it to open the Administrator switchboard, if it is sales I want it to open the sales switchboard and so on but for some reason it debugs at this point highlighted below, and I can work out why... can anyone assist??

Option Compare Database

Private Sub cboEmployee_Change()
Me.txtAccessLevel = Me.cboEmployee.Column(2)

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 tblEmployees to see if this
'matches value chosen in combo box

If Me.txtPassword.Value = DLookup("strEmpPassword", "tblEmployees", _
"[lngEmpID]=" & Me.cboEmployee.Value) Then

lngMyEmpID = Me.cboEmployee.Value

'Close logon form and open splash screen

DoCmd.Close acForm, "Login", acSaveNo
DoCmd.OpenForm [txtAccessLevel], acNormal

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
 

TJPoorman

Registered User.
Local time
Today, 05:13
Joined
Jul 23, 2013
Messages
402
The problem is that you are closing the form, then trying to access a value on it:

Code:
DoCmd.Close acForm, "Login", acSaveNo
DoCmd.OpenForm [txtAccessLevel], acNormal

Switch these two lines and you should be fine
 

Dannyc989

Registered User.
Local time
Today, 11:13
Joined
Dec 18, 2013
Messages
46
Thank you... How did I miss that!!
 

Users who are viewing this thread

Top Bottom