การทำ เลขที่ Invoice ต่างๆ (Year+Autonumber)
กระทู้เก่าบอร์ด อ.Yeadram

 3,869   3
URL.หัวข้อ / URL
การทำ เลขที่ Invoice ต่างๆ (Year+Autonumber)

อยากทราบว่ามีวิธีการใส่ code ใน MS Access

คืออยากให้ เป็นรูปแบบนี้ครับ

DYear-Autonumber (2010-0001) แล้วก็บวกเพิ่มไปเรื่อยๆ เหมือน Autonumber แล้ว Year ก็เปลี่ยนไปเองตามปีอัตโนมัติ

ยังไงรบกวนด้วยนะครับ

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

1 @R06149
ลองค้นหาในเวปบอร์ดนี้ด้วยคำว่า dmax จะเห็นตัวอย่างหลายแบบที่เกี่ยวกับการทำเลข running no.
2 @R06150
ขอบคุณครับ
3 @R06748
    'ตรวจสอบหมายเลข HN สุดท้าย
    If DCount("HN", "T_TPT_HN", "Year(Date)=" & Year(Now()) & " And Month(Date)=" & Month(Now()) & "") > 0 Then
        tHN = DMax("HN", "T_TPT_HN", "Year(Date)=" & Year(Now()) & " And Month(Date)=" & Month(Now()) & "") + 1
            Else
               'ตรวจสอบหมายเลข HN เมื่อเริ่มปี พ.ศ. ใหม่+ 1
               If Left(DMax("HN", "T_TPT_HN"), 4) = Right((Year(Now) + 543) - 543, 4) Then
                    tHN = DMax("HN", "T_TPT_HN") + 1
                        Else
                            tHN = (Right((Year(Now) + 543) - 543, 4)) * 1000000 + 1
               End If
        End If
ตัวเลข 1000000 หมายถึง จำนวนตัวเลขที่ตามหลังปี ค.ศ. เป็น 6 หลัก
ในตาราง กำหนด field 2 field คือ Date และ HN ซึ่ง HN=2010-000000
code ส่วนนี้เขียนไว้ที่ open form
และ code นี้ เขียนไว้ที่ ปุ่ม save
tHN=DMax("HN", "T_TPT_HN") + 1
เพื่อให้ หมายเลขรันเองต่อเนื่อง
ผมเขียนแบบนี้ Table กับ Form ไม่ได้มีความสัมพันธ์ระหว่างกัน
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.4036s