อยากให้เลขรัน เริ่มนับ 1 ใหม่เมื่อขึ้น ปีใหม่

[MAKI]

หนูอยากให้ เลขที่รันต่อกันเลื่อย ไปเริ่มนับ 1 ใหม่เมื่อเริ่มปีใหม่คะ

[PNR]

เพิ่มโค้ดอีกนิดใช้การเช็คปีของการลงข้อมูลด้วยครับ

พอมันไปเจอปีใหม่ข้อมูลก็จะรันกลับมา 1 ใหม่ครับ

โค๊ด: [Select]

Sub AutoRunnumber()
Dim MaxNum As Integer
MaxNum = Nz(DMax("ID", "tb_คำสั่ง", "[ปีงบ] = '" & CStr(Format(วันที่ลง, "YYYY")) & "'"))
If MaxNum = 0 Then
MaxNum = 1
Else
MaxNum = MaxNum + 1
End If
Me.ID = MaxNum
End Sub


[MAKI]

ขอบคุณมากๆเรยคะ

[MAKI]

ได้แล้วคะต้องใส่วันที่ก่อน แล้วค่อยใสปี