Possible to require a password for an on click event?

[3Mark3]

Hello all. I may be going about this the wrong way, but I'd like to password protect a control that will open another form. Is this possible? Or is there a better way to go about this?

 

[Remou]

Do you mean something quite insecure that will merely discourage continuing? If so, something on the lines of:

If Inputbox ("Enter password: ") <> "PassOK" Then
   Exit Sub
Else
   'Do whatever
End If

Might suit.

 

[ssatech]

Or:


Dim X as Variant
X = InputBox("Please enter the password to open this form:", "PASSWORD")
If X = "Your Password" then
DoCmd.OpenForm "frmSomething"
Else
MsgBox("You cannot open this form without a password.")
End if