ในตาราง ได้มีการบันทึกจำนวนสินค้า ตอนขาเข้ามาหรือเปล่าครับ
มันเป็นรายการอยู่ในตารางไหน ตารางเดียวกันกับข้อมูลการขายหรือเปล่า
ถ้ามันอยู่ในตารางเดียวกันฟิลด์เดียวกัน

งานของคุณคือการลบ
คุณก็เริ่มหาตัวตั้ง ด้วยการ sum ยอดซื้อ
แล้วคุณก็หาตัวลบ ด้วยการ sum ยอดขาย
เอามันมาลบกัน คุณก็จะได้ ยอดคงเหลือปัจจุบัน
ทีนี้ เอายอดคงเหลือปัจจุบันเป็นตัวตั้ง แล้วเอายอดที่เพิ่งคีย์ขาย มาหักลบ ก็ได้แล้วครับ


ถ้ารายการซื้อเข้า , โอนเข้า รับเข้าอื่นๆ มีชนิดเอกสารคือ t_in การ sum ยอดขาเข้าก็จะได้โค้ด
Dsum("Quantity", "table1","Doc_Type = 't_in'")
แล้วการ sum ยอดขาออก ก็กลับกัน
Dsum("Quantity", "Table1", "DocType = tOut")
เอามาลบกัน แล้วเก็บค่าเข้าตัวแปร BLstock
ถ้าอยากให้ข้อมูลโชว์ทันที่ ที่คีย์ ขายบนฟอร์ม ก็เขียนต่อประมาณว่า
txคงเหลือ = BLstock - me.txจำนวน

มันอยู่คนละตารางอ่ะคะ

คงเหลือปัจจุบันจะมีในตาราง สินค้า

ถ้าต้องการแสดงผล
ก็ ใช้ Dlookup เอาเหมือนเดิม แค่เปลี่ยนชื่อตารางใน dlookup ไม่ว่ามันจะอยู่ที่ไหนก็เอามันออกมาเป็นตัวตั้งได้แล้วครับ
ส่วนตัวลบ ก็เหมือนเดิม ดึงจาก textbox ที่เพิ่งคีย์เข้าไป

เอามาลบกัน แล้วอาจให้มันไปแสดงผลลัพธ์ ที่ textbox ที่ต้องการก็ได้

ส่วนถ้าต้องการให้บันทึกผลลัพธ์ในตารางด้วย
ก็ทำงานไปตามปกติบนฟอร์มครับ ก่อนจะสั่งบันทึกข้อมูลในเรคคอร์ดนี้ ก็เพิ่มคำสั่งให้ อัพเดตข้อมูลในตารางสินค้า

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

ถ้าถนัดเขียนโค้ด ก็ฝังโค้ดในเหตุการณ์ที่ต้องการ สั่งให้รัน sql ซึ่งสายอักขระ SQL ที่จะนำมาต่อกัน ก็ต้องมีการอ้างอิงถึง textbox ตัวที่เพิ่งคีย์เหมือนกันครับ

docmd.runsql "Update ตารางสินค้า Set คงเหลือ = คงเหลือ - " & me.txQuantity & " Where รหัสสินค้า = '" & me.txรหัสสินค้า & "'"

ขอบคุณมากเลยค่ะ