คุณต้องมีเทเบิลนึงที่มีอย่างน้อย 3 ฟิลด์ คือ
ฟิลด์สินค้า เช่น กาแฟลาเต้ (เป็น PrimaryKey)
ฟิลด์วัตถุดิบ เช่น น้ำตาล (เป็น PrimaryKey)
ฟิลด์อัตราส่วนของวัตถุดิบต่อสินค้า 1 หน่วย เช่น 2 (กาแฟ 1 แก้ว ใช้น้ำตาล 2 หน่วย)

แต่ถ้าของแต่ละอย่าง คุณออกแบบให้มีฟิลด์หน่วยนับแยกออกมาต่างหาก เทเบิลนี้ก็ต้องเพิ่มฟิลด์หน่วยนับของสินค้าและของวัตถุดิบ รวมเพิ่มเป็น 5 ฟิลด์ด้วย

เวลาจะตัดก็อ่านเทเบิลนี้เพื่อหาอัตราส่วนวัตถุดิบ แล้วก็ไปตัดสต็อก อ่านไปทีละเรคอร์ดจนกว่าจะหมดสินค้าที่ต้องการ(กาแฟลาเต้)

ช่วยทำ ตัวอย่าง ACCESS ง่ายๆ ให้ดูหน่อยได้ไหมครับ ไม่เข้าใจ

เช่นกาแฟ Late
ลด ผงกำแฟ2 น้ำตาล 2 ครีม1

สมมุติมีเทเบิล Material เพื่อเก็บยอดคงเหลือ และเทเบิล Ratio เพื่อเก็บอัตราส่วน

โครงสร้างและข้อมูลเป็นอย่างนี้

"MaterialName","BalQty"
"Cream",100
"Lemon",100
"Sugar",50
"Tea Leaf",50

"ProductName","MaterialName","Ratio"
"Coffee Latte","Cream",3
"Coffee Latte","Sugar",2
"Tea","Lemon",1
"Tea","Tea Leaf",2

โค้ดตอนที่ตัดสต็อกคือ

    
Private Sub btnCutStock(Qty As Integer)
    Dim sql As String
    Dim rs As DAO.Recordset
    
    sql = "select * from Ratio where ProductName = 'Coffee Lattee' "
    Set rs = CurrentDb.OpenRecordset(sql)
    Do Until rs.EOF
    
        CurrentDb.Execute "update Material set BalQty = BalQty - " + Str(Qty * rs("Ratio")) + " where MaterialName = '" + rs("MaterialName") + "' ", dbFailOnError
       
        rs.MoveNext
    Loop
    rs.Close