ผมใช้วิธีตั้งชนิด Type เป็น "ข้อความสั้น"
แล้วสั่งรันเลขที่ด้วยปุ่มคำสั่งบนฟอร์ม

Private Sub Cmd_AddNew_Click()
        Me.Bill_Nooo = AutoNo
End Sub

Function AutoNo() As String
Dim X As Variant
Dim bk As String
        X = DMax("Right(Bill_No,5)", "T_Bill No")
        If IsNull(X) Then bk = 1 Else bk = X + 1
    AutoNo = Format(bk, "00000")
End Function

เมื่อเราลบลำดับท้ายสุดออกไป สคลิปนี้ก็จะไปแทนที่ได้ด้วยตัวมันเอง
(แต่ถ้า 1,2,3,4,5 ลบ 3 ออก = 1,2,4,5 มันต่อ 6 ให้ไม่แทนที่ค่าว่างให้นะ)
แทนค่าตัวแปลไหนอย่างไรลองค้นดูในเว็บครับ *เยอะมาก"

ตัวอย่างค้นว่า AutoNo = Format
สร้างปุ่มรัน Autonumber
Auto Number ให้เรียงลำดับ
ช่วยดูโค๊ดออร์โต้นัมเบอร์ให้หน่อยครับ

ในโปรแกรมมันขึ้นว่าไม่รู้จัก Dmax อ่ะคะ