สมัครสมาชิก
 

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



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

02 ต.ค. 62 , 14:09:24
อ่าน 120 ครั้ง

nat_c

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

  • ขอบคุณ ไท.Access

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

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) แสดงให้อัตโนมัตเป็นลำดับใหม่ และอยู่ในกลุ่มอักษรเดียวกัน
อาจารย์พอจะมีโค๊ด แบบนี้ไหมคะ

 

02 ต.ค. 62 , 14:21:34
ตอบกลับ #1

nat_c

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

  • ขอบคุณ ไท.Access

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

: สร้าง Running goods_id เป็นแบบ auto ต่อจาก record สุดท้าย
« ตอบกลับ #1 เมื่อ: 02 ต.ค. 62 , 14:21:34 »
ตัวอย่างรหัสสินค้า(ใช้อักษรจัดหมวดหมู่)
    AA-0001    AA-0002  AA-0003
    AB-0001
    DC-0001
     FA-0001   FA-0002

 

02 ต.ค. 62 , 14:35:31
ตอบกลับ #2

nat_c

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

  • ขอบคุณ ไท.Access

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

: สร้าง Running goods_id เป็นแบบ auto ต่อจาก record สุดท้าย
« ตอบกลับ #2 เมื่อ: 02 ต.ค. 62 , 14:35:31 »
ไฟล์ตัวอย่าง

 

02 ต.ค. 62 , 15:51:14
ตอบกลับ #3

PNR

: สร้าง Running goods_id เป็นแบบ auto ต่อจาก record สุดท้าย
« ตอบกลับ #3 เมื่อ: 02 ต.ค. 62 , 15:51:14 »
แก้ไขใหม่ โหลดไปนี้ไปลองดูครับ

โค๊ด: [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

ตัวอย่างแก้ไขใหม่คับ
« แก้ไขครั้งสุดท้าย: 05 ต.ค. 62 , 20:02:35 โดย PNR »
:meaw: :grin: :shout:
 

03 ต.ค. 62 , 15:14:24
ตอบกลับ #4

nat_c

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

  • ขอบคุณ ไท.Access

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

: สร้าง Running goods_id เป็นแบบ auto ต่อจาก record สุดท้าย
« ตอบกลับ #4 เมื่อ: 03 ต.ค. 62 , 15:14:24 »
AA-0000 input mask คือ >A>A;;_  ถ้า
  A-0000 input mask คือ >A>A;;_ เหมือนกันหรือ
ตอนที่ใส่หมวดอักษร บังคับให้ใส่อักษร 2ตัว  ไม่ใช่ใส่ตัวเดียวหรือ
ขอบพระคุณค่ะ
 

 

03 ต.ค. 62 , 16:00:20
ตอบกลับ #5

PNR

: สร้าง Running goods_id เป็นแบบ auto ต่อจาก record สุดท้าย
« ตอบกลับ #5 เมื่อ: 03 ต.ค. 62 , 16:00:20 »
อ้างถึง
เมื่อจะ add ข้อมูลสินค้า  เมื่อป้อนข้อมูลที่รหัสสินค้า(goods_id) ใส่อักษร 2 ตัวครบ ลำดับถัดไป(-000X) แสดงให้อัตโนมัตเป็นลำดับใหม่

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

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


ตัวอักษรด้านหน้าผมไม่ Fix นะครับ
« แก้ไขครั้งสุดท้าย: 03 ต.ค. 62 , 16:09:04 โดย PNR »
:meaw: :grin: :shout:
 

05 ต.ค. 62 , 14:37:52
ตอบกลับ #6

nat_c

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

  • ขอบคุณ ไท.Access

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

: สร้าง Running goods_id เป็นแบบ auto ต่อจาก record สุดท้าย
« ตอบกลับ #6 เมื่อ: 05 ต.ค. 62 , 14:37:52 »
ขอบคุณค่ะ อจ

 


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