สอบถาม code แจ้งเตือน

[Leng]

ผมต้องการเขียนโค๊ดแจ้งเตือนครับโดยถ้า Texbox11 มีค่ามากกว่า Textbox10 ให้ขึ้น Msg แจ้งเตือนครับ
ผมพยายามดูเว็บไซต์หลายๆเว็บแล้วแต่ยังไม่เจอรบกววนช่วยด้วยครับ

[snasui]

เขียน Code ไว้ที่ไหน เขียนไว้อย่างไร แจ้งมาด้วยทุกครั้ง จะได้เข้าถึงปญหาโดยไวครับ

[Leng]

ผมไม่รู้เหมือนกันครับจะเริ่มใหม่เขียนยังไงอาจรย์พอมีcodeหรือเว็บตัวอย่างไหมครับ

[logic]

แจ้งเตือนใช้ MsgBox ครับ https://www.google.co.th/search?q=msgbo ... e&ie=UTF-8

ตรวจสอบเงื่อนไขใช้ If ครับ wordpress/if-then-else/

[Leng]

Code: Select all

'other
If TextBox10.Value > TextBox11.Value Then
MsgBox "Please check the information."
End If
'other

ผลลองเขียนแล้วครับแต่code ไม่ขึ้น

[snasui]

ผมทดสอบแล้วขึ้นข้อความเตือนครับ

ควรอธิบายมาอย่างละเอียดว่า Object ใดคีย์ค่าใด จะได้ทดสอบด้วยค่าเดียวกันจะได้เข้าถึงปัญหาโดยไว ให้คำนึงถึงเรื่องนี้เสมอครับ

[Leng]

อาจารย์ครับผมต้องการทำว่า ถ้า Texbox 10 ที่ดึงข้อมูลมาจาก DataX ใน column F มีค่าน้อยกว่าผลรวมของ Texbox 11 ที่ sum ออกมาจากไฟล์ Final01 ใน column I ให้ ขึ้น Msg แจ้งเตือนและ scan ต่อไม่ได้ครับ

[snasui]

ถ้า Texbox 10 ที่ดึงข้อมูลมาจาก DataX ใน column F มีค่าน้อยกว่าผลรวมของ Texbox 11 ที่ sum ออกมาจากไฟล์ Final01 ใน column I ให้ ขึ้น Msg แจ้งเตือนและ scan ต่อไม่ได้ครับ

Code การตรวจสอบว่าน้อยกว่าจะเป็นตามนี้ครับ

If TextBox10.Value < TextBox11.Value Then

[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 ต่อไม่ได้ครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

ปรับจาก If TextBox10.Value < TextBox11.Value Then
เป็น If CLng(TextBox10.Value) < CLng(TextBox11.Value) Then