Status bar

  • Thread starter Thread starter Luis
  • Start date Start date
L

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?
 
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
 
Back
Top