Status Bar

[Kirk P.]

I've got this code running when clicking the Import Data button on a form.
The append queries work fine, but the Status Bar doesn't appear with the
required text and progress bar - the only thing that appears in the Status
Bar is the word Ready.

Dim varReturn As Variant
Dim strProgressBarText As String

strProgressBarText = "Running series of 7 queries..."
varReturn = Application.SysCmd(acSysCmdInitMeter, strProgressBarText, 7)

On Error GoTo BuildTable_Err

DoCmd.SetWarnings (False)

DoCmd.OpenQuery "qdelActuate_PAC_Reporting", acViewNormal, acEdit

varReturn = SysCmd(acSysCmdUpdateMeter, 1)
DoCmd.OpenQuery "qappPAC_C5_INC_EntityCurr", acViewNormal, acEdit

varReturn = SysCmd(acSysCmdUpdateMeter, 2)
DoCmd.OpenQuery "qappPAC_DR_INC_EntityCurr", acViewNormal, acEdit

varReturn = SysCmd(acSysCmdUpdateMeter, 3)
DoCmd.OpenQuery "qappPAC_DR_IRELAND_EntityCurr", acViewNormal, acEdit

varReturn = SysCmd(acSysCmdUpdateMeter, 4)
DoCmd.OpenQuery "qappPAC_DR_JAPAN_EntityCurr", acViewNormal, acEdit

varReturn = SysCmd(acSysCmdUpdateMeter, 5)
DoCmd.OpenQuery "qappPAC_DR_KOREA_EntityCurr", acViewNormal, acEdit

varReturn = SysCmd(acSysCmdUpdateMeter, 6)
DoCmd.OpenQuery "qappPAC_DR_SARL_EntityCurr", acViewNormal, acEdit

varReturn = SysCmd(acSysCmdUpdateMeter, 7)
DoCmd.OpenQuery "qappPAC_DR_TAIWAN_EntityCurr", acViewNormal, acEdit

BuildTable_Exit:
DoCmd.SetWarnings (True)
varReturn = SysCmd(acSysCmdRemoveMeter)
Exit Function

BuildTable_Err:
MsgBox Err.Number & ": " & Err.Description, vbCritical, "Error - Build
Table"
Resume BuildTable_Exit

I'm working in Access 2007. Is there something wrong with the code related
to the Status Bar and Progress Meter?