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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

18 ต.ค. 62 , 10:32:22
อ่าน 339 ครั้ง

Mercury

รบกวนแนะนำโค้ดให้หน่อยค่ะ
« เมื่อ: 18 ต.ค. 62 , 10:32:22 »


ทดลองใช้โค้ดนี้แต่ไม่ได้ค่ะ อยากทราบว่าเป็นเพราะอะไร
โค๊ด: [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

ขอบคุณค่ะ :prettiness:
:dizzy:
 

18 ต.ค. 62 , 11:18:53
ตอบกลับ #1

UnKnown

: รบกวนแนะนำโค้ดให้หน่อยค่ะ
« ตอบกลับ #1 เมื่อ: 18 ต.ค. 62 , 11:18:53 »
แนะนำให้ใช้ 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

18 ต.ค. 62 , 11:50:05
ตอบกลับ #2

Mercury

: รบกวนแนะนำโค้ดให้หน่อยค่ะ
« ตอบกลับ #2 เมื่อ: 18 ต.ค. 62 , 11:50:05 »
เข้าใจแล้วค่ะขอบคุณมากค่ะ
:dizzy:
 


บอร์ดเรียนรู้ Access สำหรับคนไทย