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


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

29 ต.ค. 62 , 15:51:05
อ่าน 866 ครั้ง

pawat

  • สมาชิกไท.Access
  • กระทู้: 4

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด



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

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

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

 

29 ต.ค. 62 , 16:06:09
ตอบกลับ #1

PNR

: รบกวนสอบถาม นิพจน์ ในหน้า ฟอร์ม ครับ
« ตอบกลับ #1 เมื่อ: 29 ต.ค. 62 , 16:06:09 »
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
« แก้ไขครั้งสุดท้าย: 29 ต.ค. 62 , 16:10:56 โดย PNR »
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: pawat

29 ต.ค. 62 , 16:39:23
ตอบกลับ #2

pawat

  • สมาชิกไท.Access
  • กระทู้: 4

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: รบกวนสอบถาม นิพจน์ ในหน้า ฟอร์ม ครับ
« ตอบกลับ #2 เมื่อ: 29 ต.ค. 62 , 16:39:23 »
Text6 ได้มาจาก Text5 แต่ค่าที่ได้จะต้องไม่เกิน Text1 ครับ ส่วนค่าที่เกินให้ไปขึ้น  Text7 ครับ

 

30 ต.ค. 62 , 12:23:31
ตอบกลับ #3

PNR

: รบกวนสอบถาม นิพจน์ ในหน้า ฟอร์ม ครับ
« ตอบกลับ #3 เมื่อ: 30 ต.ค. 62 , 12:23:31 »
ตรง 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
« แก้ไขครั้งสุดท้าย: 30 ต.ค. 62 , 13:14:27 โดย PNR »
Time to stop for me  :dizzy:
 


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


 

Sitemap 1 2 3 4 5