Office: (Office 2010) Problem mit Berechnung mit Event

Jimmy_Star · 13. Dezember 2019

Hallo!

Ich hab ein Brett vorm Kopf!

Wenn ich im unteren "Unterformular" siehe Grafik einen Datensatz erfasse,
dann schaffe ich es einfach nicht das das Summenfeld aktualisiert wird.

Dieses Formular wird mittels weiteren Eingabeformular mit Daten gespeist.
(siehe Grafik Eingabeformular). Ich möchte, wenn ich auf speichern klicke
und das Formular dann schließ dieses Feld aktualisiert bekommen.

Es funktioniert alles, auch wenn ich zwischen Formulare Switche, nur
wenn ich einen neuen Datensatz anlege dann geht's nicht ....

Auch mit dem Button Berechnen funktioniert es prima.

Code für die Berechnung des feldes:

Code:

Private Sub subUmsatzSummeEinheiten()

On Error GoTo Fehler1

Dim strUmsatzSumme
strUmsatzSumme = DLookup("Summevonauftrag_einheiten_typ_umsatz", "abf_auftrag_einheiten_summe_umsatz")

Me.txtSummeUmsatzEinheiten = "Summe Umsatz Einheiten: " & Format(strUmsatzSumme, "##,##0.00")
Form_frm_auftrag_haupt.Requery
Me.txtSummeUmsatzEinheiten.Requery

Ende:
On Error Resume Next
Exit Sub

Fehler1:
MsgBox Err.description & vbCrLf & " xx ", vbOKOnly + vbCritical, "Imperator Achtung"
Resume Ende

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code vom Eingabeformular also die Speichersequenz

Code:

... vorne steht auch noch was unwichtiges

DoCmd.Close
CurrentDb.Execute "anf_auftrag_einheiten_speichern", dbSeeChanges
Form_frm_auftrag_haupt_einheiten_detail.Requery
CurrentDb.Execute "delete * from ztbl_auftrag_einheiten_anlage"

Ende:
On Error Resume Next
Exit Sub

Fehler1:
MsgBox Err.description & vbCrLf & "Einheitenanlage fehlgeschlagen", vbCritical, "Imperator Achtung"

Resume Ende

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielleicht hat da jemand eine Idee ...

Liebe grüße Jimmy

:)

maikek · 16. Dezember 2019

Moin,
durch den Wirrwarr steig ich nicht durch ... und das geht scheinbar nicht nur mir so.
Aber wenn irgendwas nur bei neuen Datensätzen nicht tut, dann hilft es meistens, diesen DS explizit zu speichern. Z.B. durch ein
Code:

me.dirty = false 'me = aktuelles Formular
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

bevor mit den Werten weiter gearbeitet wird.
maike

Maxel · 16. Dezember 2019

Code:

Form_frm_auftrag_haupt_einheiten_detail.Requery
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was bedeutet das bzw. auf welches Objekt wendest Du Requery an?

Office: (Office 2010) Problem mit Berechnung mit Event

Problem mit Berechnung mit Event

Problem mit Berechnung mit Event

Problem mit Berechnung mit Event - Similar Threads - Problem Berechnung Event

Berechnungs Problem im VBA Modul

Performance-Problem "Berechnung läuft..."

Problem mit Vba Berechnung

Spezielles Problem beim Berechnen von Standardwerten (STANINE)

Problem in der Berechnung eines Wertes

Problem mit der Prozentualen Berechnung

Problem mit Arbeitszeit berechnung