Filtering Records Problem

[Eddy]

I use the following code to find then open a form to a specific record.
rs.FindFirst "Field1 = '" & Forms!frm1!Field1 & "' AND Field2 = '" _
& Forms!frm1!Field2 & "'"
DoCmd.OpenForm "frm2", , , "Field1 = '" & Forms! frm1Field1 & "' AND
Field2 = '" _
& Forms!frm1!Field2 & "'"
The problem this method filters out all records but the one opened to. Even
if there may be 5 records the navigation button shows only 1 and I can not
view the other 4. Is there a means to open a form to a specific record yet
still view other records via the navigation button?

Thanks

 

[Rob Oldfield]

You basically need to open the form and then go to relevant record, instead
of filtering.... something like this...

'Find the relevant pk value
dim i as integer, crit As string
crit = "Field1 = '" & Forms!frm1!Field1 & "' AND Field2 = '" _
& Forms!frm1!Field2 & "'"
i = dlookup("[PKField]", "TableName", crit)

docmd.openform "frm2"
docmd.gotocontrol "PKFieldControlName"
DoCmd.FindRecord i, acAnywhere, , acSearchAll, , acCurrent