ขอความช่วยเหลือเรื่องการสแกน barcode เพื่อเพิ่มสินค้าหน่อยครับ

[prajak]

รบกวนสอบถามอาจารย์ทุกท่านนะครับ คือผมจะทำฟอร์มโปรแกรมขาย โดยมีลักษณะเป็นฟอร์มที่มี main form และ subform โดยที่บน main form จะมี text box เพื่อรับค่า barcode เวลาเราสแกนบาร์โค้ดบนสินค้า1ครั้ง ก็ให้เพิ่มสินค้า item นั้นๆลงบน subform ยิงแต่ละอันก็เพิ่มลง subform ไปเรื่อยๆครับ

ปล.เคยมีอาจารย์ OddyWriter แนะนำไว้ก่อนหน้านี้ให้ใช้การ append query โดยใส่คำสั่ง append query บน event after update ของ text box scan barcode ผมทำได้แล้วครับ แต่อันนั้นเป็น form ที่ไม่มี subform พอมาเป็นแบบมี subform เลยทำไม่เป็นครับ

ทั้งนีผมได้แนบตัวอย่างฟอร์มมาให้ดูด้วยครับ รบกวนด้วยนะครับ

ปล.แล้วเป็นไปได้ไหมครับ หากสแกนแล้วเป็นบาร์โค้ดเดียวกัน คือสินค้าเป็นitemเดียวกัน ก็ให้นับจำนวนเพิ่มเข้าไปเลย
เช่นยิงครั้งที่1 สินค้าitem A = 1 ชิ้น พอยิงสินค้าA อีก จำนวนก็จะเพิ่มเป็น2ชิ้น โดยที่บรรทัดไม่เพิ่ม

[ศรี-นคร]

สามารถทำได้ครับ โดยใช้ DAO ช่วยจะทำให้ง่ายขี้น
แต่เนื่องจากไฟล์ตัวอย่างที่ให้มานั้นเป็นเวอร์ชั่นใหม่ รบกวน Convert ลงเป็น Access2002
ที่มีนามสกุล mdb แล้ว Upload เข้ามาใหม่ครับ เพราะผมใช้เวอร์ชั่นเก่า เลยไม่สามารถทำเป็นตัวอย่างให้ได้ครับ

[prajak]

สามารถทำได้ครับ โดยใช้ DAO ช่วยจะทำให้ง่ายขี้น
แต่เนื่องจากไฟล์ตัวอย่างที่ให้มานั้นเป็นเวอร์ชั่นใหม่ รบกวน Convert ลงเป็น Access2002
ที่มีนามสกุล mdb แล้ว Upload เข้ามาใหม่ครับ เพราะผมใช้เวอร์ชั่นเก่า เลยไม่สามารถทำเป็นตัวอย่างให้ได้ครับ

แปลง version ให้แล้ว ขอบพระคุณล่วงหน้านะครับ

[ศรี-นคร]

ได้ทำตัวอย่างมาให้ศึกษาเป็นแนวทางแล้วนะครับ
โดยมีการแก้ไขซื่อฟิลด์ที่ซื่อ ID ในบาง Table เพื่อให้มือใหม่ได้ตามถูก
เนื่องจากตัวอย่างต้นฉบับที่ได้มาใช้ฟิลด์ ชื่อ ID เหมือนกันหลาย Table อาจจะทำให้เกิดความสับสนได้

โดยตัวอย่างที่ทำให้มีทำตัวอย่างฟังค์ชั่นอื่นเพิ่มให้นิดหน่อย เพื่อ่ให้มองเห็นภาพได้เร็วขี้น

[prajak]

ได้ทำตัวอย่างมาให้ศึกษาเป็นแนวทางแล้วนะครับ
โดยมีการแก้ไขซื่อฟิลด์ที่ซื่อ ID ในบาง Table เพื่อให้มือใหม่ได้ตามถูก
เนื่องจากตัวอย่างต้นฉบับที่ได้มาใช้ฟิลด์ ชื่อ ID เหมือนกันหลาย Table อาจจะทำให้เกิดความสับสนได้

โดยตัวอย่างที่ทำให้มีทำตัวอย่างฟังค์ชั่นอื่นเพิ่มให้นิดหน่อย เพื่อ่ให้มองเห็นภาพได้เร็วขี้น

