มีคนถามไว้ที่ 
http://www.access-programmers.co.uk/forums/showthread.php?s=&postid=109539#post109539 
 
ดังนี้ 
Hi everyone,  
 
This is a fairly simple question:  
How can I make an autonumber field which numbers PRO-02-0001, PRO-02-0002 etc.?  
 
Any suggestions would be great! Thanks a lot.  
 
 
Jon 
 
ต้องการทำ AutoNumber แบบตัวอย่างที่เขาให้มา จะทำได้งัย 
 
ผมได้ถามเขาก่อนว่า ถ้าส่วนแรก (PRO-02-) ไม่เปลี่ยนแปลง ทำไม่ต้องใส่เข้าไปด้วย หรือมันเปลี่ยนไปตามเวลา เพราะเดาว่า -02- น่าจะแทนปี ถ้าต้องการให้มันแสดงอย่างนี้ ก็ทำตอนที่จะแสดงก็พอ จะได้ประหยัดพื้นที่เก็บ 
 
เขาบอกว่าต้องใช้แบบนี้ เพราะจะส่งออกไปใช้กับโปรแกรมอื่น ผมจึงให้โค้ดเขาไปดังนี้ 
 
สมมติว่าเขามีตารางที่เก็บชื่อ tblCustomers และมีฟีลด์ที่จะสร้าง AutoNumber ชื่อ ID 
 
Private Sub ID_DblClick(Cancel As Integer)  
Dim intMax As Integer  
Dim strPrefix As String  
 
strPrefix = "PRO-02-"  
 
If Me.ID = "" Or IsNull(Me.ID) Then  
    If IsNull(DMax("Val(Mid([ID],8))", "tblCustomers")) Then  
        Me.ID = strPrefix & "0001"  
    Else  
        intMax = DMax("Val(Mid([ID],8))", "tblCustomers")  
        intMax = intMax + 1  
        Me.ID = strPrefix & Format(intMax, "0000")  
    End If  
End If  
 
End Sub 
 
ส่วนกระทู้ที่ http://freeboard.ptcsweb.com/view_q.php?ruser=accesshotline&wbid=121 ผมก็แนะนำหลักการคล้ายๆ กันครับ *** Edited by Supap Chaiya *** 3/6/2546 21:00:41