String and Inputbox

[burrina]

Code: Select all

strpassword = inputbox("Please enter registration password", "Password Required") 

If strpassword = (DLookup("ExpPswd", "tblExpired", "ExpPswd='" & strpassword & "'")) Then 

I'm not sure this is correct!

[HansV]

That should work. Other ways of doing it (just the second line) are:

Code: Select all

If Not IsNull(DLookup("ExpPswd", "tblExpired", "ExpPswd='" & strpassword & "'")) Then

and

Code: Select all

If DCount("*", "tblExpired", "ExpPswd='" & strpassword & "'") > 0 Then

[burrina]

Many Thanks.