Auto Number ให้เรียงลำดับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย

 840   2 Auto Number ให้เรียงลำดับ

ตั้งชนิด Type เป็น Auto Number แล้วตอนที่ลบทั้งแถวจะลบลำดับไปด้วย ทำให้ลำดับต่อไปรันเลขต่อจากที่ลบ เช่น ลำดับ 1,2,3,4,5 ลบลำดับ 5 เพิ่มข้อมูลเข้าใหม่ ลำดับจะเป็น 1,2,3,4,6 อยากให้เลขรันเป็น 1,2,3,4,5 แบบรันต่อไปเรื่อยๆ ลบลำดับ 5 ออก ลำดับต่อไปก็ให้เป็น 5 แทนตัวที่ลบไป


2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R24397
ผมใช้วิธีตั้งชนิด 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 ให้เรียงลำดับ
ช่วยดูโค๊ดออร์โต้นัมเบอร์ให้หน่อยครับ
2 @R24400
ในโปรแกรมมันขึ้นว่าไม่รู้จัก Dmax อ่ะคะ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.7453s