กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
294 4
URL.หัวข้อ /
URL
อยากให้ฟอร์มแปลผลตามตัวเลขที่ตั้งไว้
คือเมื่อประมวลผล ระหว่าง ส่วนสูงกับน้ำหนักแล้ว มาแปลผลที่ช่องหนึ่งโดยอัตฺโนมัติ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R06221
ขออนุญาตอาจารย์นะครับ ขอช่วยอีกแรงครับ
ผมมีอีกวิธีหนึ่ง ไม่รู้ว่าคุณเอกมีฟิลด์สำหรับเก็บผลลัพธ์
นั้นในตารางหรือเปล่า ถ้ามีฟิลด์เก็บข้อมูลผลลัพธ์นั้น
ให้เขียนอย่างที่อ.สุภาพบอกไว้ โดยที่ textbox นั้น
ให้ใส่ชื่อฟิลด์นั้นใน Control Source ด้วย.
แต่ถ้าต้องการดูผลลัพธ์อย่างเดียว คือคำนวณ on-the-fly เลย
ให้เขียนใน Control Source ของ Textbox ตัวผลลัพธ์นั้น
เป็นสูตรได้เลย (ให้เขียนขึ้นต้นด้วยเครื่องหมายเท่ากับ)
เช่นถ้าสูตรเป็น ส่วนสูง หารด้วย น้ำหนัก ก็อาจเขียนทำนองนี้
ControlSource:
=[txtHeight] / [txtWeight]
-----
http://www.greatfriends.biz
ผมมีอีกวิธีหนึ่ง ไม่รู้ว่าคุณเอกมีฟิลด์สำหรับเก็บผลลัพธ์
นั้นในตารางหรือเปล่า ถ้ามีฟิลด์เก็บข้อมูลผลลัพธ์นั้น
ให้เขียนอย่างที่อ.สุภาพบอกไว้ โดยที่ textbox นั้น
ให้ใส่ชื่อฟิลด์นั้นใน Control Source ด้วย.
แต่ถ้าต้องการดูผลลัพธ์อย่างเดียว คือคำนวณ on-the-fly เลย
ให้เขียนใน Control Source ของ Textbox ตัวผลลัพธ์นั้น
เป็นสูตรได้เลย (ให้เขียนขึ้นต้นด้วยเครื่องหมายเท่ากับ)
เช่นถ้าสูตรเป็น ส่วนสูง หารด้วย น้ำหนัก ก็อาจเขียนทำนองนี้
ControlSource:
=[txtHeight] / [txtWeight]
-----
http://www.greatfriends.biz
3 @R06227
ผมไม่ค่อยเข้าใจครับ คือการคำนวณแบบคูณในฟอร์ม ผมทำได้ครับ
แต่ อีกช่องหนึ่งที่แปลเป็นความหมาย คือ ถ้า ผลคูณ น.น.กับส่วนสูง ได้เท่าไร ก็ให้แปลผลตามค่าตัวเลขที่คำนวณได้ เช่น ถ้าช่องคำนวณ ได้ 15 ก็ให้แปลผลเป็นอักษรที่อีกช่องหนึ่ง ว่า ผอม ครับ
แต่ อีกช่องหนึ่งที่แปลเป็นความหมาย คือ ถ้า ผลคูณ น.น.กับส่วนสูง ได้เท่าไร ก็ให้แปลผลตามค่าตัวเลขที่คำนวณได้ เช่น ถ้าช่องคำนวณ ได้ 15 ก็ให้แปลผลเป็นอักษรที่อีกช่องหนึ่ง ว่า ผอม ครับ
4 @R06228
ที่คำสัง Afterupdate
ให้ใช้ Selectcase Me.Text3.Value
case>15
text4.Value="อ้วน"
Case>10
text4.Value="กำลังจะอ้วน"
case<10
text4.Value="ผอม"
End select
แต่ถ้ามีแค่ 2 Condition
ใช้
If Me.Text3.Value>15 Then
Text4.Value="อ้วน"
Else
Text4.Value="ผอม"
End if
นำไปใส่ต่อจากคำสั่งที่ใช้ในการคำนวน Text3.Value
ให้ใช้ Selectcase Me.Text3.Value
case>15
text4.Value="อ้วน"
Case>10
text4.Value="กำลังจะอ้วน"
case<10
text4.Value="ผอม"
End select
แต่ถ้ามีแค่ 2 Condition
ใช้
If Me.Text3.Value>15 Then
Text4.Value="อ้วน"
Else
Text4.Value="ผอม"
End if
นำไปใส่ต่อจากคำสั่งที่ใช้ในการคำนวน Text3.Value
Time: 0.1102s
Me.Text3 = Me.Text1(ส่วนสูง) * Me.Text2 / X