กระทู้เก่าบอร์ด อ.Yeadram
4,052 3
URL.หัวข้อ /
URL
การทำ เลขที่ Invoice ต่างๆ (Year+Autonumber)
อยากทราบว่ามีวิธีการใส่ code ใน MS Access
คืออยากให้ เป็นรูปแบบนี้ครับ
DYear-Autonumber (2010-0001) แล้วก็บวกเพิ่มไปเรื่อยๆ เหมือน Autonumber แล้ว Year ก็เปลี่ยนไปเองตามปีอัตโนมัติ
ยังไงรบกวนด้วยนะครับ
คืออยากให้ เป็นรูปแบบนี้ครับ
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 ไม่ได้มีความสัมพันธ์ระหว่างกัน
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 ไม่ได้มีความสัมพันธ์ระหว่างกัน
Time: 0.6011s
