Page 1 of 1
สอบถาม code แจ้งเตือน
Posted: Wed Aug 08, 2018 8:08 pm
by Leng
ผมต้องการเขียนโค๊ดแจ้งเตือนครับโดยถ้า Texbox11 มีค่ามากกว่า Textbox10 ให้ขึ้น Msg แจ้งเตือนครับ
ผมพยายามดูเว็บไซต์หลายๆเว็บแล้วแต่ยังไม่เจอรบกววนช่วยด้วยครับ
Re: สอบถาม code แจ้งเตือน
Posted: Wed Aug 08, 2018 8:40 pm
by snasui
เขียน Code ไว้ที่ไหน เขียนไว้อย่างไร แจ้งมาด้วยทุกครั้ง จะได้เข้าถึงปญหาโดยไวครับ
Re: สอบถาม code แจ้งเตือน
Posted: Wed Aug 08, 2018 9:35 pm
by Leng
ผมไม่รู้เหมือนกันครับจะเริ่มใหม่เขียนยังไงอาจรย์พอมีcodeหรือเว็บตัวอย่างไหมครับ
Re: สอบถาม code แจ้งเตือน
Posted: Wed Aug 08, 2018 9:42 pm
by logic
Re: สอบถาม code แจ้งเตือน
Posted: Wed Aug 08, 2018 10:04 pm
by Leng
Code: Select all
'other
If TextBox10.Value > TextBox11.Value Then
MsgBox "Please check the information."
End If
'other
ผลลองเขียนแล้วครับแต่code ไม่ขึ้น
Re: สอบถาม code แจ้งเตือน
Posted: Thu Aug 09, 2018 6:59 am
by snasui
ผมทดสอบแล้วขึ้นข้อความเตือนครับ
ควรอธิบายมาอย่างละเอียดว่า Object ใดคีย์ค่าใด จะได้ทดสอบด้วยค่าเดียวกันจะได้เข้าถึงปัญหาโดยไว ให้คำนึงถึงเรื่องนี้เสมอครับ
Re: สอบถาม code แจ้งเตือน
Posted: Thu Aug 09, 2018 8:27 am
by Leng
อาจารย์ครับผมต้องการทำว่า ถ้า Texbox 10 ที่ดึงข้อมูลมาจาก DataX ใน column F มีค่าน้อยกว่าผลรวมของ Texbox 11 ที่ sum ออกมาจากไฟล์ Final01 ใน column I ให้ ขึ้น Msg แจ้งเตือนและ scan ต่อไม่ได้ครับ
Re: สอบถาม code แจ้งเตือน
Posted: Thu Aug 09, 2018 10:13 pm
by snasui
Leng wrote: Thu Aug 09, 2018 8:27 am
ถ้า Texbox 10 ที่ดึงข้อมูลมาจาก DataX ใน column F มีค่า
น้อยกว่าผลรวมของ Texbox 11 ที่ sum ออกมาจากไฟล์ Final01 ใน column I ให้ ขึ้น Msg แจ้งเตือนและ scan ต่อไม่ได้ครับ
Code การตรวจสอบว่าน้อยกว่าจะเป็นตามนี้ครับ
If TextBox10.Value < TextBox11.Value Then
Re: สอบถาม code แจ้งเตือน
Posted: Fri Aug 10, 2018 8:23 am
by Leng
Code: Select all
If TextBox10.Value < TextBox11.Value Then
MsgBox "Please check the information."
End If
End Sub
อาจารย์ครับติดปัญหาคือพอ scan แล้ว "Please check the information." จะขึ้นทุกครั้งเลยครับโดยไม่ขึ้นตามปัญหา
ถ้า Texbox 10 ที่ดึงข้อมูลมาจาก DataX ใน column F มีค่าน้อยกว่าผลรวมของ Texbox 11 ที่ sum ออกมาจากไฟล์ Final01 ใน column I ให้ ขึ้น Msg แจ้งเตือนและ scan ต่อไม่ได้ครับ
Re: สอบถาม code แจ้งเตือน
Posted: Sat Aug 11, 2018 7:03 am
by snasui
ตัวอย่างการปรับ Code ครับ
ปรับจาก
If TextBox10.Value < TextBox11.Value Then
เป็น
If CLng(TextBox10.Value) < CLng(TextBox11.Value) Then