Want to display a progress meter rather than the egg timer

[rhounsome]

I hava a finsihed database and upon opening takes a bit of time to open. At present I just have the pointer changing into the egg timer which causes a problem with some of our users. Because nothing seems to happen for a while they think the machine has crashed and try resetting.

Can someone give me some code or point me in the right direction that displays a progress style meter on screen so they can see something is happening.

 

[ghudson]

Try this test sub.

Private Sub bProgressMeter_Click()
    
    Application.SetOption "Show Status Bar", True
    
    Dim ProgressMeter
    Dim MeterFull As Integer
    Dim MeterCount As Integer
    MeterFull = 10
    
    ProgressMeter = SysCmd(acSysCmdInitMeter, "Updating something, please wait...", MeterFull)
    MeterCount = MeterCount + 2
    ProgressMeter = SysCmd(acSysCmdUpdateMeter, MeterCount)
    MsgBox "Progress1..."
    
    ProgressMeter = SysCmd(acSysCmdInitMeter, "Updating something else, please wait...", MeterFull)
    MeterCount = MeterCount + 2
    ProgressMeter = SysCmd(acSysCmdUpdateMeter, MeterCount)
    MsgBox "Progress2..."
    
    ProgressMeter = SysCmd(acSysCmdInitMeter, "I forgot what I was doing, please wait...", MeterFull)
    MeterCount = MeterCount + 2
    ProgressMeter = SysCmd(acSysCmdUpdateMeter, MeterCount)
    MsgBox "Progress3..."
    
    ProgressMeter = SysCmd(acSysCmdInitMeter, "Almost done, please wait...", MeterFull)
    MeterCount = MeterCount + 2
    ProgressMeter = SysCmd(acSysCmdUpdateMeter, MeterCount)
    MsgBox "Progress4..."
    
    ProgressMeter = SysCmd(acSysCmdRemoveMeter)
    
    Exit Sub
    
End Sub

'HTH