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

ถ้าต้องทำจริงๆ อย่างนี้ครับ
- คุณต้องมีฟิลด์จัดเก็บข้อมูลเป็นตัวเลขแบบไม่ซ้ำกัน ในคำถามคุณ ฟิลด์ที่เป็น AutoNumber อย่างนี้ใช้ได้ครับ
- เขียนฟังก์ชั่นใน Module ตามนี้ครับ
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
- ใน TextBox ที่ต้องการให้แสดง ลำดับที่ บนฟอร์ม โดยสมมุติชื่อฟิลด์ในตารางข้อมูลที่เป็น AutoNumber ชื่อ ID เขียนคำสั่งใน Data > Control Source ดังนี้:
=IIf(IsNull([ID]),Null,myRunningSum([Form],"ID",[ID]))

ประมาณนี้ครับ ลองดูครับ

ขอบคุณครับ เดี๋ยวจะลองทำตามดูครับ

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

ท่านไดพอทราบ แวะเข้ามาแนะนำด้วยนะครับ

   เห็นด้วยกับ อ.PichaiTC ครับ คือไม่จำเป็นจะต้องแสดงลำดับที่ในฟอร์ม เพราะควรจะไปดูใน Report มากกว่าครับ

   วัตถุประสงค์ของฟอร์ม คือ เพื่อใช้บันทึกข้อมูล หรือเป็นตัวเชื่อมต่อการทำงานกับฐานข้อมูลหรือรายงาน เราไม่ได้ใช้ฟอร์มเพื่อให้ดูเป็นรายงานครับ เพราะ Output จริงๆที่จะใช้ดูหรือพิมพ์ออกมา คือรายงาน หรือ Report ต่างหากครับ แต่ถ้าอยากจะทำจริงๆ ก็ลองศึกษาฟังก์ชั่น GetNextCounter ดูก็ได้ครับ

How do I get row numbers shown in an MS Access Query?
TheCounter: GetNextCounter(myPkValue) This calls a new function, ... >> Microsoft Access MVP >> > >OK

http://us.generation-nt.com/answer/how-do-i-get-row-numbers-shown-an-ms-access-query-help-18619282.html

ขอบคุณ คุณSaifarครับ

พอดีเลี่ยงไม่ได้ครับ นายจะเอาครับ

จะลองศึกษาดูครับ