ต้องทำปุ่มใน form เพื่อเปรียบเทียบค่า
กระทู้เก่าบอร์ด อ.Yeadram

 1,229   2
URL.หัวข้อ / URL
ต้องทำปุ่มใน form เพื่อเปรียบเทียบค่า

คือ มี 2 table นะครับ
table1                                                table2
id      name      food      milk                 setfood           setmilk
1       เกมส์        50           40                  1000               1000
2       พุด           30           10
3       เกมส์        40            20
ต่อมาผมนำ table1 ไปทำเป็น query1 โดย ใช้ group by sum
ก็จะเป็นโดยให้แสดงเป็นแบบนี้
query1
ื   name          Sumof_food      Sumof_milk
     เกมส์            90                     60
     พุด               30                     10
แล้วผมก็นำ table1 มาทำ form รับข้อมูล
ส่วน table2 ผมมาทำฟอร์มเป็น ตัวกำหนดนะครับ
ประมาณว่า ค่าอาหาร ไม่เกิน 10000 ค่านม ไม่เกิน 10000
ในform ผมใส่ในเหตุการเป็นเมื่อ ปุ้อนข้อมูล กด enter ให้
if sumof_food > setfood then msgbox = ("เกินกว่าที่กำหนด")

ตรงช่วย เขียนรูปแบบให้ดูหน่อยครับ ผมว่าต้องใช้อะไรเพิ่ม หรือรูปแบบมันเป็นยังไงครับ ขอบคุณครับ

2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R05826
-query1 ไม่เกี่ยวข้อง
-ฟอร์ม2 ซึ่งเอาข้อมูลจาก Table2 มาแสดง นี่ก็ไม่เกี่ยวข้อง
-ในฟอร์ม1 ซึ่งใช้แสดงข้อมูล, แก้ไขข้อมูล, รับข้อมูลเพื่อบันทึก ซึ่งเป็นข้อมูลของ table1 อันนี้อันเดียวเท่านั้นที่เกี่ยวข้อง

-ในฟอร์ม1 วาง textbox ผูกกับฟิลด์ Food ให้ textbox ตัวนี้ชื่อว่า txFood
-ใน txFood นี้ ให้เขียนโค้ดผูกกับเหตุการณ์ ก่อนการปรับปรุง (BeforeUpdate) ว่า

Sub ....

dim tb1, tb2
tb1 = nz(dsum("Food","Table1"),0)   ' เอาผลรวมจาก Table1 เข้าตัวแปร
tb2= nz(dlookup("setfood","Table2"),0) ' ไปเอาค่าที่กำหนดจาก table2 เข้าตัวแปร
if cdbl(tb1) + cdbl(txFood.text) > cdbl(tb2) then
msgbox "เกินกว่าที่กำหนด"
cancel=true
end if

.... End Sub



สำหรับ milk ก็ทำเหมือนกับ food
----- ลองดูครับ ------
2 @R05833
ขอบคุณหลาย ๆ เด้อ อาจารย์
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3800s