A
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
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