กระทู้เก่าบอร์ด อ.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 = ("เกินกว่าที่กำหนด")
ตรงช่วย เขียนรูปแบบให้ดูหน่อยครับ ผมว่าต้องใช้อะไรเพิ่ม หรือรูปแบบมันเป็นยังไงครับ ขอบคุณครับ
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
2 @R05833
ขอบคุณหลาย ๆ เด้อ อาจารย์
Time: 0.3800s
-ฟอร์ม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
----- ลองดูครับ ------