Lookup and return value in a field

[Ryno Bower]

Hi, I urgently need help please.

I have the following:

Form - UserLogin with these unbound text boxes on it namely: txtOperator, txtUsername, txtPassword

Table - Operators with the following fields
Operator, Username, Password

My scenario is:
If I type something in txtOperator, then it must return the Username of that Operator from the table into the txtUsername unbound field.

Also when I type the password in the unbound txtPassword field, it must look up in the table if the txtPassword matches with Password from the table.

Further I can add in what I want.

Will someone PLEASE help me to find a solution for this. I have tried lookups and functions but no luck.

Your help is much appreciated - Thanks

Ryno

[TheSmileyCoder]

You could try this code in the LostFocus event of txtOperator

Me.txtUsername=nz(Dlookup("Username","tbl_Operators","Operator='" & txtOperator & "'"),"Not found")

Now assuming you have the user press a btn_Login after typing their password (The button is mostly there because after typing their password, people have no place to go, thus LostFocus doesn't fit well for this event). So in the OnClick of the button:

If me.txtPassword & "" ="" then
  msgbox "You must type your password please."
  Exit Sub
End If
If Dlookup("Password","Tbl_Operators","Operator='" & Me.txtOperator & "'") & ""=me.txtPassword then
  Docmd.close
  Docmd.Openform "Your form name goes here"
else
  msgbox "Password does not match password in storage"
end if

Now while this should work, I strongly urge you to encode the passwords you store in a table, using a one-way encryption scheme. Otherwise the password will be readable straight from the table.

[Ryno Bower]

Hi,

Thanks for your reply. All working just fine!!

Thank you