รบกวนขอไฟล์ตัวอย่างของการ รันเลขแบบมีตัวอักษรด้วยครับ

[pattan0013]

สวัสดีครับ ผมอยากจะขอรบกวนผู้รู้ที่มีไฟล์ตัวอย่างการรันเลขแบบมีตัวอักษรรวมอยู่ด้วยครับ ตัวอย่างเช่น ABC20030001 โดย

ABC คือหมวด
20 คือ ปี
03 คือเดือน
0001 คือเลขที่

และอยากให่เลขที่นับ 1 ใหม่ทุกเดือนครับ

[UnKnown]

ไฟล์ฉบับเหมือนจะง่ายไม่ผูกอะไรครับ
จากกระทู้เก่าท่านเห็นมี Value แยกหมวดอยู่ผมเลยแอบเอามาใส่ในนี้ให้มีเป็นแนวด้วยนะครับ หรือก็คือ ID จะรันแยกหมวดและปีเดือนครับ(แต่ Table2 จะไม่เทพอย่างท่าน PNR )

โค๊ด: [Select]

Private Sub cmd_QuNew_Click()
If IsNull(cmbG) Then
    Me.cmbG.SetFocus
    MsgBox "เลือกกลุ่ม"
Else
    Me.txtID = AutotxtID
End If
End Sub

Function AutotxtID() As String
Dim X As Variant
Dim bk, cmbG As String
    cmbG = Me.cmbG
    X = DMax("Right(ID,4)", "[Table1]", "Left([ID],7) = cmbG & Left([txtDate2], 4)")
    If IsNull(X) Then bk = 1 Else bk = X + 1
    AutotxtID = cmbG & Left([txtDate2], 4) & Format(bk, "0000")
End Function
หรือตัวอย่างของท่าน PNR มีระบบผูกตาราง,คิวรี่,ฯลฯ
https://www.thai-access.com/index.php?topic=1063.msg4744#msg4744

[pattan0013]

ไฟล์ฉบับเหมือนจะง่ายไม่ผูกอะไรครับ
จากกระทู้เก่าท่านเห็นมี Value แยกหมวดอยู่ผมเลยแอบเอามาใส่ในนี้ให้มีเป็นแนวด้วยนะครับ หรือก็คือ ID จะรันแยกหมวดและปีเดือนครับ(แต่ Table2 จะไม่เทพอย่างท่าน PNR )

โค๊ด: [Select]

Private Sub cmd_QuNew_Click()
If IsNull(cmbG) Then
    Me.cmbG.SetFocus
    MsgBox "เลือกกลุ่ม"
Else
    Me.txtID = AutotxtID
End If
End Sub

Function AutotxtID() As String
Dim X As Variant
Dim bk, cmbG As String
    cmbG = Me.cmbG
    X = DMax("Right(ID,4)", "[Table1]", "Left([ID],7) = cmbG & Left([txtDate2], 4)")
    If IsNull(X) Then bk = 1 Else bk = X + 1
    AutotxtID = cmbG & Left([txtDate2], 4) & Format(bk, "0000")
End Function
หรือตัวอย่างของท่าน PNR มีระบบผูกตาราง,คิวรี่,ฯลฯ
https://www.thai-access.com/index.php?topic=1063.msg4744#msg4744

ขอบคุณมากครับ

[pattan0013]

รบกวนครับ ผมไป adapt ตาม Table ผม กลายเป็นเลขข้างหลังไม่บวกครับ กดยังไงก็ยัง 0001 อยู่ดี รบกวนดูได้ไหมครับ

Private Sub cmd_QuNew_Click()
If IsNull(cmbG) Then
    Me.cmbG.SetFocus
    MsgBox "เลือกกลุ่ม"
Else
    Me.JobNo = AutotxtID
End If
End Sub
Function AutotxtID() As String
Dim X As Variant
Dim bk, cmbG As String
    cmbG = Me.cmbG
    X = DMax("Right(JobNo,4)", "[Export_Booking_Table]", "Left([JobNo],7) = cmbG & Left([txtDate2], 4)")
    If IsNull(X) Then bk = 1 Else bk = X + 1
    AutotxtID = cmbG & Left([txtDate2], 4) & Format(bk, "0000")
End Function

txtID คือช่องที่ต้องการให้ TE20050001 โชว์
txtDate คือที่ผมทำ Format ให้เป็น 2005

และปัญหาคือ 0001 พอเปิดอันที่ 2 มันไม่เป็น 0002 ครับ จาก Code ข้างผมพลาดตรงไหนครับ???
และ Combo box ที่ให้พนักงานเลือกมี TE, SE และ AE อยากให้ไม่ว่าเลือกตัวไหน เลข 0001 ก็รันต่อกันไปครับ

ขอบคุณครับ

[UnKnown]

จากเดิมอักษรย่อกลุ่มคือ TEX SEX และ AEX ซึ่งนับได้ 3 ตัวอักษร
ท่านใช้ TE, SE และ AE ซึ่งนับได้ 2 ตัวอักษร ดังนั้นแก้เลขตัวนี้ครับ
X = DMax("Right(JobNo,4)", "[Export_Booking_Table]", "Left([JobNo],6) = cmbG & Left([txtDate2], 4)")

ปล.ถ้าจากไฟล์ตัวอย่างแก้ชื่อย่อในเทเบิ้ลที่เก็บชื่อกลุ่มด้วยนะ

[pattan0013]

ขอบคุณมากครับ