Richard,

I searched previous post but didn't see additional information about a recordsetclone.

My main form is a continuous form. In my form footer I have a subform, also a continuous form.

I am attempting an after update of my main form on a check mark field that will update the form footers subform.

Right now, my code updates only the first record of the subform, not all the records. It also produces an error if no record exist for the subform. Can you point me in the right direction? I want to stay with VBA to use the similar code on anothe form rather than doing an update query.

Private Sub Process_AfterUpdate()
If Me![Process] = -1 Then
   Me![Process Date] = date

Dim rst As DAO.Recordset
Set rst = Me.SubfrmDetaineeReviewGroupOut.Form.RecordsetClone

        With rst
        Do Until rst.EOF

            'check to see if bagnum has value first
            If IsNull(Forms![Detention Group Edit1]!SubfrmDetaineeReviewGroupOut.Form!BagNum) Then Exit Do
            Forms![Detention Group Edit1]!SubfrmDetaineeReviewGroupOut.Form!Combo268 = 2
            rst.MoveNext
            Loop
            rst.Close
            End With
           Set rst = Nothing

MsgBox "My Message.", vbOKOnly, "Update when applicable"
    Me![Reason for Detention].SetFocus
    Me![Reason for Detention].Dropdown
Else: Me![Process Date] = ""
'check to see if bagnum has value first
If Not IsNull(Forms![Detention Group Edit1]!SubfrmDetaineeReviewGroupOut.Form.BagNum) Then
    Forms![Detention Group Edit1]!SubfrmDetaineeReviewGroupOut.Form.Combo268 = 1

End If
End If
End Sub

---

Reply from Richard Rost:

I don't like recordsetclones. Never have. Tell me what you're trying to DO (instead of showing me what you've got that's not working) and I'll try to suggest the best solution.