รบกวนแนะนำโค้ดให้หน่อยค่ะ

[Mercury]

ทดลองใช้โค้ดนี้แต่ไม่ได้ค่ะ อยากทราบว่าเป็นเพราะอะไร

โค๊ด: [Select]

Private Sub WeightPerPack_AfterUpdate()
Call CalculateTotal
End Sub
Private Sub WeightPallet_Afterupdate()
Call CalculateTotal
End Sub
Private Sub PackPerPallet_Afterupdate()
Call CalculateTotal
End Sub

Sub CalculateTotal()
Dim cal1, cal2 As Double
cal1 = Nz([WeightPerPack], 0) * Nz([PackPerPallet], 0)
cal2 = Nz([cal1], 0) + Nz([WeightPallet], 0)

Me.ToTalWeight = cal2
End Sub

ซึ่งสมการที่ต้องการคำนวณคือสมการนี้ค่ะ
(WeightPerPack*PackPerPallet)+WeightPallet = TotalWeight

ขอบคุณค่ะ

[UnKnown]

แนะนำให้ใช้ Me.ToTalWeight = Nz([cal2], 0) + 0
และเพิ่มเดิมนั่นคือมีการเรียกใช้ CalculateTotal คำนวนชุดล่างอยู่แล้ว ดังนั้นชุดบนเปลี่ยนชื่อสักนิดตามรูปตัวอย่างครับ

โค๊ด: [Select]

Private Sub WeightPerPack_AfterUpdate()
Call CalculateTotal2
End Sub
Private Sub WeightPallet_Afterupdate()
Call CalculateTotal2
End Sub
Private Sub PackPerPallet_Afterupdate()
Call CalculateTotal2
End Sub

Sub CalculateTotal2()
Dim cal1, cal2 As Double
cal1 = Nz([WeightPerPack], 0) * Nz([PackPerPallet], 0)
cal2 = Nz([cal1], 0) + Nz([WeightPallet], 0)

Me.ToTalWeight = Nz([cal2], 0) + 0
End Sub

[Mercury]

เข้าใจแล้วค่ะขอบคุณมากค่ะ