RUN NO เป็น ปี-เดือน-์NO ทำอย่างไร
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 387   1
URL.หัวข้อ / URL RUN NO เป็น ปี-เดือน-์NO ทำอย่างไร

ต้องการ RUN NO เป็น ปี-เดือน-์NO ทำอย่างไร เมื่อเราเพิ่ม record ไปแล้ว ให้โปรแกรมอ่านค่าจากวันที่ ที่ลง แล้วออก NO ให้ โดยเรียง NO ตามรูปแบบ ปี-เดือน-NO เช่น 45-01-0001 หากมีข้อมูลในเดือน มค.45 อีก ก็เป็น 45-01-0002 ไปเรื่อย ๆ แต่พอถึงเดือนถัดไป เช่น ขึ้นเดือน กพ.45 ก็ให้เริ่มเป็น 45-02-0001 ไปเรื่อย ๆ จะเขียน code บน form อย่างไรครับ รบกวนช่วยตอบด้วยครับ ขอบคุณครับ
โดย: มานิต เมื่อ: 28 ก.พ. 2545 , 05:51

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R00177
ผมทำตัวอย่างโค้ดให้ ซึ่งมีคนถามเกี่ยวกันเรื่องนี้ไว้ค่อนข้างมาก ทั้งในไทยและต่างประเทศ จากตัวอย่างผมทำงานกับตารางชื่อ tblSell12 โดยมีฟีลด์ชื่อ ID และเรียกใช้ฟอร์มชื่อ frmSell13 ผมจะใส่โค้ดกับ On Double Click ของ ID ครับ Private Sub ID_DblClick(Cancel As Integer) Dim strDate As String Dim intNum As Integer, intMax As Integer Dim strSuffix As String strDate = Format(Date, "bb-mm") If Me.ID = "" Or IsNull(Me.ID) Then If IsNull(DMax("Val(Mid([ID],7))", "tblSell12", "Left([ID],5) = '" & strDate & " '")) Then Me.ID = strDate & "-" & "0001" Debug.Print "1" Else intMax = DMax("Val(Mid([ID],7))", "tblSell12", "Left([ID],5) = '" & strDate & " '") intMax = intMax + 1 Me.ID = strDate & "-" & Format(intMax, "0000") Debug.Print "1" End If End If End Sub ตัวอย่างจริงอยู่ที่ http://agserver.kku.ac.th/basiceng/manitautoid.zip ครับ หรือจะดูอีกตัวอย่างหนึ่งที่ฝรั่งเขาถามผมไว้ที่ http://www.quicktechusa.com/msgboard/wwwboard.pl?read=15122 โดยตัวอย่างจริงอยู่ที่ http://agserver.kku.ac.th/basiceng/rompers.zip
โดย: สุภาพ เมื่อ: 28 ก.พ. 2545 , 09:10
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0663s