How do I test for exactness for a password in the InputBox?

[khughes46]

I have the following code to protect a form:


If InputBox(“Password?” <> “Oscar” Then
MsgBox "You are not authorized to open this form”
Cancel = True
End If

However if I type "oscar" it still opens. How do I make it look for "Oscar"?

[orange]

See this link on strComp options

[khughes46]

Private Sub Form_Open(Cancel As Integer)
Dim LResult As Integer
LResult = StrComp(InputBox("Password"), "Oscar", vbTextCompare)
If LResult = 0 Then
MsgBox "You are authorized to open this form"
Else
MsgBox "You are not authorized to open this form"
Cancel = True
End If

End Sub
The above code is still comparing Oscar and oscar as equal

[orange]

Put vbBinaryCompare instead of vbTextCompare

[trevor40]

i'm under thinking this i think

t= inputbox("Enter Password")
if t <> "Oscar" then
else
end if

or

if inputbox("Enter Password") <> "Oscar" then exit sub else docmd.openform "your form"