Cycling through records problem in a subform.

[dgmdvm]

I have a form named Services_subform and a subform of that named Serviceshistory_subform. Services_subform is a single form and ServicesHistory_subform is a datasheet form. There is a one-to many relationship between the tables that are the record sources for these subforms- tblServiceIstance for the Services_subform and tblServiceHistory for ServicesHistory_subform. The forms work correctly except for cycling through the records.



I created some arrow buttons on the Services_subform so that I could move between records on the Services_subform. When I push the button, it cycles through all the records on the ServicesHistory_subform first and then moves to the next record of the Services_subform. I don't want that behavior but not sure how to fix it. If I enable the navigation buttons on the subform it works correctly but I intend to disable those buttons.

Here is a sample of the the code for moving to the next record. I also have a similar script for moving to the previous record.

Private Sub CmdNextServiceInstance_Click()On Error GoTo Err_CmdNextServiceInstance_Click


 With Me.RecordsetClone
 
  If Not .EOF Then
      .MoveNext
       Me.Bookmark = .Bookmark
  Else
     Exit Sub
  End If
End With
    
Exit_Err_CmdNextServiceInstance_Click:
Exit Sub


Err_CmdNextServiceInstance_Click:
Msgbox Err.Description
Resume Exit_Err_CmdNextServiceInstance_Click
End Sub

Thanks

[June7]

If this code is behind Services_subform, why would it cycle through ServicesHistory_subform? This needs to be resolved.

If you want to provide db for analysis, follow instructions at bottom of my post.

[dgmdvm]

If this code is behind Services_subform, why would it cycle through ServicesHistory_subform? This needs to be resolved.

The code is on the services_subform; it doesn't make sense why. I'll make a stripped out copy tomorrow. I suspect the solution is easy, just don't know where to start.

[davegri]

Couldn't get that code to work, kept getting "No Current Record" at the bookmark line.
Here's what I've used to replace the navigation buttons with good luck:

Private Sub cmdFirst_Click()
    On Error Resume Next
    DoCmd.GoToRecord , , acFirst
End Sub
Private Sub cmdNext_Click()
    On Error Resume Next
    DoCmd.GoToRecord , , acNext
End Sub
Private Sub cmdPrevious_Click()
    On Error Resume Next
    DoCmd.GoToRecord , , acPrevious
End Sub
Private Sub cmdLast_Click()
    On Error Resume Next
    DoCmd.GoToRecord , , acLast
End Sub

[orange]

Not sure if this is helpful, but these videos from DataPig are often referenced.
http://www.datapigtechnologies.com/f...subforms1.html
http://www.datapigtechnologies.com/f.../subform2.html

[dgmdvm]

I found my error! The problem was not with either subform referenced above or their code. I have another subform that is part of a tabbed control. This 3rd subform serves as a summary sheet for the data on the forms listed above. The tabbed control has a query in it to allow late binding of the data when the tab is clicked. Instead of requerying the summary subform it was requerying the services_subform. My bad. Your answer gave me some direction anyway so I got it figured out.

Thanks for the help.