Help with finding a record in a table

[Travis33]

I have a database where a user inputs a password and I check the table record to see if it is there to grant them access to the forms. This is the code I am using but it only finds the first record in the table. I want it to search the whole column.
Dim db As Database, rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("users", dbOpenTable)

Key = rs.Fields("password&quot.Value
Password = InputBox("Enter your password&quot
If Password = Key Then
MsgBox ("this Works&quot
else
msgbox("Wrong Password&quot

Can someone please help me, Thank You Travis

 

[Rohdem]

You need to use a loop:

Dim db As Database, rs As Recordset
Dim found As boolean
Set db = CurrentDb
Set rs = db.OpenRecordset("users", dbOpenTable)

found = false
Password = InputBox("Enter your password&quot
DO WHILE NOT rs.eof
Key = rs!password
If Password = Key Then
found = true
EXIT DO
end if
rs.movenext
LOOP
rs.close
set rs = nothing
if found then
msgbox("Password Found&quot
else
msgbox("Invalid Password&quot
end if
Mike Rohde
rohdem@marshallengines.com

 

[scking]

I know it is passe to suggest this, but are you developing some home-grown security system? There must be some reason you aren't using the Access User Security. Merely setting us your application properly will provide login capabilities which require a username/password for access to the database.