inputbox request

[AKA Sparkticus]

Trying to use an inputbox to ask user for a password to open a form
the input box opens and request input but no matter what I type it does not
accept

could someone tell me where or what is wrong

thanx in advance for your help

Private Sub Command7_Click()
On Error GoTo errhand
Dim strText As String
On Error GoTo errhand
strText = InputBox ("Enter Password")
If TxtTitle.Text = "password" Then
DoCmd.OpenForm EditForm
Else
MsgBox "Password not recognised"
End If
Exit Sub
errhand:
MsgBox "Error"

End Sub

 

[Rick Brandt]

Trying to use an inputbox to ask user for a password to open a form
the input box opens and request input but no matter what I type it does not
accept

could someone tell me where or what is wrong

You assign the value from the InputBox to one variable and then test a different
one.

 

[AKA Sparkticus]

yeah spotted that one but still get invalid qualifier on that line for the
..text but password not recognised took off the .text and still no joy

 

[AKA Sparkticus]

please forget about it wasnt the password that was the prob but the docmd

thanks for viewing Sparkticus