ก่อนอื่นต้องขออภัยอาจารย์ทุกๆท่านด้วยนะคะที่ทำให้ต้องเสียเวลา หนูเป็นมือใหม่น่ะค่ะ มีปัญหาเกี่ยวกับการทำ Auto Number ใน Form ค่ะ ก็ไปเจอกระทู้เก่าอยู่อันนึงค่ะ

คำตอบของคุณ krathok-man (R00057)
คือหนูไม่เข้าใจค่ะว่าตรงไหนแทนอะไร,ในฟอร์ม,ในQueryหรือในตาราง งงมากค่ะคิดว่าจะเอามาปรับใช้แต่ไม่สำเร็จสักที ไม่ทราบว่าต้องสร้าง ตารางใหม่หรือQueryใหม่ด้วยหรือเปล่าคะ กราบขอบพระคุณอาจารย์ทุกๆท่านที่สละเวลานะคะ

**คุณ krathok-man ได้ให้คำตอบถามว่า**


เขียนแบบ งูๆ ปลาๆ ถามอาจารย์สันติบ้าง หาจาก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