How to Check 2 Data Entries to see if they are in the table

[hammer187]

Ok, the title doesn't really explain much. Here is my situation. I have a login form. 2 spots for users to input and ID and their name. I want to do error checking to see the user inputs a wrong name or wrong id with their corresponding name or ID. For example, I don't want User A to be able to login with User B's name. If User A inputs their ID and inputs User B's name, I want to show an error message stating the their is a mismatch of credentials. Here is my code

Private Sub Command12_Click()

Dim rs As DAO.Recordset
Dim txtID As Variant
txtID = Forms![LoginForm2]![txtEmployeeID]
txtName = Forms![LoginForm2]![Text13]
Set rs = CurrentDb.OpenRecordset("SELECT * FROM CoachTable WHERE EmployeeID = '" & txtID & "'", dbOpenDynaset)
If Len(txtID) > 11 And Len(txtName) > 5 Then
If rs.EOF Then 'no such person
  DoCmd.OpenForm "HourlyForm", acNormal
Else
  DoCmd.OpenForm "frmMain", acNormal
End If
Else
MsgBox "Please enter a valid Associate ID and/or Name"
End If
Exit Sub
End Sub

[June7]

Users must input name and ID?

I would have users select name from combobox and input ID (assume noone knows each other's ID). Then check against table that the selected name and entered ID are a valid pairing.

Do you have measures in place to prevent users from accessing the navigation pane? Are you aware that by holding down shift key when db opens, most startup options can be bypassed (unless this is an accde file)?

[hammer187]

I can't have IDs showing. That is why I have input boxes. I know there is a way to check those inputs against my table to see if they match the row of my table.

[hammer187]

Yes I am aware. I have it locked down.

[hammer187]

I would like the code to see if Name and ID are a valid pairing.

[June7]

So what is wrong with the code you already have? Step debug. Refer to link at bottom of my post for guidance on debug techniques.

I did not say to show the IDs. Names in combobox, ID entered to textbox. Then:

If IsNull(DLookup("ID", "CoachTable", "EmployeeID = '" & Me.txtID & "' AND EmployeeName='" & Me.combobox & "'")) Then
MsgBox "This is not a valid login"

[hammer187]

That seems it would work. Thanks.