Code Stopped working

[ChoonBoy]

I am using Access 2003. The codes below works well, but suddenly it looses
its ability to locate a particular record. It will just go to another
unrelated record.
Any idea why, please advice, thanks

DoCmd.OpenForm "Expense Reports", , , , acEdit
If IsLoaded("Expense Reports") Then
If Forms![expense reports]![expense
subform].Form.RecordsetClone.RecordCount > 0 Then
DoCmd.FindRecord Forms![expense reports by group]![Expense
Reportka Subform].Form![ExpenseReportID]
End If
End If

 

[Mike Painter]

It seems to be looking for *any* value of ExpensseReportID. What makes it an
unrelated record?

 

[ChoonBoy]

Thanks for the reply,

I switched to this code which takes me to the exact record but unfortunately
I cannot scroll to others as it is filtered.

Dim stLinkCriteria As String

stLinkCriteria = "[Expenseid]&[expenserptname]= """ & Forms![expense reports
by group]![Expense Reportka Subform]![ExpenseID] & Forms![expense reports by
group]![Expense Reportka Subform]![ExpenseRptName] & """"
DoCmd.OpenForm ("Expense Reports"), acNormal, , stLinkCriteria, ,
acWindowNormal

It seems to be looking for *any* value of ExpensseReportID. What makes it an
unrelated record?

I am using Access 2003. The codes below works well, but suddenly it
looses its ability to locate a particular record. It will just go to
another unrelated record.
Any idea why, please advice, thanks

DoCmd.OpenForm "Expense Reports", , , , acEdit
If IsLoaded("Expense Reports") Then
If Forms![expense reports]![expense
subform].Form.RecordsetClone.RecordCount > 0 Then
DoCmd.FindRecord Forms![expense reports by group]![Expense
Reportka Subform].Form![ExpenseReportID]
End If
End If