Running multiple queries through VB, no response?

[matrekz42]

Good morning Gurus,

I'm trying to execute the following code to run multiple queries, and update the progress bar on a form, but it doesnt seem to respond. Do I have too many queries, what am I missing? Please find the code below:

Private Sub Run_Click()
     DoCmd.Hourglass True
     'Turns off the Access warning messages here
      DoCmd.SetWarnings False
 
    Dim stDocName As String
 
    stDocName = "Query1"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 5
 
    stDocName = "Query2"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 10
 
    stDocName = "Query3"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 15
 
    stDocName = "Query4"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 20
 
    stDocName = "Query5"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 25
 
    stDocName = "Query6"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 30
 
    stDocName = "Query7"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 35
 
    stDocName = "Query8"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 40
 
    stDocName = "Query9"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 45
 
    stDocName = "Query10"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 50
 
    stDocName = "Query11"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 55
 
    stDocName = "Query12"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 60
 
    stDocName = "Query13"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 65
 
    stDocName = "Query14"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 70
 
    stDocName = "Query15"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 75
 
    stDocName = "Query16"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 80
 
    stDocName = "Query17"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 85
 
    stDocName = "Query18"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 90
 
    stDocName = "Query19"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me![MyProgress].Value = 100
 
    DoCmd.Hourglass False
        'Turns the Access warning messages back on here
        DoCmd.SetWarnings True
End Sub

[nico5038]

There's nothing odd with your code.
Best to place a breakpoint (click on the left ruler to get a dot) on the first statement. Then open the form and click the button.
The code will halt on the first statement and using F8 you can step line by line through the code.
When nothing happens when you click, then check or the button has code in the Onclick event.

Nic;o)