Forums Neueste Beiträge
 

Syscmd "Abfrage ausführen" unterdrücken

18/09/2007 - 14:25 von Michael Alexander | Report spam
Hallo!

Ich arbeite mehrere Abfragen in einer Schleife ab:

*************
For i = 0 To lngAnzahl
DoCmd.Hourglass True
dteBenützungsdatum = dtevon + i
Call fctSendBenützungsDatum

SysCmd acSysCmdSetStatus, " Benützungen vom " & dteBenützungsdatum & "
werden verarbeitet"

DoCmd.OpenQuery "BenützAuto33"
DoCmd.OpenQuery "BenützAuto34"
DoCmd.OpenQuery "BenützAuto43"
DoCmd.OpenQuery "BenützAuto44"
Next i

SysCmd acSysCmdClearStatus

DoCmd.Hourglass False
***********

Wie kann ich verhindern, dass trotz meines Syscmd immer wieder der Syscmd
"Abfrage ausführen" dazwischen aufscheint?

Danke
Michael

A2k
 

Lesen sie die antworten

#1 Henry Habermacher
18/09/2007 - 14:41 | Warnen spam
Hallo Michael

Michael Alexander wrote:
SysCmd acSysCmdSetStatus, " Benützungen vom " & dteBenützungsdatum & "
werden verarbeitet"

DoCmd.OpenQuery "BenützAuto33"
DoCmd.OpenQuery "BenützAuto34"
DoCmd.OpenQuery "BenützAuto43"
DoCmd.OpenQuery "BenützAuto44"
Next i

SysCmd acSysCmdClearStatus

Wie kann ich verhindern, dass trotz meines Syscmd immer wieder der Syscmd
"Abfrage ausführen" dazwischen aufscheint?



Ich glaube, das geht nicht.
Ich sehe allerdings, dass Du das ganze etwas kompliziert machst.

Versuch' mal folgendes anstelle des obige gequoteten Codes:

Application.Echo True, "Benützungen vom " & dteBenützungsdatum & " werden
verarbeitet"
DoEvents
Application.Echo False 'unterdrücken der Bildschirmaktualisierung
On Error Goto Proc_Err
CurrentDB.Execute "BenützAuto33", dbFailOnError Or dbSeeChanges
CurrentDB.Execute "BenützAuto33", dbFailOnError Or dbSeeChanges
CurrentDB.Execute "BenützAuto33", dbFailOnError Or dbSeeChanges
CurrentDB.Execute "BenützAuto33", dbFailOnError Or dbSeeChanges
Next I
Proc_err:
Application.Echo True, ""
If Err Then
MsgBox "Fehler " & Err.Number & ": " & Err.Description
End If

Dieser Code sollte eine Meldung in der Statuszeile ausgeben und
anschliessend die Bildschirmaktualisierung ausschalten. Evt. bleibt dann die
Statuszeile erhalten, bis alles druch ist. Im Fehlerfall oder wenn alles
gelaufen ist, wird die Bildschirmaktualisierung wieder eingeschaltet.

Gruss
Henry

Microsoft MVP Office Access
Keine E-Mails auf Postings in NGs. Danke.
Access FAQ www.donkarl.com

Ähnliche fragen