คำสั่ง VBA เพื่อให้แสดงสถานะของโปรแกรมบน Text

Post date: Aug 23, 2013 3:24:30 AM

ใช้คำสั่ง DoEvents

พิมพ์ต่อท้าย การแสดงผล Text นั้นๆ ได้เลย เช่น

text7 = rs.fields(“id”)

DoEvents

เป็นต้น

ผลที่ได้คือเมื่อมีการวนลูป มันจะแสดงค่าที่กำลังทำงานอยู่ ณ ปัจจุบัน ทำให้เราทราบสถานะของโปรแกรมว่ากำลังทำงานอยู่ถึงไหนแล้ว