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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

17 ก.ค. 63 , 17:29:48
อ่าน 97 ครั้ง

cpu345

  • สมาชิกไท.Access
  • กระทู้: 1

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

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






 

17 ก.ค. 63 , 18:19:41
ตอบกลับ #1

UnKnown

: ขอคำแนะนำการเขียนโค้ดเพื่อ Gen เลข Auto
« ตอบกลับ #1 เมื่อ: 17 ก.ค. 63 , 18:19:41 »
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

ปล.กระทู้เกี่ยวกับระบบรันตัวเลข,รันเลขที่อัตโนมัติมีเยอะลองค้นหาดูได้ครับ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย