อยากทำ progress meter

[aek]

เวลา import ข้อมูลเยอะแล้ว จะขึ้นเป็นนาฬิกาทราย ผู้ใช้อาจจะคิดว่า error หรือไม่ทราบว่าต้องรอนานขนาดไหน ถ้าเปลี่ยนนาฬิการทรายเป็น Progress meter น่าจะดีกว่า ต้องทำอย่างไรบ้างครับ
แบบรูปที่แนบมาครับ

[มาลี]

อยากทำได้ด้วยเช่นกันค่ะ
ตามนะคะ

[TTT]

ลองดูคลิปนี้นะครับ แต่การแสดง meter มันทำให้เครื่องต้องเสียเวลาแสดงส่วนนี้เพิ่มด้วยทำให้การทำงานช้าลงอีกนะครับ

ปล. มันจะมีอีกอย่างคือ progress meter ที่ Status bar ไม่แน่ใจว่าตั้งแต่ MS Access เวอร์ชั่น 2007 หรือ 2010 ขึ้นไป ก็สามารถเขียนคำสั่งให้มันแสดงความก้าวหน้าได้ ตัวอย่าง

1. สร้างตัวแปร
Dim ReturnValue As Variant
 
2. กำหนด สเกล ให้ เท่ากับ 100
ReturnValue = SysCmd(acSysCmdInitMeter, "Processing ", 100)
 
3. สมมุติเป็นการนับเรคคอร์ดทั้ง ก็ทำให้ เป็น เปอร์เซนต์
For StartLoop = 0 To (TotalRecord - 1)
      ReturnValue = SysCmd(acSysCmdUpdateMeter, ((StartLoop) / TotalRecord) * 100)
Next StartLoop
 
4. เคลียร์
ReturnValue = SysCmd(acSysCmdRemoveMeter)

อะไรประมาณนี้ครับ ปรับใช้ดู

[aek]

ขอบคุณ อ.TTT คงจะจริงตามที่ อ.ว่ามา เครื่องต้องทำงานช้าลง คงไม่จำเป็น