if statment or case statment?

[whojstall11]

if statment or case statment?

---

I want to write an if or case statement that opens my form depending on the criteria.
i have tried both neither work.
Code:

If Me.txtPassword.Value = DLookup("strEmpPassword", "tblEmployees", "[lngEmpID]=" & Me.cboEmployee.Value) Then lngMyEmpID = Me.cboEmployee.Value Select Case cboEmployee Case "Admin"DoCmd.Close acForm, "frmLogon", acSaveNo DoCmd.OpenForm "Main Page Navigation Form"Case "Other" DoCmd.Close acForm, "frmLogon", acSaveNo DoCmd.OpenForm "Main Page Navigation Form User"End Select 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 your system administrator.", vbCritical, "Restricted Access!" Application.Quit End If End Sub

[Bob Fitz]

See: http://www.access-programmers.co.uk/...86#post1170986

[mike02]

If Me.qpwd.Value = DLookup("Password", "Login", "UserID = '" & Me.quserid.Value & "'") Then
DoCmd.OpenForm "MainMenu", acNormal
Else
MsgBox "Ïnvalid User ID or Password"
End If

This is what mine is. I have the Dlookup checking to see if it exists if so then it opens up my form. Dlookup isnt the best security methody. for log in etc. as It is easily hack able but it gets the job done for basic stuff.

[John_G]

Hi -

The employeeID combo box has two columns, correct? The first (hidden) is employeeID, and the second is the user name?

But your Select Case statement is using just cboEmployee, which is the EmployeeID. You want the User Name in the select case Statement, so change Select Case cboEmployee to Select Case cboEmployee.column(1), to compare to the second column of the combo box (column numbers are zero-based).

In addition to that, if intLogonAttempts is a local variable in that subroutine, then that counter will never work (i.e. never be > 3) because I don't see any loop in the code.

HTH

John

[Bob Fitz]

This question has already been asked and answered in another forum.
See: http://www.access-programmers.co.uk/...86#post1170986