ความจริงคือ โปรแกรมกำลังทำงานอยู่ครับ แต่มันอาจนาน เลยทำให้ผู้ใช้ใจร้อน ไปกด Ctrl + Alt + Del มันเลยทำให้โปรแกรมหยุดทำงานไปทันที จึงเห็นคำว่า Not Reponding เสมอ ลองดู SysCmd Function ใน Help นะครับ และนี่คือตัวอย่างของ Access เลย Function ReadRecords(strTableName As String) As Integer Const conBadArgs = -1 Dim dbs As Database, rst As Recordset Dim lngCount As Long, strMsg As String Dim varReturn As Variant, lngX As Long ReadRecords = 0 If strTableName <> "" Then DoCmd.Hourglass True Set dbs = CurrentDb On Error Resume Next Set rst = dbs.OpenRecordSet(strTableName) ' Get record count. rst.MoveLast rst.MoveFirst If Err Then ReadRecords = conBadArgs End If lngCount = rst.RecordCount On Error GoTo 0 If lngCount Then strMsg = "Reading " & UCase$(strTableName) & "..." varReturn = SysCmd(acSysCmdInitMeter, strMsg, lngCount) ' Display message in status bar. For lngX = 1 To lngCount varReturn = SysCmd(acSysCmdUpdateMeter, lngX) ' Update meter. . ' Do something with record. . . rst.MoveNext ' Go to next record. Next lngX varReturn = SysCmd(acSysCmdClearStatus) GoSub CloseObjects ReadRecords = lngCount ' Return number of records. Exit Function End If End If ' Not found or contains no records. strMsg = "Table '" & strTableName & "'not found or contains no records.'" MsgBox strMsg, vbInformation, "ReadRecords" GoSub CloseObjects Exit Function CloseObjects: On Error Resume Next rst.Close dbs.Close On Error GoTo 0 DoCmd.Hourglass False Return End Function ที่ผมใช้ประจำคือใช้หลักการเดียวกับของ อ. BADMan ครับ แต่ผมจะให้แสดงว่ากำลังทำงานกับข้อมูลที่เท่าไร ของทั้งหมดกี่ข้อมูล บน Caption ของฟอร์มครับ ... Dim dbs As Database, rst As Recordset Dim I as Integer Set dbs = CurrentDb Set rst = dbs.Openrecordset("tblTest") If Not rst.EOF Then For I = 1 To rst.Recordcount Caption = "กำลังทำงานข้อมูลที่ " & I & " ของทั้งหมด " & rst.Recordcount & " รายการ" ' ทำงานที่ต้องการตรงนี้ rst.MoveNext Next I Else MsgBox "ไม่มีข้อมูล" End If rst.Close dbs.Close Set dbs = Nothing Set rst = Nothing ... ต้องทำงานบนฟอร์มนะครับ

ผมไปอ่านเจอบทความของ Microsoft เกี่ยวกับ Simulate a Progress Bar in a Form Without Using an ActiveX Control in Access 2002 ที่ http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q304581 ลองเข้าไปศึกษาโค้ดดูนะครับ ซึ่งมันทำให้ผมนึกถึงโค้ดที่ผมเขาทำไว้ จะใช้หลักการเหมือนกันเลยครับ