ขอบพระคุณมากๆนะครับ ผมมีคำถามครับ
1.เวลา Ad Record ใหม่ พิมพ์เลข barcode แล้วกด enter หรือกด tab จะไม่มีอะไรเกิดขึ้นครับ หรือบางครั้งก็ขึ้น error ตามรูป
2.กรณีเรายิง barcode เกิน เราจะลบยอดนั้นได้อย่างไรครับ เช่น item A ยิงไป4 แต่ของจริงแค่3 อยากลบออก1

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

[ศรี-นคร]

ให้ Download ตัวอย่างไฟล์อีกครั้งครับ
ผมมีการปรับให้ใหม่แล้ว

[prajak]

ให้ Download ตัวอย่างไฟล์อีกครั้งครับ
ผมมีการปรับให้ใหม่แล้ว

ได้แล้วครับ ไม่พบปัญหาดังกล่าวแล้ว
ปล.แล้วหากยิงรายการนั้นๆเกิน เราจะลบออกยังไงครับ

[ศรี-นคร]

ผมมีปรับตัวอย่างเพิ่ม เป็น Sample3.Zip
หากต้องการลบ รายการไหนให้คลิ๊เลือกแบบนี้แล้วกด Del

[prajak]

ผมมีปรับตัวอย่างเพิ่ม เป็น Sample3.Zip
หากต้องการลบ รายการไหนให้คลิ๊เลือกแบบนี้แล้วกด Del

อ๋อ ป่าวครับ หมายถึงว่ารายการเดียวกันที่ยิงแล้วเพิ่มจำนวนเป็น 1 2 3 หากเราต้องการลบยอดเหลือ2 ต้องทำยังไงครับ ถ้าลบทั้งแถวทำได้ครับ

[ศรี-นคร]

อันนี้ต้องทำหน้าแยกเพิ่มขี้นมาอีกอันในการยกเลิกรายการ โดยอาศัยหลักการเดียวกัน เพียงแต่จากบวกเพิ่มเป็นลบ

      rst2.Edit
      rst2!Qty = rst2!Qty - 1
      rst2.Update

หรือจะไปกำหนดให้ User ไปแก้จำนวนเอาก็ได้ที่ SubForm โดยไปดูที่ Property ของ SubForm : Editting แต่มีความเสี่ยงตรงแก้ผิด
วิธีที่ปลอดภัยสุดคือ ยิงด้วยเลขที InvNo --> ยิงบาร์โค๊ต เพื่อให้ระบบวิ่งไปตรวจสอบความถูกต้องแล้ว ค่อยลดจำนวน

ลองฝึกทำครับ แค่ประสบการณ์จะบังเกิด

[prajak]

อันนี้ต้องทำหน้าแยกเพิ่มขี้นมาอีกอันในการยกเลิกรายการ โดยอาศัยหลักการเดียวกัน เพียงแต่จากบวกเพิ่มเป็นลบ

      rst2.Edit
      rst2!Qty = rst2!Qty - 1
      rst2.Update

หรือจะไปกำหนดให้ User ไปแก้จำนวนเอาก็ได้ที่ SubForm โดยไปดูที่ Property ของ SubForm : Editting แต่มีความเสี่ยงตรงแก้ผิด
วิธีที่ปลอดภัยสุดคือ ยิงด้วยเลขที InvNo --> ยิงบาร์โค๊ต เพื่อให้ระบบวิ่งไปตรวจสอบความถูกต้องแล้ว ค่อยลดจำนวน

ลองฝึกทำครับ แค่ประสบการณ์จะบังเกิด

ขอบพระคุณมากๆเลยนะครับ เดี๋ยวผมลองทำดูครับ

[prajak]

ขอรบกวนอีกนิดนะครับ ถ้าผมต้องการลบ main form แล้วให้ ข้อมูลใน subform ลบไปด้วย ต้องเขียน code ยังไงครับ ตอนนี้ลบที่ main form แล้ว subform ไม่ลบตามครับ

[prajak]

ทำได้แล้วนะครับ
Private Sub Command33_Click()
If MsgBox("R U sure?", vbYesNo + vbDefaultButton2) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "delete from tbl_sub where ID_main= " & MainID
DoCmd.RunCommand acCmdDeleteRecord
End If
End Sub

