Password Protecting a Form

[student2]

Hi.
I've placed the following code on the click event of a command button that leads to a form that is password protected:-

Private Sub cmdSales_Click()
  Dim strPasswd
  strPasswd = InputBox("Enter Password", "Restricted Form") 
  If strPasswd = "" Or strPasswd = Empty Then
  MsgBox "This Field cannot be left blank", vbInformation, "Required Data"
  Exit Sub
  End If
   
   If strPasswd = "HELP" Then
   DoCmd.OpenForm "SalesSub", acNormal
   End If
   Exit Sub
   End Sub

However, I want to be able to also show :-
1) a message box if the password entered is False/Incorrect ( I've tried "If strPasswd=False ) but this I realize is incorrect.

and

2) Instead of having my actual password shown as "HELP" in the prompt box that is displayed, I'd prefer to have it shown as "****".

Any assistance would be greatly appreciated.
Thanks again!

[ChipR]

For 1) use

If strPasswd = "HELP" Then
   ...
Else
   MsgBox "Bad Password!"
End If

2) The InputBox function is nice, but it doesn't support this. If you want to make your own form with a text box, you can set an input mask with *s.

[student2]

Ok, thanks a mil again.
Will try them both.

Thank you very much.

[ADezii]

I personally feel that Passwords should be case sensitive, in which case:

If StrComp(strPasswd, "HELP", vbBinaryCompare) = 0 Then
   '...
Else
   MsgBox "Bad Password!"
End If

P.S. = Help, HeLP, HELp, heLp, help, etc. will NOT pass the test, and result in the Message Box being displayed.

[student2]

Oh Ah! :-)
Thanks to you both!

tyvm