Office: (Office 2010) Warten bis requery beendet ist

Hallo Leute,

ich habe ein Formular mit UFO zur Erstellung einer Rechnung.
Ich kann dort Waren einfügen, die Anzahl ändern, usw.. Bevor die Rechnung fertig gemacht werden kann (durch klick auf einen Button wird ein Word-Dokument mit den Daten erstellt), werden vorher noch 2 SQL-Abfragen ausgeführt.
Die Felder mit der Nettosumme, der MwSt und der Bruttosumme werden im UFO berechnet und nach den SQL-Abfragen mit Requery des UFOs neu berechnet.
Und hier hakt die Sache auch schon.
Denn während der Neuberechnung sind die Felder leer und der VBA-Code greift dann auf die leeren Felder zu.

Im Überblick schaut der Code so aus:

1. Ausführen der SQL-Abfragen
2. Speichern des DS mit "DoCmd.RunCommand acCmdSaveRecord"
3. Requery des UFOs
4. Erstellen des Word-Dokuments
5. Übergabe der Daten von Access an Word

Nun meine Frage: Kann ich es irdgendwie so steuern, dass Pkt 4 erst begonnen wird, wenn Pkt 3 ganz fertig ist?

:)

 

hab hier mal den Code auszugsweise reinkopiert:
Code:

Die 3 Felder, welche unter "Rechnung ausfüllen" angesprochen werden, werden im UFO berechnet (Steuerelementinhalt: =Summe([WarenNettoSumme]),...).

 

Hallo,

vielleicht hilft schon ein Doevents nach Requery.

 

DoEvents hilft leider nichts *frown.gif*

 

Ergänze mal:

Forms!F_Rechnung.F_Rechnung_UFO.Requery
vs.
Forms!F_Rechnung.F_Rechnung_UFO.Form.Requery

 

Auch das ändert leider nichts *frown.gif*

 

Hallo Eisbär!

Ist mir auch schon passiert, daß DoEvents nichts nutzte.
Das Folgende ist zwar nicht genau das, was Du gefragt hast, aber:

Warte einfach mittels
Function GetTickCount Lib "kernel32.dll" () As Long
oder
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
mit anschl. DoEvents. Zu Anfang 2 Secs oder auch mehr.

Wolfgang

 

Hallo Wolfgang,

 

Nochmals hallo Wolfgang,
(das kommt davon, wenn man zu schnell klickt *wink.gif*)

Ich steh gerade vor einer Wand und versteh gar nix mehr!!!*stupid

Wie und wo muss ich das einbauen und aufrufen?*confused.gif*

 

Hallo!

Läuft im UFO nach Requery ein weiterer Code, der Steuerelementinhalte anpasst? (z. B. über das Ereignis "Current")

Ich nehme an, das sind Steuerelemente mit berechneter Datenherkunft. => Vielleicht hilft ein nachgeschobenes "Recalc" nach Requery.

Ansonsten: Falls sich die Berechnung der Steuerelemente auf Datenfelder bezieht, probiere einmal aus, ob es schneller berechnet werden würde, wenn du statt den Datenfelder die Berechnung auf gebundenes Textfelder aufbaust.

mfg
Josef

 

Da ich mit der DB ziemlich im Zeitdruck bin, habe ich nun einen Workaround eingebaut, welcher die Erstellung der Rechnung erst zulässt, wenn das Fomular/Datensatz zuerst gespeichert wurde (eigener Speicherbutton). Somit verstreicht genug Zeit, um die Felder zu berechnen.
Danke für euer Hilfe!

 

Hallo Eisbär!

Es hat sich schon erübrigt, dennoch die Antwort zu Deiner Frage:
Declare Function GetTickCount Lib "kernel32.dll" () As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
sind Win-APIs.
Die Deklarationen und die Function WaitTickCounts gehören in ein allg. Modul.
Die Parameter sind jeweils 1/1000 Secs
Variante mit WaitTickCounts:
Code:

Variante mit Sleep
Code:

Wolfgang

 

Hallo!

Ich zweifle etwas daran, dass Requery asynchron für den aktuellen Datensatz abläuft.
Das würde meiner Meinung nach bedeuten, dass Requery immer schnell vorbei sein müsste, wenn die Daten erst später nachgeladen werden.

Was schon später sein kann: die Neuberechnung der berechneten Steuerelemente nachdem die Daten aktualisiert wurden. Daher der Hinweis auf Recalc.

Eine künstliche Pause einzubauen halte ich in so einem Fall für "Zufallsprogrammierung" (weil die Pause vielleicht auf einem anderen Rechner doch wieder zu kurz sein könnte und dann passen die Daten wieder nicht) - und das wollen wir nicht, oder? *wink.gif*

mfg
Josef

 

Hallo Josef!

Ich schrieb ja

Aber einen Versuch wäre es wert, wenn andere Maßnahmen erfolglos bleiben.

Vielleicht genügt es auch, den Datensatz des Forms zu wechseln und den in Frage stehenden neu anzuzeigen. Nicht wirklich schön, aber möglicherweise erfolgreich.

Wolfgang

Ergänzung:
Forms!F_Rechnung.F_Rechnung_UFO.Form.Requery
ist eigentlich nicht ganz sauber,
Forms!F_Rechnung!F_Rechnung_UFO.Form.Requery
schon.
Doch denke ich, daß es das Problem auch nicht löst.

 

Hallo!

Es gab (den gibt es noch immer) in Access 2010 den Bug, dass berechnete Felder nicht aktualisiert wurden, auch wenn der DS gewechselt wurde. Abhilfe schaffte in die Berechnung nicht nur Datenfelder sondern gebundene Steuerelemente einzubinden. (Anhang zum Ausprobieren.)
Vielleicht hängt das beschriebene Problem damit zusammen.
(z. B. Ufo an Datenfeld und nicht an Steuerelement gebunden.)

oder:

Vielleicht hätte der Datensatz im HF vor der SQL-Ausführung gespeichert werden sollen und nicht danach. (Das hängt aber von der der unbekannten Zusammensetzung der SQL-Anweisung ab.)


Ich finde es besser, die Ursache zu finden, statt irgendwelche Umwege einzubauen. *wink.gif*
Vielleicht findest eisbaer13 noch einmal die Zeit und kann uns die Problemursache und die passende Lösung nennen, falls später jemand anders auch so ein ähnliches Problem hat.

Natürlich! - aber nur wenn alles andere nichts hilft. - Das kann ich mir derzeit nur schwer vorstellen. *Smilie



mfg
Josef