dim Rs As Dao.recordset
set Rs =RecordsetClone

Do until Rs.EOF
yn=uncheck
Rs.movenext
loop

ถ้าไม่ได้ก็แบบนี้
Dim Rs As Dao.Recordset
Set Rs = RecordsetClone

DoCmd.GoToRecord , , acFirst
Do Until Me.CurrentRecord = Rs.RecordCount + 1
   Me.t = uncheck
   DoCmd.GoToRecord , , acNext
Loop

เขียน มั่วๆ สักหน่อยแต่น่าจะใช้ได้

จะลองเอาไปใช้ดู
แล้วจะมารายงานให้ทราบ ครับผม

ยังไม่ได้เลยครับ มันยัง uncheck
ที่เคอร์เซอร์วางอยู่เหมือนเดิมครับ
นี่เป็นโค้ดทั้งหมดครับ
รบกวนดูให้หน่อยครับ
เผื่อผมใ่ส่อะไรอย่างอื่นผิดพลาด
มาโคร total คือ มาโครสั่งปริ๊นครับ

Private Sub Command112_Click()
On Error GoTo Err_Command112_Click
Dim stDocName As String

    stDocName = "total"
    DoCmd.RunMacro stDocName
    yn = uncheck
    
Exit_Command112_Click:
    Exit Sub
Err_Command112_Click:
    MsgBox Err.Description
    Resume Exit_Command112_Click
End Sub

ผมเข้าใจว่า Yn เป็น Record บน Form .ใช่หรือไม่ครับ
ส่วน totol เป็นชื่อ Report หรือเปล่าครับ
Form นี้เป็น Form ต่อเนื่องใช่ไหมครับ
Code มันน่าจะอย่างนี้นะ

Private Sub Command112_Click()

Dim stDocName As String
    stDocName = "total"
    DoCmd.RunMacro stDocName


Dim Rs As Dao.Recordset
Set Rs = RecordsetClone

DoCmd.GoToRecord , , acFirst
Do Until Me.CurrentRecord = Rs.RecordCount + 1
   Yn= uncheck
   DoCmd.GoToRecord , , acNext
Loop


End Sub

ทำได้แล้วครับ
ต้อง ขออภัยที่ อธิบายข้อมูลไม่ครบถ้วนด้วยครับผม

ขอบคุณ ท่าน Krathok-man
ที่กรุณาสละเวลามาช่วยเหลือครับ