Expert: Geoff - 2/13/2005

Question
Hi,

this is me again and I need your help!

How can I add a password to a button, i.e. whenever someone clicked on this button he has to enter a password in order to proceed to the form which the button opens?

any help will be very much appreciated!

Thanks and Regards!
CS.

Answer
Hi CS,

If you add the following code behind the button click event the required functionality should be achieved:

Sub Button_Click()
   
   Dim strInput As String, strMsg As String

   strMsg = "Enter your password."
   strInput = InputBox(Prompt:=strMsg, _
       Title:="Form Security Check", XPos:=100, YPos:=100)

   ' The required password = "YOUR PASSWORD" case insensitive

   If UCASE(strInput) = "YOUR PASSWORD" Then
        DoCmd.OpenForm "frmYourFormname", acNormal
   Else
        MsgBox "Sorry wrong password."
   End If

End Sub

Hope this helps

Kind regards

Geoff
:-)