FindRecord problem

[Guest]

I'm having difficulty with the FindRecord method. I want to have a user doubleclick a record in a form to open another form and locate the selected record. FindRecord works for the first 50 records, but not for any after that. Also, I've used the exact same code on a separate form to perform the same actions and it works for all records in that instance. Here's the code for the first form:

Private Sub Form_DblClick(Cancel As Integer)
If Not IsNull(Me![Person ID]) Then
DoCmd.OpenForm "Person Details"
DoCmd.GoToControl "Person ID"
DoCmd.FindRecord Forms![Administration Form]![Subform Control].Form![Person ID], A_ENTIRE
End If
End Sub

The app seems to be executing the code before all records are loaded, which would explain why the first 50 records work, but no others. Also, the recordset for the non-working form contains about 800 records, while the other one that works only has 200.

I've also tried moving the code to the OnOpen, OnLoad, and OnActivate events of the form I'm trying to open. None of these work.

 

[Steve Schapel]

Mike,

It would be easier to do like this...

Private Sub Form_DblClick(Cancel As Integer)
DoCmd.OpenForm "Person Details", , , "[Person ID]=" & Me.Person_ID
End Sub