สร้าง Running goods_id เป็นแบบ auto ต่อจาก record สุดท้าย

[nat_c]

table goods  2 fields คือ goods_id และ  goods
Form goods มี 2 fields    name                control source
         goods_id             txt_goods_id     goods_id
         goods                 txt_goods          goods
format ของ goods_id  คือ AA-0000
***เมื่อจะ add ข้อมูลสินค้า  เมื่อป้อนข้อมูลที่รหัสสินค้า(goods_id) ใส่อักษร 2 ตัวครบ ลำดับถัดไป(-000X) แสดงให้อัตโนมัตเป็นลำดับใหม่ และอยู่ในกลุ่มอักษรเดียวกัน
อาจารย์พอจะมีโค๊ด แบบนี้ไหมคะ

[nat_c]

ตัวอย่างรหัสสินค้า(ใช้อักษรจัดหมวดหมู่)
    AA-0001    AA-0002  AA-0003
    AB-0001
    DC-0001
     FA-0001   FA-0002

[nat_c]

ไฟล์ตัวอย่าง

[PNR]

แก้ไขใหม่ โหลดไปนี้ไปลองดูครับ

โค๊ด: [Select]

Private Sub GroupText_AfterUpdate()
Call RunningID
End Sub

Sub RunningID()
Dim IntID As String
If Not IsNull(Me.GroupText) Then
IntID = Nz(DLookup("Maxgoods_id", "RunID", "LetterID='" & Me.GroupText & "'"), 0)
IntID = IntID + 1
Me.txtgoods_id = Me.GroupText & "-" & Right("0000" & IntID, 4)
Else
MsgBox "กรุณาระบุตัวอักษรกลุ่มให้ครบถ้วน", vbInformation, "ข้อผิดพลาด"
End If

End Sub

ตัวอย่างแก้ไขใหม่คับ

[nat_c]

AA-0000 input mask คือ >A>A;;_  ถ้า
  A-0000 input mask คือ >A>A;;_ เหมือนกันหรือ
ตอนที่ใส่หมวดอักษร บังคับให้ใส่อักษร 2ตัว  ไม่ใช่ใส่ตัวเดียวหรือ
ขอบพระคุณค่ะ
 

[PNR]

เมื่อจะ add ข้อมูลสินค้า  เมื่อป้อนข้อมูลที่รหัสสินค้า(goods_id) ใส่อักษร 2 ตัวครบ ลำดับถัดไป(-000X) แสดงให้อัตโนมัตเป็นลำดับใหม่

ตกลงตัวอักษรด้านหน้าเป็นแบบไหนกันแน่คับผมทำไปนั้น จำกัดไว้ให้ต้องคีย์ 2 ตัว

งั้นผมแก้ให้ใหม่โดย ตัวอักษรพิมพ์ใส่เอาเลยว่าอยากได้กี่ตัว มันจะรันเลขให้ตามกลุ่มของอักษรที่คีย์เข้าไปนะครับ
เช่นลำดับการบันทึกข้อมูล
     A     = A-0001
     AAA = AAA-0001
     A     = A-0002
     AAA = AAA-0002
     AA   = AA-0001


ตัวอักษรด้านหน้าผมไม่ Fix นะครับ

[nat_c]

ขอบคุณค่ะ อจ