Private Sub Command4_Click()
Dim vPass As String
If IsNull([usernametxt]) = True Then
MsgBox "Username is required", vbOKOnly, "Required Data"
ElseIf IsNull([answertxt]) = True Then
MsgBox "Password is required", vbOKOnly, "Required Data"
End If
' Evaluate filter before it is passed to DLookup function.
strFilter = "[USERNAME]= '" & Me.usernametxt & "' And [ANSWER]= '" & Me.answertxt & "'"
' Look up product's unit price and assign it to the UnitPrice control.
vPass = DLookup("PASSWORD", "SYS_USER", strFilter)
If IsNull(vPass) = False Then
Me.passwordtxt.Value = vPass
Else
MsgBox "You have entered an incorrect username or answer."
End If
End Sub
i use this code to run a forget password in a login system.
it works just fine, but have one error if u entered wrong information it gives me invalid use of null and points at(vPass = DLookup("PASSWORD", "SYS_USER", strFilter).