Code: Select all
strpassword = inputbox("Please enter registration password", "Password Required")
If strpassword = (DLookup("ExpPswd", "tblExpired", "ExpPswd='" & strpassword & "'")) Then
Code: Select all
strpassword = inputbox("Please enter registration password", "Password Required")
If strpassword = (DLookup("ExpPswd", "tblExpired", "ExpPswd='" & strpassword & "'")) Then
Code: Select all
If Not IsNull(DLookup("ExpPswd", "tblExpired", "ExpPswd='" & strpassword & "'")) Then
Code: Select all
If DCount("*", "tblExpired", "ExpPswd='" & strpassword & "'") > 0 Then