ดีมากเลยค่ะ กำลังอยากรู้อยู่ด้วยค่ะ ขอบคุณล่วงหน้าค่ะ

ผมได้นำตัวอย่างการใช้ Progress Bar มาให้แล้วนะครับ แต่อย่าลืมถ้ามีปัญหาให้ดึง ActiveX ที่ชื่อ Microsoft ProgressBar Control version 6.0 แล้วตั้งชื่อตาม Code ของผมก็จะใช้งานได้ครับ ไม่มีอะไรซับซ้อน

ถ้ามีตัวเลขแสดง % การทำงานยิ่งดีเลยค่ะ
ได้แล้วอย่าลืมบอกด้วยน่ะค่ะ

ถ้าคุณก้อยต้องการให้แสดงเปอร์เซ็นต์ให้ทำดังนี้ครับ
1.สร้าง Unbound รับค่า จากโค๊ดผมคือ Text6
2.ใช้คำสั่ง Me.Repaint วางไว้ 2 จุด ดูตามโค๊ดนะครับ
ใช้งานได้อย่างไร กรุณาบอกผมด้วยครับ

ตอนนี้ผมกำลังจะเปลี่ยนไปใช้ VB เนื่องจากที่ทำงานระบุมา มีอันไหนเหมือนกันและเป็นประโยชน์จะนำมาเล่าให้ฟังอีกครับ

และตอนนี้ใครที่ต้องอ่านข้อมูลแบบ Text ผมมีแชร์แวร์ ชื่อ Textpad ใช้งานดีกว่า Notepad และ Wordpad แต่เนื่องจากมีขนาด 851 K ทำให้ผมไม่สามารถนำขึ้นมาที่นี่ได้ กรุณาแจ้งเมลล์มาแล้วผมจะส่งให้ครับ

Me.Text6 = 0
Me.Repaint
DoCmd.SetWarnings False
DoCmd.OpenQuery "Query1"
ActiveXCtl3.Value = 0
Dim dbs As DAO.Database
Dim rstsource As DAO.Recordset
Dim rsttarget As DAO.Recordset
Set dbs = CurrentDb
Set rstsource = dbs.OpenRecordset("table1")
Set rsttarget = dbs.OpenRecordset("table2")
Do While Not rstsource.EOF
rsttarget.AddNew
rsttarget!a = rstsource!a
rsttarget.Update
rstsource.MoveNext
ActiveXCtl3.Value = rstsource.PercentPosition
Me.Text6 = ActiveXCtl3.Value
Me.Repaint
Loop
rstsource.Close
rsttarget.Close
dbs.Close