Can't connect to table with password to compare with user input

[clickingwires]

This might be really simple but for the life of me I cannot get this to work.

What I am trying to do is use a table with one field as a password. I however cannot connect to it from a module to compare user input with stored password.

How can I accomplish this?

[Dan2kx]

you could use a dlookup in vb

dim PassLook as string

Passlook = dlookup("PasswordField",PasswordTable,"WhereComman d(if you only have the one password in the field then i think you can forget this)")

if [Forms]![Formname]![UserInput] = Passlook then

Blah blah

else
msgbox"incorrect password"
end if

hows that?

[Nathan H]

you could use a dlookup in vb

dim PassLook as string

Passlook = dlookup("PasswordField",PasswordTable,"WhereComman d(if you only have the one password in the field then i think you can forget this)")

if [Forms]![Formname]![UserInput] = Passlook then

Blah blah

else
msgbox"incorrect password"
end if

hows that?

Instead of holding the password value in a table, you can try:

Private Sub Command_Click()
If Text1 = "Password" Then
MsgBox "Password Confirmed", vbOKOnly
Exit Sub
End If
MsgBox "You Entered the Wrong Password", vbOKOnly
End Sub
 

[clickingwires]

you could use a dlookup in vb

dim PassLook as string

Passlook = dlookup("PasswordField",PasswordTable,"WhereComman d(if you only have the one password in the field then i think you can forget this)")

if [Forms]![Formname]![UserInput] = Passlook then

Blah blah

else
msgbox"incorrect password"
end if

hows that?

Works like a charm... but what if i want to write a password to that field.

[clickingwires]

Instead of holding the password value in a table, you can try:

Private Sub Command_Click()
If Text1 = "Password" Then
MsgBox "Password Confirmed", vbOKOnly
Exit Sub
End If
MsgBox "You Entered the Wrong Password", vbOKOnly
End Sub
 

That is what i have... i wanted to be able to put it in a table so that i can be able to change it in the future without having to go into the code...

[Nathan H]

That is what i have... i wanted to be able to put it in a table so that i can be able to change it in the future without having to go into the code...

How about having your password table as the record source of the sign-in screen, and then...obviously not displaying the stored password field:

Private Sub Command_Click()
If Text1 = (Forms!Form1!PASSWORD) Then
MsgBox "Password Confirmed", vbOKOnly
Exit Sub
End If
MsgBox "You Entered the Wrong Password", vbOKOnly
End Sub

[Dan2kx]

Works like a charm... but what if i want to write a password to that field.

if you change the password in the field then it will lookup the new one

you could also add in a username field so that you had more than one user in which case you could the "where" command to check the username too
"tblpassinfo.username =[forms]![frmpassform]![username]"

[Nathan H]

if you change the password in the field then it will lookup the new one

you could also add in a username field so that you had more than one user in which case you could the "where" command to check the username too
"tblpassinfo.username =[forms]![frmpassform]![username]"

Dan2kx- I like your method better then mine! I have changed over to the dlookup route so that my password table is not tied to the form. Thanks!