จากหลายๆท่านได้เคยสอบถามการ Running Number บน Form มา

บางท่านก็เลือกใช้งานได้หลายๆแบบตามความเหมาะสมไม่ว่าจะเป็น
=IIf(IsNull([ID]),Null,myRunningSum([Form],"ID",[ID]))

หรือ

Function myRunningSum(myForm As Form, myFieldName As String, myFieldNumber As Long) As Long

    Dim rs As DAO.Recordset

    Set rs = myForm.RecordsetClone

    rs.FindFirst "[" & myFieldName & "] = " & myFieldNumber

    If Not rs.NoMatch Then

        myRunningSum = rs.AbsolutePosition + 1

    End If

    rs.Close: Set rs = Nothing

End Function

หรือ

Public Function Rec(A As Variant) As Variant
    Dim rst As DAO.Recordset
    Set rst = Me.RecordsetClone
If rst.RecordCount > 0 Then
rst.MoveLast
rst.MoveFirst
Else: Exit Function
End If
            Do Until rst.EOF
            If rst!A_NO = A Then
               Rec = rst.AbsolutePosition + 1
               Exit Function
              End If
            rst.MoveNext
            Loop
        rst.Close
        Set rst = Nothing
If Me.NewRecord Then GoTo Rec_Exit
Rec_Exit:
On Error Resume Next
rst.Close: Set rst = Nothing

End Function

ทั้งหมดนี้หากมี Record เยอะบน Form มันจะทำงานช้ามาก และก็จะค้างทำให้เลข Running ไม่หมดผมต้องเอาเม้าไปชี้ตั้งแต่ตัวที่ค้างไรจนถึงบรรทัดสุดท้ายถึงจะเห็นเลข Running จนครับ พอจะมีวิธีไหนที่ทำให้เลข Running ได้ไวขึ้นหรือไม่ครับ ผมเข้าใจว่าเลข Running ควรจะรันบนรายงานมากกว่าเพราะไม่ควรที่จะรันบนพอร์มเพราะมันไม่ได้ใช้ประโยชน์เต็มที่ หากอาจาร์ยมีวิธีใหม่ๆหรือวิธีที่ดีกว่าช่วยแนะนำและยกตัวอย่างให้ผมหน่อยครับ
ขอบคุณครับ