อยากได้ตัวอย่าง access การทำ running number แบบ ปี เดือน รันเลข 3 ตำแหน่ง มือใหม



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

26 ก.ค. 61 , 11:34:57
ตอบกลับ #16

UnKnown

ทดสอบเปลี่ยนเดือน เลขสามตัวท้ายไม่กลับไปเริ่มนับ 001 นะครับ (ฉบับมาโครก็เช่นเดียวกัน)

  RunnungNum    myDate    Data 
  6107001   26-07-18    11
  6107002   26-07-18    22
  6108003   01-08-18    33
  6108004   01-08-18    44
  6109005   01-09-18    55
  6109006   01-09-18    66

 

26 ก.ค. 61 , 11:40:22
ตอบกลับ #17

OddyWriter

ทดสอบเปลี่ยนเดือน เลขสามตัวท้ายไม่กลับไปเริ่มนับ 001 นะครับ (ฉบับมาโครก็เช่นเดียวกัน)

  RunnungNum    myDate    Data 
  6107001   26-07-18    11
  6107002   26-07-18    22
  6108003   01-08-18    33
  6108004   01-08-18    44
  6109005   01-09-18    55
  6109006   01-09-18    66


ก็ไม่เปลี่ยนสิครับ เพราะลืมทำเงื่อนไขนั้นไว้

ลองดูไฟล์ใหม่ครับ
กินร้อน ช้อนตัวเอง จานใครจานมัน ออกนอกบ้านใส่หน้ากากอนามัยหรือหน้ากากผ้า
 
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown, TaroKung Ichimura

17 ต.ค. 61 , 19:41:07
ตอบกลับ #18

TaroKung Ichimura

  • สมาชิกไท.Access
  • กระทู้: 19

    • ดูรายละเอียด

ทดสอบเปลี่ยนเดือน เลขสามตัวท้ายไม่กลับไปเริ่มนับ 001 นะครับ (ฉบับมาโครก็เช่นเดียวกัน)

  RunnungNum    myDate    Data 
  6107001   26-07-18    11
  6107002   26-07-18    22
  6108003   01-08-18    33
  6108004   01-08-18    44
  6109005   01-09-18    55
  6109006   01-09-18    66


รบกวนสอบถามครับ พอดีผมลองโหลดมาแล้วลองเอาโค้ดมาปรับอิงตามไฟล์งานผม พอลองเปลี่ยนเดือนแล้วเลขมันไม่ขึ้น 001 ใหม่ครับ ไม่แน่ใจว่าเงื่อนไขที่ว่าคือส่วนไหนครับ

Private Sub Name_AfterUpdate()
    ID = Format([date], "yymm") & Right("000" & DCount("[ID]", "[tbl_Tet]", "Left([ID],4) = Format([date],'yymm')") + 1, 3)
End Sub

***
ทำได้แล้วครับ ผมสับสนเอง ขอโทษด้วยนะครับ
« แก้ไขครั้งสุดท้าย: 17 ต.ค. 61 , 19:52:07 โดย TaroKung Ichimura »

 


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