passwords

B

Bharat Iyengar

Greetings Doug,

On the Open event of the Form add a Input Box which will
prompt to enter the password and hardcode the password in
the Form .
If the Input box matches the hardcoded password then the
form is loaded Else Unload the Form.

Sample Code:
===============
Private Sub Form_Open(Cancel As Integer)
Dim str As String
str = InputBox("Enter a password")
If str = "ABC" Then
MsgBox "Hi"
Else
DoCmd.Close

End If
End Sub
===============
Best Regards

Bharat Iyengar
 
Top