Password Protect Forms Code

[spectraflame]

I am using the following code to password protect a form. However, if the user does not key anything into the password text box and clicks the OK button, the form still opens.

How do I add a statement to the code that will error out if the text box is blank?

Matthew
____

Private Sub Command3_Click()

On Error GoTo Err_Command3_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Form1"

If Me.Text0 <> "test" Then
MsgBox "Incorrect Password!"
Exit Sub

Else
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria
'DoCmd.OpenForm FormName = "Form1"
End If

Exit_Command3_Click:
Exit Sub

Err_Command3_Click:
MsgBox Err.Description
Resume Exit_Command3_Click

End Sub

 

[mdmilner]

Instead of a negative test, how about an affirmative test.
If the password is correct, do an action -- if it's not do nothing.

Mike

Private Sub Command3_Click() 

On Error GoTo Err_Command3_Click 
Dim stDocName As String 
Dim stLinkCriteria As String 
stDocName = "Form1" 

If Me.Text0  "test" Then 
  DoCmd.Close 
  DoCmd.OpenForm stDocName, , , stLinkCriteria 
  'DoCmd.OpenForm FormName = "Form1" 
Else 
  MsgBox "Incorrect Password!" 
End If 

Exit_Command3_Click: 
Exit Sub 

Err_Command3_Click: 
MsgBox Err.Description 
Resume Exit_Command3_Click 

End Sub

 

[spectraflame]

Thanks,

That does seem to be a more logical approach.

Matthew

 

[mdmilner]

Eek, somehow I edited out the equal sign for the If test.

 

[spectraflame]

I caught that oversight when I copied the code. No big deal.

Thanks again,
Matthew