รบกวนสอบถาม นิพจน์ ในหน้า ฟอร์ม ครับ

[pawat]

จากรูปเป็นตัวอย่างนะครับ คือผมอยากให้ ช่อง Text5-7 มีข้อมูลเด่งขึ้นมาเอง เมื่อใส่ข้อมูล ช่อง Text1-4 แล้ว

เมื่อ Text1 = 150
     Text2 = 50
     Text3 = 110
     Text4 = ปล่อยว่าง ไม่ใส่ข้อมูล

จะทำอย่างไรได้บ้างครับ

[PNR]

text6 ได้จากการคำนวนตรงส่วนไหนครับ

ส่วน text5 โค้ดตามนี้ครับ

โค๊ด: [Select]

Sub Calculate()
Me.Text5 = CDbl(Nz(Me.Text1, 0)) + CDbl(Nz(Me.Text2, 0)) + CDbl(Nz(Me.Text3, 0)) + CDbl(Nz(Me.Text4, 0))
End Sub

Private Sub Text1_AfterUpdate()
Call Calculate
End Sub
Private Sub Text2_AfterUpdate()
Call Calculate
End Sub
Private Sub Text3_AfterUpdate()
Call Calculate
End Sub
Private Sub Text4_AfterUpdate()
Call Calculate
End Sub

[pawat]

Text6 ได้มาจาก Text5 แต่ค่าที่ได้จะต้องไม่เกิน Text1 ครับ ส่วนค่าที่เกินให้ไปขึ้น  Text7 ครับ

[PNR]

ตรง Sub Calcucalte แก้ใหม่เป็นแบบนี้ครับ

โค๊ด: [Select]

Sub Calculate()
Me.Text5 = CDbl(Nz(Me.Text2, 0)) + CDbl(Nz(Me.Text3, 0)) + CDbl(Nz(Me.Text4, 0))
If Val(Me.Text5) > Val(Me.Text1) Then
Me.Text6 = CDbl(Nz(Me.Text1, 0))
Me.Text7 = CDbl(Nz(Me.Text5, 0)) - CDbl(Nz(Me.Text1, 0))
Else
Me.Text6 = CDbl(Nz(Me.Text5, 0))
Me.Text7 = "0"
End If
End Sub