Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Password Protect a Form 1
- Thread starter kshadden
- Start date
-
1
- #2
Try adding this to the open event of your form.
Dim strinput As String
strinput = InputBox("Please Enter Password")
If strinput = "password" Then
DoCmd.OpenForm "yourformname", acNormal
Else
MsgBox "Incorrect Password"
DoCmd.Close acForm, "yourformname"
Exit Sub
End If
Dim strinput As String
strinput = InputBox("Please Enter Password")
If strinput = "password" Then
DoCmd.OpenForm "yourformname", acNormal
Else
MsgBox "Incorrect Password"
DoCmd.Close acForm, "yourformname"
Exit Sub
End If
- Status
