Private Sub Command0_Click()
Dim i As Long, y As Long, n As Long, varReturn As Variant
'Initialise the Status Bar Meter. The last argument (10) represents the maximum value expected to reach 100%
varReturn = SysCmd(acSysCmdInitMeter, "Updating Database...", 10)
'Dummy code to count a large number ten times.
For i = 1 To 10
For y = 1 To 10000000
n = i + y
Next y
'Update the progress meter bar
varReturn = SysCmd(acSysCmdUpdateMeter, i)
Next i
'Close the Status Bar Meter
varReturn = SysCmd(acSysCmdRemoveMeter)
End Sub
Private Sub Command1_Click()
Dim i As Long, y As Long, n As Long, varReturn As Variant
'Dummy code to count a large number ten times.
For i = 1 To 10
For y = 1 To 10000000
n = i + y
Next y
varReturn = SysCmd(acSysCmdSetStatus, "Updating Outer Loop # " & i & " of 10")
Next i
'Clear Status
varReturn = SysCmd(acSysCmdClearStatus)
End Sub
Private Sub Command2_Click()
Dim i As Long, y As Long, n As Long, varReturn As Variant
'Because you cannot amend the text of the status bar progress meter you instead initilise and
'then remove it for each action so it appears as though only one status bar is used.
'Initialise the Status Bar Meter. The last argument (10) represents the maximum value expected to reach 100%
varReturn = SysCmd(acSysCmdInitMeter, "Updating Outer Loop #1 of 10", 10)
'Dummy code to count a large number ten times.
For i = 1 To 10
If i > 1 Then
'Close the Status Bar Meter
varReturn = SysCmd(acSysCmdRemoveMeter)
'Initialise Meter again with new text
varReturn = SysCmd(acSysCmdInitMeter, "Updating Outer Loop # " & i & " of 10", 10)
'Set the progress to what has been done so far
varReturn = SysCmd(acSysCmdUpdateMeter, i)
End If
For y = 1 To 10000000
n = i + y
Next y
Next i
'Close the Status Bar Meter
varReturn = SysCmd(acSysCmdRemoveMeter)
End Sub