Problem getting a form to run (filtering)

[fmm]

Here's the problem:

I'm trying to enter a value on form1 and have form2 open to that record, but be able to navigate to records before & after the target record.

Here's the code I'm using:

********************************

Private Sub Form_Open(Cancel As Integer)
Dim strTgt As String
Dim rst As Recordset

strTgt = [Forms]![form1]![CFNumber]
Set rst = Me.RecordsetClone
rst.FindFirst strTgt
Me.Bookmark = rst.Bookmark

End Sub

********************************

Where CFNumber is the ID of the record I'm looking for.

I get the following error message (paraphrased):
"Run time error '3070'. The microsoft jet database engine does not recognoze 'CF000100' as a valid field name or expression."

CF000100 is the value entered to find the record.

Any ideas? Thanks!

 

[fmm]

Found it!


Change to:

strTgt = "ClaimFormNumber = '" & [Forms]![form1]![CFNumber] & "'"