ลองค้นในเวปบอร์ดนี้ด้วยคำว่า "running no" หรือ "run no" หรือ "รันเลขที่" ดูครับ มีการพูดถึงเยอะแล้ว

สมมติ Field ที่ใช้ Running No ชื่อ DocNo
ไปที่ Design ของ Form ที่ต้องการ
คลิก Mouse ขวาที่ Filed ที่ชื่อ DocNo
เลือก Properties > เลือกที่ Tap ชื่อ Event > เลือก On Dbl Click
แล้วใส่ Code ข้างล่างนี้ลงไป

Dim strDate As String
Dim intNum As Integer, intMax As Integer
Dim strSuffix As String

strDate = Format(Now(), "yymm")

If Me.DocNo = "" Or IsNull(Me.DocNo) Then
    If IsNull(DMax("Val(Mid([DocNo],8))", "TblDocNo", "Mid([DocNo],4,4) = '" & strDate & " '")) Then
        ' ถ้าอักษรที่นำหน้า 2 ตัว ใส่เลข 7 แทนเลข 8                             และใส่เลข 3,4 แทนเลข 4,4
        ' ถ้าอักษรที่นำหน้า 3 ตัว ใส่เลข 8 แทนเลข 7                             และใส่เลข 4,4 แทนเลข 3,4
        Me.DocNo = "AST" & strDate & "001"
       
    Else
        intMax = DMax("Val(Mid([DocNo],8))", "TblDocNo", "Mid([DocNo],4,4) = '" & strDate & " '")
          ' ถ้าอักษรที่นำหน้า 2 ตัว ใส่เลข 8 แทนเลข 7                             และใส่เลข 3,4 แทนเลข 4,4
          ' ถ้าอักษรที่นำหน้า 3 ตัว ใส่เลข 8 แทนเลข 7                             และใส่เลข 4,4 แทนเลข 3,4

        Select Case intMax
            Case Is >= 99
               Me.DocNo = "AST" & strDate & "" & intMax + 1

            Case Is >= 9
               Me.DocNo = "AST" & strDate & "0" & intMax + 1

            Case Is < 9
               Me.DocNo = "AST" & strDate & "00" & intMax + 1

            End Select
            
    End If
    
End If

เวลาใช้งาน ก็เปิด Form ขึ้นมา แล้วทำการ Double click ที่ Field ชื่อ DocNo
ลองดูครับ
ขอบพระคุณมากๆ ครับ