Progressbar doesn't appear in my Form

Question

I want to show a Progress bar to user, while I delete and Insert into a table. I use this block of code but I can't see the progressbar in the form. Would you please help me to solve this problem?

SysCmd acSysCmdInitMeter, "Updating: ", 1000
For Counter = 1 To 1000
    SysCmd acSysCmdUpdateMeter, Counter

    On Error GoTo PROC_ERR
  Set db = CurrentDb
   ssql = "DELETE FROM Test_Table"
   db.Execute ssql, dbFailOnError

  ssql = "INSERT INTO Test_Table SELECT DISTINCT tb_KonzeptDaten.DFCC,  " _
  & "tb_KonzeptDaten.OBD_Code AS Konzept_Obd,tb_KonzeptDaten.DFC " _
  & "FROM tb_KonzeptDaten"
  db.Execute ssql, dbFailOnError
  Msgbox "Die Tabelle wurde erfolgreich aktualisiert"
ExitSub:
'Clean  Up Code
Exit Sub
PROC_ERR:
Msgbox Err.Description
GoTo ExitSub:

Next Counter
SysCmd acSysCmdRemoveMeter

thank you

EDIT: I think, that I should make my question simpler. I want to show progressbar in statusbar hence I've wirte this block of code for test:

Private Sub Befehl80_Click()
 Dim Progress_Amount As Integer, RetVal As Variant
  RetVal = SysCmd(acSysCmdInitMeter, "Reading Data...", 2000)
  For Progress_Amount = 1 To 2000
  RetVal = SysCmd(acSysCmdUpdateMeter, Progress_Amount)
  Next Progress_Amount 
End Sub

I have this expectation, if the I click this button I'm able to see the statusbar, but unfortunatly I can't see it when I click this button, but if I close this access project then this statusbar appear. Have you any idee to solve this problem?

@MattDonnan I've enabled this ability but I can't see my status bar in the fom — Kabi, Sep 18 '12 at 10:26
@Kabi Is there any code in the form's open event or similar that disables the status bar? If all else fails you can look at adding the **progress bar control** to your form instead, it's quite easy and nice to work with. — Matt Donnan, Sep 18 '12 at 12:13
Have you tried adding DoEvents after this line: `SysCmd acSysCmdUpdateMeter, Counter` — HK1, Sep 18 '12 at 19:29

score 1 · Answer 1 · answered Mar 22 '16 at 18:25

This is a screen refresh issue. Your screen isn't being refreshed until the code has completed running. In order to fix this, you will need to use a DoEvents command to allow the screen to refresh while it's still running the code.

SysCmd acSysCmdInitMeter, "Updating: ", 1000
For Counter = 1 To 1000
    SysCmd acSysCmdUpdateMeter, Counter

    ' Put your DoEvents here, so the screen has time to refresh
    DoEvents

    On Error GoTo PROC_ERR
  Set db = CurrentDb
   ssql = "DELETE FROM Test_Table"
   db.Execute ssql, dbFailOnError

  ssql = "INSERT INTO Test_Table SELECT DISTINCT tb_KonzeptDaten.DFCC,  " _
  & "tb_KonzeptDaten.OBD_Code AS Konzept_Obd,tb_KonzeptDaten.DFC " _
  & "FROM tb_KonzeptDaten"
  db.Execute ssql, dbFailOnError
  Msgbox "Die Tabelle wurde erfolgreich aktualisiert"
ExitSub:
'Clean  Up Code
Exit Sub
PROC_ERR:
Msgbox Err.Description
GoTo ExitSub:

Next Counter
SysCmd acSysCmdRemoveMeter

FWIW, I have never needed `DoEvents` to make `SysCmd acSysCmdUpdateMeter` work. — Andre, Mar 22 '16 at 22:25

Progressbar doesn't appear in my Form

1 Answers1