ขอคำแนะนำการเขียนโค้ดเพื่อ Gen เลข Auto

[cpu345]

ขอคำแนะนำในการเขียนโค้ด    กรณีกดปุ่ม ฺ  Command  และให้ Gen ตัวเลขใน Test box  หน่อยครับ   กรณีครั้งต่อๆไปก็ให้ บวกไปเรื่อยๆ 
เช่น   เลขครั้งนี้  11111    ครั้งต่อไปก็เป็น 11112  แบบนี้ครับ

[UnKnown]

Table1=เทเบิ้ล, NoId=คอลั่มน์ที่เก็บเลข, Command4=ชื่อปุ่ม, Text5=กล่องแสดงตัวเลขบนฟอร์มที่ผูกคอลั่มน์ NoId บนเทเบิ้ลแล้วด้วย

โค๊ด: [Select]

Private Sub Command4_Click()
Dim X As Variant
Dim bk As String
        X = DMax("NoId", "[Table1]")
        If IsNull(X) Then bk = 1 Else bk = X + 1
    Me!Text5 = Format(bk, "00000")
End Sub
ปล.กระทู้เกี่ยวกับระบบรันตัวเลข,รันเลขที่อัตโนมัติมีเยอะลองค้นหาดูได้ครับ