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



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

07 ส.ค. 63 , 11:48:53
อ่าน 141 ครั้ง

MAKI

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


 

07 ส.ค. 63 , 13:14:09
ตอบกลับ #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
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI

07 ส.ค. 63 , 13:38:54
ตอบกลับ #2

MAKI

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

 

07 ส.ค. 63 , 13:55:08
ตอบกลับ #3

MAKI

ได้แล้วคะต้องใส่วันที่ก่อน แล้วค่อยใสปี
« แก้ไขครั้งสุดท้าย: 07 ส.ค. 63 , 14:00:46 โดย MAKI »

 


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