การใช้สูตรคำนวณในแต่ละฟิลด์

[Mercury]

อยากคำนวณคล้ายๆ Excel ค่ะแบบเวลาใส่สูตรว่าช่องจำนวนรับเข้า คูณกับช่องจำนวนลัง
จะได้หน่วยที่เป็นชิ้นออกมาแล้ว เสร็จแล้วนำจำนวนชิ้นที่ได้นำมาบวกกับช่องจำนวนชิ้นแล้วได้เป็นผลรวมของชิ้นออกมาค่ะ

ตัวอย่างค่ะ
สมการที่ 1 : จำนวนรับเข้า*จำนวนลัง = จำนวนชิ้น 
สมการที่ 2 : จำนวนชิ้น+จำนวนชิ้นจ่ายออก=ผลรวมจำนวนชิ้น

[PNR]

สมการที่ 1 : จำนวนรับเข้า*จำนวนลัง = จำนวนชิ้น 
สมการที่ 2 : จำนวนชิ้น+จำนวนชิ้นจ่ายออก=ผลรวมจำนวนชิ้น


จำนวนชิ้น = nz([จำนวนรับเข้า],0) * nz([จำนวนลัง],0)

ผลรวมจำนวนชิ้น = nz([จำนวนชิ้น],0) + nz([จำนวนชิ้นจ่ายออก],0)

[Mercury]

สมการที่ 1 : จำนวนรับเข้า*จำนวนลัง = จำนวนชิ้น 
สมการที่ 2 : จำนวนชิ้น+จำนวนชิ้นจ่ายออก=ผลรวมจำนวนชิ้น


จำนวนชิ้น = nz([จำนวนรับเข้า],0) * nz([จำนวนลัง],0)

ผลรวมจำนวนชิ้น = nz([จำนวนชิ้น],0) + nz([จำนวนชิ้นจ่ายออก],0)

สอบถามเพิ่มเติมค่ะต้องวางสูตรที่ไหนคะ ใส่ในช่องฟอร์มได้เลยมั้ยคะ

[PNR]

สมการที่ 1 : จำนวนรับเข้า*จำนวนลัง = จำนวนชิ้น 
สมการที่ 2 : จำนวนชิ้น+จำนวนชิ้นจ่ายออก=ผลรวมจำนวนชิ้น


จำนวนชิ้น = nz([จำนวนรับเข้า],0) * nz([จำนวนลัง],0)

ผลรวมจำนวนชิ้น = nz([จำนวนชิ้น],0) + nz([จำนวนชิ้นจ่ายออก],0)

สอบถามเพิ่มเติมค่ะต้องวางสูตรที่ไหนคะ ใส่ในช่องฟอร์มได้เลยมั้ยคะ

ถ้าให้คำนวนตลอด ไว้ที่ form_current
หรือ สร้าง sub แล้วกำหนดevent Afterupdate ของ textbox ที่ใช้คำนวน ครับเช่น

Sub CalculateTotal
จำนวนชิ้น = nz([จำนวนรับเข้า],0) * nz([จำนวนลัง],0)
ผลรวมจำนวนชิ้น = nz([จำนวนชิ้น],0) + nz([จำนวนชิ้นจ่ายออก],0)
end sub


Private sub จำนวนรับเข้า_Afterupdate
Call CalculateTotal
end sub
Private sub จำนวนลัง_Afterupdate
Call CalculateTotal
end sub
Private sub จำนวนชิ้นจ่ายออก_Afterupdate
Call CalculateTotal
end sub
Private sub จำนวนลัง_Afterupdate
Call CalculateTotal
end sub

หมายเหตุดูว่า มีการเพิ่มข้อมูล textbox ไหน ก็วาง call ที่ event afterupdate textbox นั้นเพื่อให้ผลรวมจำนวนชิ้น คำนวนทุกครั้งที่ระบุจาก textbox ที่เกี่ยวข้อง

[Mercury]

สมการที่ 1 : จำนวนรับเข้า*จำนวนลัง = จำนวนชิ้น 
สมการที่ 2 : จำนวนชิ้น+จำนวนชิ้นจ่ายออก=ผลรวมจำนวนชิ้น


จำนวนชิ้น = nz([จำนวนรับเข้า],0) * nz([จำนวนลัง],0)

ผลรวมจำนวนชิ้น = nz([จำนวนชิ้น],0) + nz([จำนวนชิ้นจ่ายออก],0)

สอบถามเพิ่มเติมค่ะต้องวางสูตรที่ไหนคะ ใส่ในช่องฟอร์มได้เลยมั้ยคะ

