Progress bar in status bar

  • Thread starter Thread starter JonWayne
  • Start date Start date
J

JonWayne

My progress gets initialized but not updated, see code snippet below:

RetVal = SysCmd(acSysCmdInitMeter, "Data transfer in progress. Please
wait ...", iRows)

'Loop thru used rows of worksheet
For x = 1 To iRows
If x Mod 10 = 0 Then
RetVal = SysCmd(acSysCmdInitMeter, "Less than " & iRows - x & "
rows remaining", iRows)
Else
RetVal = SysCmd(acSysCmdUpdateMeter, , x)
End If

Set rngTemp = rngName.Offset(1)
sData = rngName.Text

If sData = "" Or sData = "Party Name:" Or sData Like "Print Date:*"
Or sData Like "Print Time:*" Or sData Like "Search Date:*" Then
rngName.EntireRow.Delete
Set rngName = rngTemp
Else
Set rngName = rngName.Offset(1)
End If
Next x

SysCmd acSysCmdRemoveMeter


What is going wrong here (using Access 97)
 
This RetVal = SysCmd(acSysCmdUpdateMeter, , x)
should be RetVal = SysCmd(acSysCmdUpdateMeter, x)

- Raoul
 
Back
Top