Inform the use will doing a long running process in MS Access

 DoCmd.Hourglass True

    lngStartTime = GetTickCount()

    Call SysCmd(acSysCmdInitMeter, "Downloading files ...", Me.lvHistory.ListItems.Count)

    For Each objli In Me.lvHistory.ListItems

       

       

                Call CreateDailyWorkWB5(objli.SubItems(DailyWorkDetail.ClientID), _

                    objli.SubItems(DailyWorkDetail.ClientName), _

                    COB_Date, _

                    intVersionNo, _

                    intPriorVersionNo:=getPriorVersionNo())

              

                iCounter = iCounter + 1

                Call SysCmd(acSysCmdUpdateMeter, iCounter)

               

          

    Next

    lngEndTime = GetTickCount()

    lngElapsedTime = (lngEndTime - lngStartTime) * 0.001

    MsgBox "Just exported " & Format(iCounter, "##,##0") & " record(s) in " & _

        Format(lngElapsedTime, "##,##0") & " second(s) ", vbInformation, "Results"