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


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

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

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
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI

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

MAKI

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

 

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

MAKI

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

 


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


 

Sitemap 1 2 3 4 5