Password Protect Form

[DHSBob]

I am trying to password protect a form. I am terrible in coding and tried to
use the code from other posts but it didn't work. Here is the code for the
button to access the form. Would someone be kind enough to help me with this?

Private Sub Command13_Click()
On Error GoTo Err_Command13_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_Office Update"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command13_Click:
Exit Sub

Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click

End Sub

 

[Golfinray]

Put this in the onclick event on the command button. Try

Dim strPassword As String
strPassword - Inputbox("enter your password")
If strPassword = "whatever you want their password to be" then
DoCmd.openform "yourformyouwantto open",,,, acForm
else
end if

 

[Daniel Pineault]

Take a look at http://support.microsoft.com/kb/209871/en-us it should be
exactly what you are looking for.

 

[Arvin Meyer [MVP]]

I use the api code to identify the Windows authenticated username:

http://www.mvps.org/access/api/api0008.htm

and simply add the If statement to the form's code:

If fOSUserName() = "Arvin" Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "You are not allowed to use this form", vbOKOnly
DoCmd.CancelEvent
End If

With the construct above, only I can get in. If there's more than I, use an
OR statement or a Select Case statement, or save the names in a table and
look the name up. This way you can assure which user is allowed without
having to deal with a password.

 

[DHSBob]

I know this should work but I must be doing something wrong.

 

[DHSBob]

This looks really good also but again, I couldn't make it work.

 

[Arvin Meyer [MVP]]

Try this one:

Private Sub Form_Open(Cancel As Integer)
If InputBox("Type the secret word") = "Groucho" Then
Else
Cancel = True
End If
End Sub

 

[poohtender]

Daniel, First I want to say I am very new at this and have no training so I
am learning this all by trial and error so please forgive me if I sound
stupid. I used the information from your link to create a protected form for
my database and it worked fine. However how would I change the password in
this method to one of my choosing.

 

[lmossolle]

Under what category do you put this under?

I use the api code to identify the Windows authenticated username:

http://www.mvps.org/access/api/api0008.htm

and simply add the If statement to the form's code:

If fOSUserName() = "Arvin" Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "You are not allowed to use this form", vbOKOnly
DoCmd.CancelEvent
End If

With the construct above, only I can get in. If there's more than I, use an
OR statement or a Select Case statement, or save the names in a table and
look the name up. This way you can assure which user is allowed without
having to deal with a password.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com