Can I move the Status Bar ?

[CptTom]

Can I place the status bar, primarily the progress meter somewhere inside a form rather than only at the bottom of the screen?

Larry

 

[winbod]

The only alternative I have seen is to have a coloured rectangle on the form. You can not replicate where the system builds a meter but if you encompass it within a SysCmd Init and Update Meter it can be used.
If you use another rectangle for the total width set the width of the coloured rectangle to
= totalboxwidth * (update value / total value)

eg 2.4 cm 100 200

This example will show a rectangle with half the status bar length.

 

[CptTom]

In principle it works, but even though the loop below is processing over 24,000 records, the meter does not actually appear until a nanosecond before the process completes. Any ideas? I set up a white BoxBack that is 3 inches wide, the BoxMeter is Green and should grow across the BoxBack.

Me.BoxBack.Visible = True
Me.BoxMeter.Width = 0
Me.BoxMeter.Visible = True

With rcs
Debug.Print "Running "
Debug.Print strLine
For Progress_Amount = 1 To intRecCount
Debug.Print Progress_Amount & " out of " & intRecCount; ""
' Update the progress meter.
' sysRetVal = SysCmd(acSysCmdUpdateMeter, Progress_Amount)
strLine = !UIC & !EIC & !WEIC & !SERNO & !RPTENDDATE & !AUTH _
& !ONHAND & !CONDDESIGCODE & !POSS & !NMCSS & !NMCSO & !NMCMS _
& !NMCMO & !NMCME & !NMCMD & !UTILCODE & !IMCSRS

If strLine = strLine2 Then
.Delete
Else
strLine2 = strLine
End If
.MoveNext
Me.BoxMeter.Width = (Progress_Amount / intRecCount) * dblWidth
Debug.Print "Meter Width : " & Me.BoxMeter.Width

Next Progress_Amount
End With

 

[JoeMiller]

Add in a screen repaint during your loop to force Access to show it's progress..

HTH Joe Miller
joe.miller@flotech.net