[prajak]

รบกวนสอบถามเพิ่มเติมเกี่ยวกับรูปแบบเลขที่ Invoice ถ้าต้องการเพิ่มเดือนเข้าไปด้วยต่อจากปี ต้องแก้ตรงไหนบ้างครับ
Function GenInvNo()
    Dim rst1, rst2, rst3 As DAO.Recordset
    Dim vStkID, vInvID, vInv1, vInv2, IntMax, vValRef As Long
    Dim vStkNo, vInvNo, vInv As String
   
    Dim dbs As Database
    Set dbs = CurrentDb()
   
    If IsNull(Me.InvNo) Or (Me.InvNo = "") Then
        'สร้างเลขที่ Inv ใบใหม่
        vInv = "IV" & Format(Date, "yy")
        If DCount("Val(Right([InvNo],6))", "[tbl_main]", "Mid([InvNo],1,4) = '" & vInv & "'") = 0 Then
            vInvNo = vInv & "000001"
           
        Else
            IntMax = DMax("Val(Right([InvNo],6))", "[tbl_main]", "Mid([InvNo],1,4) = '" & vInv & "'")
            vInvNo = vInv & Format(IntMax + 1, "000000")
           
        End If
       
        'ใส่ค่าลงไป»
        Me.InvNo = vInvNo
   
    End If
   
End Function

[ศรี-นคร]

Function GenInvNo()
    Dim rst1, rst2, rst3 As DAO.Recordset
    Dim vStkID, vInvID, vInv1, vInv2, IntMax, vValRef As Long
    Dim vStkNo, vInvNo, vInv As String
   
    Dim dbs As Database
    Set dbs = CurrentDb()
   
    If IsNull(Me.INvNo) Or (Me.INvNo = "") Then
        'สร้างเลขที่ Inv ใบใหม่
        vInv = "IV" & Format(Date, "yy") & Format(Date, "MM")
        If DCount("Val(Right([InvNo],4))", "[tbl_main]", "Mid([InvNo],1,6) = '" & vInv & "'") = 0 Then
            vInvNo = vInv & "0001"
           
        Else
            IntMax = DMax("Val(Right([InvNo],4))", "[tbl_main]", "Mid([InvNo],1,6) = '" & vInv & "'")
            vInvNo = vInv & Format(IntMax + 1, "0000")
           
        End If
       
        'ใส่ค่าลงไป
        Me.INvNo = vInvNo
   
    End If
   
End Function

[prajak]

Function GenInvNo()
    Dim rst1, rst2, rst3 As DAO.Recordset
    Dim vStkID, vInvID, vInv1, vInv2, IntMax, vValRef As Long
    Dim vStkNo, vInvNo, vInv As String
   
    Dim dbs As Database
    Set dbs = CurrentDb()
   
    If IsNull(Me.INvNo) Or (Me.INvNo = "") Then
        'สร้างเลขที่ Inv ใบใหม่
        vInv = "IV" & Format(Date, "yy") & Format(Date, "MM")
        If DCount("Val(Right([InvNo],4))", "[tbl_main]", "Mid([InvNo],1,6) = '" & vInv & "'") = 0 Then
            vInvNo = vInv & "0001"
           
        Else
            IntMax = DMax("Val(Right([InvNo],4))", "[tbl_main]", "Mid([InvNo],1,6) = '" & vInv & "'")
            vInvNo = vInv & Format(IntMax + 1, "0000")
           
        End If
       
        'ใส่ค่าลงไป
        Me.INvNo = vInvNo
   
    End If
   
End Function

ได้แล้วครับ ขอบคุณมากนะครับ

[ศรี-นคร]

มีน้องอีกคน ไม่ทราบวิธี Save As ไฟล์จาก accdb --> mdb
ผมรบกวนเข้าไปแนะนำหน่อยครับ
https://www.thai-access.com/index.php?topic=2436.msg16060#new

[prajak]

มีน้องอีกคน ไม่ทราบวิธี Save As ไฟล์จาก accdb --> mdb
ผมรบกวนเข้าไปแนะนำหน่อยครับ
https://www.thai-access.com/index.php?topic=2436.msg16060#new

ได้ครับ