getting a button control to lookup a table to verify a txt control entry is in table

[jaymin]

Hope someone can help
I have a password form which has two txt boxes one for username entry and password entry, plus two buttons "close" and "enter password". i have a table called tblPassword , what i want to happen is that when the "enter Password" button is pressed it looks for the name that was entered in the "username" txt in the table, then
compares it to the password entered in the "Password " txt if there is a match do what ever.

Peter

[Missinglinq]

Where:

• Password and UserName are Fields in the tblPassword Table
• txtPassword and txtUserName are Controls on your Form
• btnSubmitPassword is the Command Button

Private Sub btnSubmitPassword_Click()

If Me.txtPassword = DLookup("Password", "tblPassword", "[UserName] = '" & Me.txtUserName & "'") Then
  'Do whatever you want if Password is correct
Else
  MsgBox "Password Submitted Does Not Match User Name!"
End If

End Sub

Linq ;0)>

[jaymin]

Missinglinq,
Thank you for your easy to understand instructions and a quick reply. I have it working.
Thanks again for your time and help with this matter.

Peter

[Missinglinq]

Glad we could help!

Linq ;0)>

[jaymin]

Missinglinq,
sorry if i am going around this the wrong way but your help was great.
Another DLookup problem for me that is, i have tried to transpose the code you gave me, but my understanding of it has left me.
i have a form with a txt box txtChipNumber it is attached to the after update event, the field in the the table i want to look up is chipnumber from the table tblPPE, the code i am using is this,

Me.txtChipNumber = DLookup("ChipNumber", "tblPPE", "[ChipNumber]='txtChipNumber'")

This is the sub i use

Private Sub txtChipNumber_AfterUpdate()
If Me.txtChipNumber = DLookup("ChipNumber", "tblPPE", "[ChipNumber]='txtChipNumber'") Then
MsgBox ("this number taken")
Else
MsgBox ("this number not taken")
Me.cboGarmentType.Enabled = True
Me.cboGarmentType.SetFocus

End If
End Sub

I changed the code to this below it now works fine, once again thanks for your help, i would not be able to do it not for your kind help

Me.txtChipNumber = DLookup("ChipNumber", "tblPPE", "[ChipNumber]='" & txtChipNumber & "'")

once again i will Apologise if i am doing anything wrong
Peter