Office: "PRG reagiert nicht mehr" bei Abfrage vermeiden

Hallo Zusammen,

hoffe hier im Forum kann mir geholfen werden.
Mein Problem:
Ich habe in VBA ein Script geschrieben, welches ca. 40 SQL Abfragen hintereinander ausführt und nach Abschluss jeder Abfrage eine Checkbox in einer Form 'checked' damit der User weiß wie lange es noch dauert.

Code:

Function Update()
    Dim DB As Database, SQL1 As String
    Dim DBcon As New ADODB.Connection

    Set DB = DBEngine.Workspaces(0).Databases(0)
    DoCmd.OpenForm "F_Menu1", acNormal
    DoCmd.Hourglass True

    ' ### 1 Abfrage.... ###
    SQL1 = "Select XXX ...."
    Set DBcon = CreateObject("ADODB.Connection")
    DBcon.Open (conString)
    DBcon.Execute (SQL1)
    DBcon.Close
    Set DBcon = Nothing

    Forms!F_Menu1!Check1 = True: Forms!F_Menu1.Repaint: Forms!F_Menu1.Repaint

    ' ### 2 Abfrage ###

     [...]
End Function

Lässt man Access ganz normal alles abarbeiten, dann werden die Boxen gechecked und alles funktioniert so wie es soll. Klickt man zwischenzeitlich allerdings auf den Desktop oder auf einen anderen Task (heißt also Access verliert den Focus), wird das Access Fenster auch nicht wieder angezeitgt. Es wird weiß hinterlegt mit dem Slogan "Keine Rückmeldung" :-)
Gibt es in VBA ein Kommando mit dem es möglich ist, dies zu unterbinden und das Fenster immer wieder anzeigen zu lassen?
Z.B. einen Neuaufbau des "Form1" nach jeder kompletten Abfrage?

Schon mal vielen Dank für die Antworten.

Gruß

 

Re: "PRG reagiert nicht mehr" bei Abfrage vermeide

Das kannst Du nur zum Teil verhindern. Während eine Abfrage ausgeführt wird, ist Access ja wirklich nicht in der Lage, eine Rückmeldung zu geben. Aber immer mal so zwischendurch, ja, das sollte drin sein.

Erlaube mal das Abarbeiten der System-Events zwischen Deinen Abfragen. Das sollte weiterhelfen, weil Access dann auch auf den Mausklick zum Hervorholen aus dem Hintergrund reagieren kann.

Aber hmmm... Wie hieß noch der Befehl dazu? DoEvents? Oder irgendwie sowas in der Art. Schau mal Online-Hilfe, da findest das sicher ganz schnell.

Gruß, Michael

 

Danke für die schnelle Antwort.

Ich hab schon länge gesucht. Das Problem ist nur, dass ich nicht weiß wonach genau :-) mir fällt dazu kein Kommando oder ein Schlagwort ein.

Weiß noch jemand einen Rat?

Gruß

 

Welchen Rat, außer mit "DoEvents" mal in der Online-Hilfe zu gucken, brauchst Du denn noch?

Gruß, Michael