สอบถามวิธีทำให้ Text Box รันเลขพร้อมบันทึกลงตารางนะครับ

[UnKnown]

สวัสดีครับ เริ่มต้นคือผมมีรายการขายสินค้าเป็นแบบ Continuous Forms แต่สินค้าบางรายการจะขายเป็นชุด(ในช่องลำดับผมจึงเว้นใว้)
ทีนี้จะทำอย่างไรครับให้กล่องเป้าหมายเหมือนลำดับ และเมื่อขึ้นรายการสินค้าใหม่แล้วไม่มีการใส่ลำดับลงไปในช่อง ให้กล่องเป้าหมายใส่ค่าเดิมก่อนหน้าลงไปเองเลยนะ(ตามตารางตัวอย่าง) แถมบันทึกลงเทเบิ้ลด้วยต้องทำอย่างไรบ้างครับนี่
 

ลำดับ	กล่องเป้าหมาย	รวม
1	1
	1
	1	1 ชุด
2	2	1 ชิ้น
3	3
	3	1 ชุด
4	4	1 ชิ้น
...

[สันติสุข]

หลักการคือ พอขึ้นเรคอร์ดใหม่ปั๊ป ก็เอา "กล่องเป้าหมาย" ของบรรทัดสุดท้ายมาใส่พร้อมบันทึกเรคอร์ดครับ ก็ใส่โค้ดนี้ลงไปใน Form_Current event procedure

โค๊ด: [Select]

Private Sub Form_Current()

    Dim RS As DAO.Recordset
   
    If Me.NewRecord Then
        Set RS = Me.RecordsetClone
        If RS.RecordCount > 0 Then
            RS.MoveLast
            If Not IsNull(RS("ชื่อฟิลด์กล่องเป้าหมาย")) Then
                Me.ชื่อเท็กซ์บ็อกซ์กล่องเป้าหมาย = RS("ชื่อฟิลด์กล่องเป้าหมาย")
                DoCmd.RunCommand acCmdSaveRecord
            End If
        End If
        RS.Close
    End If
           
End Sub


[isuccess]

หลักการคือ พอขึ้นเรคอร์ดใหม่ปั๊ป ก็เอา "กล่องเป้าหมาย" ของบรรทัดสุดท้ายมาใส่พร้อมบันทึกเรคอร์ดครับ ก็ใส่โค้ดนี้ลงไปใน Form_Current event procedure

โค๊ด: [Select]

Private Sub Form_Current()

    Dim RS As DAO.Recordset
   
    If Me.NewRecord Then
        Set RS = Me.RecordsetClone
        If RS.RecordCount > 0 Then
            RS.MoveLast
            If Not IsNull(RS("ชื่อฟิลด์กล่องเป้าหมาย")) Then
                Me.ชื่อเท็กซ์บ็อกซ์กล่องเป้าหมาย = RS("ชื่อฟิลด์กล่องเป้าหมาย")
                DoCmd.RunCommand acCmdSaveRecord
            End If
        End If
        RS.Close
    End If
           
End Sub


ขอโทษด้วยน่ะครับ ผมมือใหม่มากกกครับ
คือไม่ทราบว่า โค้ดชุดนี้เอาไปวางไว้ตรงไหน ของ Form_Current event procedure ครับ
ขอบพระคุณครับ

[สันติสุข]

เปิดฟอร์มใน Design View > กด F4 เพื่อเปิด Property Sheet > เลือก Form ในช่อง Selection Type > คลิกที่แทป Event > เลือก [Event Procedure] ในบรรทัด On Current > คลิปปุ่ม ... ที่อยู่ท้ายบรรทัด > จะเห็น VBA Editor > เอาโค้ดตั้งแต่บรรทัด Dim ... จนถึง End If บรรทัดสุดท้ายใส่ลงใน Private Sub Form_Current()

[UnKnown]

นำไปใช้ได้ผล(เพิ่มเติมตรงหากมีการใส่ค่าลำดับให้ส่งค่ามา)ขอบคุณครับผม

ขอโทษด้วยน่ะครับ ผมมือใหม่มากกกครับ
คือไม่ทราบว่า โค้ดชุดนี้เอาไปวางไว้ตรงไหน ของ Form_Current event procedure ครับ
ขอบพระคุณครับ

ภาพตัวอย่างตาม อ.สันติสุข เลยครับ

[isuccess]

เปิดฟอร์มใน Design View > กด F4 เพื่อเปิด Property Sheet > เลือก Form ในช่อง Selection Type > คลิกที่แทป Event > เลือก [Event Procedure] ในบรรทัด On Current > คลิปปุ่ม ... ที่อยู่ท้ายบรรทัด > จะเห็น VBA Editor > เอาโค้ดตั้งแต่บรรทัด Dim ... จนถึง End If บรรทัดสุดท้ายใส่ลงใน Private Sub Form_Current()

-

นำไปใช้ได้ผล(เพิ่มเติมตรงหากมีการใส่ค่าลำดับให้ส่งค่ามา)ขอบคุณครับผม

ขอโทษด้วยน่ะครับ ผมมือใหม่มากกกครับ
คือไม่ทราบว่า โค้ดชุดนี้เอาไปวางไว้ตรงไหน ของ Form_Current event procedure ครับ
ขอบพระคุณครับ

ภาพตัวอย่างตาม อ.สันติสุข เลยครับ

ขอบพระคุณครับ