Status bar

[Luis]

In Excel VBA I can use within a For..Next the
Application.StatusBar method to display some information.
Normally I use this method to monitor the progress of the
running module.
Is this possible to do in Access VBA?

 

[Jonathan Parminter]

Hi Luis,

use the syscmd function...

Sub progressStatus()
Dim lngStatus As Long
Dim lngMax As Long

lngMax = 1000

SysCmd acSysCmdInitMeter, "Complete...", lngMax

For lngStatus = 1 To lngMax
SysCmd acSysCmdUpdateMeter, lngStatus
DoEvents
Next lngStatus

SysCmd acSysCmdClearStatus
End Sub

Luck
Jonathan