VBA Password to Open a Form to Specific Record

[ttrautz]

Hello,



I have a button that opens a form, it has a password to access it. I want the form to open up to edit the current record. I keep getting an error "Run-time error '3075': Syntax error (missing operator) in query expression 'JOB NUMBER=1001'.

Currently I am using:

Private Sub btBILLING_Click()
Dim strPassword As String


strPassword = InputBox("Please enter the password: ")
If strPassword = "PASSWORD" Then
DoCmd.OpenForm "BILLING", , , "JOB NUMBER =" & Me!JobID
Else
Call MsgBox("The password you entered was incorrect")
End If
End Sub

Thanks!

[pbaldy]

The field name contains an inadvisable space, thus has to be bracketed.

[RuralGuy]

To add to Paul's post, it looks like the Password is a string value so your code will need to be:
DoCmd.OpenForm "BILLING", , , "[JOB NUMBER] ='" & Me!JobID & "'"

[pbaldy]

Password <> JobID.

[RuralGuy]

Ahhh...second cup of coffee done and by Jove you are absolutely correct.

[pbaldy]

I'm always correct...except when I'm wrong.

[RuralGuy]

Hmm...Me too!

[Micron]

In the interest of not wasting typed characters, the variable isn't actually needed.

Private Sub btBILLING_Click()
If InputBox("Please enter the password: ") = "Password" Then
  DoCmd.OpenForm "BILLING", , , "[JOB NUMBER] =" & Me.JobID
Else
  MsgBox("The password you entered was incorrect")
End If
End Sub

We all know that there is a finite number of characters left in the world, so let's start saving them, OK?

OK, the real reason for chiming in is that lately I seem to be on a Me! kick. If your code compiles and runs now, try this:
change Me!JobID to Me!JibID and compile again and see what happens. Then change Me!JibID to Me.JibID and try compiling again.
If your code doesn't compile now, then don't bother - you have other problems to worry about.