ถ้าให้คำนวนตลอด ไว้ที่ form_current
หรือ สร้าง sub แล้วกำหนดevent Afterupdate ของ textbox ที่ใช้คำนวน ครับเช่น

Sub CalculateTotal
จำนวนชิ้น = nz([จำนวนรับเข้า],0) * nz([จำนวนลัง],0)
ผลรวมจำนวนชิ้น = nz([จำนวนชิ้น],0) + nz([จำนวนชิ้นจ่ายออก],0)
end sub


Private sub จำนวนรับเข้า_Afterupdate
Call CalculateTotal
end sub
Private sub จำนวนลัง_Afterupdate
Call CalculateTotal
end sub
Private sub จำนวนชิ้นจ่ายออก_Afterupdate
Call CalculateTotal
end sub
Private sub จำนวนลัง_Afterupdate
Call CalculateTotal
end sub

หมายเหตุดูว่า มีการเพิ่มข้อมูล textbox ไหน ก็วาง call ที่ event afterupdate textbox นั้นเพื่อให้ผลรวมจำนวนชิ้น คำนวนทุกครั้งที่ระบุจาก textbox ที่เกี่ยวข้อง

ใส่โค้ดตามนี้ใน View code ที่ฟอร์ม
แต่ไม่ขึ้นข้อมูลอะไรค่ะ (แนบไฟล์มาด้วยค่ะ)

[PNR]

Private Sub จำนวนบรรจุ_AfterUpdate()
Call CalculateTotal
End Sub
Private Sub จำนวนชิ้นจ่ายออก_Afterupdate()
Call CalculateTotal
End Sub
Private Sub จำนวนลังจ่ายออก_Afterupdate()
Call CalculateTotal
End Sub

Sub CalculateTotal()
Dim cal1, cal2 As Double
cal1 = Nz([จำนวนบรรจุ], 0) * Nz([จำนวนลังจ่ายออก], 0)
cal2 = Nz([cal1], 0) + Nz([จำนวนชิ้นจ่ายออก], 0)

Me.ผลรวมจำนวนชิ้น = cal2
End Sub

ไม่มี textbox ชื่อผลรวมจำนวนชิ้นครับ อีกอย่างตั้งชื่อ Control เป็นภาษาอังกฤษเถอะครับ จะได้ไม่มีปัญหาในอนาคต

[Mercury]

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

อันนี้เป็นโค้ดที่ใช้ค่ะ

Private Sub Contain_AfterUpdate()
Call CalculateTotal
End Sub
Private Sub PCSIn_Afterupdate()
Call CalculateTotal
End Sub
Private Sub BoxIn_Afterupdate()
Call CalculateTotal
End Sub

Sub CalculateTotal()
Dim cal1, cal2 As Double
cal1 = Nz([Contain], 0) * Nz([BoxIn], 0)
cal2 = Nz([cal1], 0) + Nz([PCSIn], 0)

Me.totalpcs = cal2
End Sub

[PNR]

โค้ด ถูกแล้วครับ แต่ทำมันไม่ทำงานเพราะเราเพิ่มโค้ดแล้ว แต่ลืมไปกำหนด Event ตรงคุณสมบัติให้มันด้วย
สังเกตุว่า Event Afterupdate แต่ตรงคุณสมบัติยังว่างอยู่ กดเข้าไปตามรูปครับ

อีกอย่างตรง textbox totalpcs ยังเป็นชื่อ Text80 อยู่อย่าลืมแก้นะครับ

[Mercury]

ได้แล้วค่ะขอบคุณมากๆเลยค่ะ

[Mercury]

สอบถามเพิ่มเติมค่ะพอดีมีการแก้ไขฟอร์มจ่ายออกซึ่งในแถวของ Lot1 ใช้สูตรที่อาจารย์เคยเขียนไว้ให้
ทีนี้ต้องการให้บรรทัด Lot2,Lot3,Lot4 คำนวณเหมือนกันกับสูตร Lot1 แต่ลองก้อปปี้โค้ดดังกล่าวมาใช้กับการคำนวณตัวที่เหลือแล้วแต่ไม่สามารถคำนวณได้
(ฺContain*Box n+PCSout n = outqty n)
รบกวนอาจารย์ช่วยแนะนำการเขียนโค้ดหน่อยค่ะ
และต้องการให้หลังจากคำนวณ Outqty1,2,3,4 แล้วบวกกันแล้วได้เป็นช่อง Total ค่ะ (Outqty1+ Outqty2+Outqty3+ Outqty4 = total)

[PNR]

ไม่มีไฟล์ที่แนบมาครับ ลองตรวจเช็คดู

[Mercury]

ไม่มีไฟล์ที่แนบมาครับ ลองตรวจเช็คดู