เขียนแบบ งูๆ ปลาๆ ถามอาจารย์สันติบ้าง หาจากWeb บ้าง แต่รับรองว่าใช้ได้ครับ
เพราะใช้มานาน การใช้ คือเอา primary key มาอ้างครับ
เช่น มี ID อยู่ก็ใช้
=rec1([id]) ครับ

แต่ผมใช้ บน FORM ถ้าใช้ ใน QUERY น่าจะคล้ายกันลองปรับเอานะครับ

Public Function Rec1(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!ID = a Then
               Rec1 = rst.AbsolutePosition + 1
               Exit Function
              End If
            rst.MoveNext
            Loop
        rst.Close
        Set rst = Nothing
If Me.NewRecord Then GoTo Rec1_Exit
Rec1_Exit:
On Error Resume Next
rst.Close: Set rst = Nothing
Exit Function
End Function

ทำได้แล้วครับ ขอบคุณมากครับ เว็บนี้เป็นแหล่งความรู้ที่เยี่ยมจริงๆ ครับ

ลองดูที่นี่ครับ http://access.crtrading.net/webboard/view.aspx?id=538

ผมอยากได้ไฟล์ตัวอย่างนะครับเพื่อเอาไว้ศึกษาการทำและจะได้นำไปประยุกต์ใช้ครับ ช่วยส่งผ่าน Mail ผมก็ได้ครับ Piyaphan@Se-ed.com ขอบคุณมากครับ

ปิยะพันธุ์: ไฟล์ตัวอย่างดูที่ Link ของคุณ Arsitkpnplus ข้างบนได้เลยครับ

ขอโทษครับเว็บของบริษัท ได้บล็อก เอาไว้ครับ ขอรบกวนส่งเป็น Mail ให้ผมได้ไหมครับ Piyaphan@Se-ed.com

คุณ ปิยะพันธุ์ ผมส่งให้ทาง Mail แล้วนะครับ

คุณ Arsitkpnplus คะ ดิฉันอยากได้ตัวอย่าง ลำดับที่ในคิวรี่/ในฟอร์ม มาศึกษาวิธีทำ เพื่อใช้ในการทำงาน *ตอนนี้เวลาลบเรคคอร์ดในฟอร์มย่อยก็ต้องไปพิมพ์เปลี่ยนลำดับคะ
รบกวนส่งให้ทางเมลล์ junejaew@hotmail.com หน่อยนะคะ ขอบคุณล่วงหน้าคะ

เพื่อเป็นประโยชน์ต่อคนอื่นๆ กรุณาช่วยส่งไปที่เมลกลางหน่อยได้ไหมคะ

ขอบคุณครับ

ถามกันมาบ่อยนะครับเรื่องนี้
ดูได้ที่
http://www.thai-access.com/yeadram_view.php?topic_id=2330
และ
http://www.thai-access.com/yeadram_view.php?topic_id=187

ผู้ใช้งานควรพิจารณาตามความเหมาะสมว่าควรเป็น query หรือ vba
ถ้ากรณีเป็น report ใช้ ความสามารถของ report ได้โดยตรง

function Rec1 ที่ว่านี่เอาไปเขียนไว้ที่ไหนหรอครับ ใช่ใน module หรือเปล่า
แล้วช่วยอธิบายบรรทัดนี้หน่อยได้มั๊ยครับ
if rst!ID =a then

ID นี่หมายถึงชื่อตัวแปรที่ใช้ในการนับใช่หรือเปล่าครับ
ผมลองทำตาม ดังนี้นะครับ
1.ผมวางโค้ด function Rec ไว้ที่ module ครับ
2.ผมเขียนโค้ดที่ text box ตรง control source ว่า =Rec1([no])
มันฟ้อง error แบบนี้ครับ

The expression you entered has a function containing the wrong number of arguments.
3.ชื่อตัวแปร no เป็น autonumber ครับ

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

ขอบคุณล่วงหน้าครับ