ช่วยดูโค้ดให้ทีครับ
กระทู้เก่าบอร์ด อ.Yeadram

 1,388   4
URL.หัวข้อ / URL ช่วยดูโค้ดให้ทีครับ

ผมมีปุ่ม 1 ปุ่มครับ ใส่เหตุการสำหรับ Combobox 10 ตัว
เมื่อคลิ๊กปุ่ม จะรันโค้ดตามนี้ครับ

DoCmd.RunSQL "UPDATE Stock SET Status_Val = No WHERE ProductID =" & Val(Me.Combo1.Column(0))

DoCmd.RunSQL "UPDATE Stock SET Status_Val = No WHERE ProductID =" & Val(Me.Combo2.Column(0))

DoCmd.RunSQL "UPDATE Stock SET Status_Val = No WHERE ProductID =" & Val(Me.Combo3.Column(0))

......

ผลที่ได้คือหากเราเลือกข้อมูลครบ 10 ตัวจะทำการอัพเดทได้ครับ
แต่หาเลือกไม่ครบจะ เออเรอ ครับ ขี้แนะด้วยครับ
โดย: นัท เมื่อ: 5 เม.ย. 2554 , 10:42

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

1 @R08755
มันก็ ERROR ซิครับ เพราะค่าใน Combo บางอันเป็น null
ถ้าเอาง่าย ก็ใส่
On error resume Next
หรือไม่ก็ใช้ NZ Function เข้ามาช่วย
โดย: krathok-man เมื่อ: 5 เม.ย. 2554 , 10:50
2 @R08756
On error resume Next

ผมไม่เข้าใจตรงนี้ครับ ขออธิบายด้วยครับ ขอบคุณครับ
โดย: นัท เมื่อ: 5 เม.ย. 2554 , 10:56
3 @R08757
On error resume Next

DoCmd.RunSQL "UPDATE Stock SET Status_Val = No WHERE ProductID =" & Val(Me.Combo1.Column(0))
On error resume Next

DoCmd.RunSQL "UPDATE Stock SET Status_Val = No WHERE ProductID =" & Val(Me.Combo2.Column(0))
On error resume Next

DoCmd.RunSQL "UPDATE Stock SET Status_Val = No WHERE ProductID =" & Val(Me.Combo3.Column(0))

......

ลองดูครับ หมายถึง ถ้า Error ในบรรทัดนั้น ให้ไปทำคำสั่งต่อไปครับ
โดย: krathok-man เมื่อ: 5 เม.ย. 2554 , 11:45
4 @R08758
ขอบคุณมากๆครับ ผ่านหมดแล้วครับ ขอบคุณครับ
โดย: นัท เมื่อ: 5 เม.ย. 2554 , 16:38
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0718s