Office: (Office 2016) Aktualisierung von Feld im Hauptformular

Hallo,

ich komme leider nicht weiter und habe schon viel versucht und ausprobiert und gelesen...: ich möchte den Inhalt eines Feldes im Hauptformular ändern, je nach dem was bei den Datensätzen im Unterformular ausgewählt wurde.
Konkret möchte ich, wenn bei allen Datensätzen im Unterformular "geschlossen" ausgewählt wurde, dass dann das Statusfeld im Hauptformular ebenfalls auf "geschlossen" gesetzt wird. Und wenn nur ein Datensatz im Unterformular noch auf "offen" oder "in Diskussion" steht, dann soll die Info im Status-Feld im Hauptformular auf "offen" lauten.

Ich habe das Problem so gelöst: zwei Abfragen erstellt:
1. Abfrage: ermittelt alle Datensätze im Unterformular, die "geschlossen" sind ("qry_Anzahl_geschlossen")
2. Abfrage: ermittelt alle Datensätze im Unterformular, egal welchen Status sie haben ("qry_Anzahl")

Dann habe ich noch Aktualisierungsabfragen erstellt:
1. Aktualisierungsabfage: Setzt das Feld im Hauptformular / Haupttabelle auf "geschlossen" ("qry_update_Status_geschlossen")
2. Aktualisierungsabfrage: setzt das Feld im Hauptformuar / Haupttabelle auf "offen" ("qry_update_Status_offen")

Dann habe ich folgendes Ereignis "Nach Aktualisierung" erstellt:

If DCount("*", "qry_Anzahl_geschlossen") = DCount("*", "qry_Anzahl") Then

DoCmd.SetWarnings False

DoCmd.OpenQuery "qry_update_Status_geschlossen"

DoCmd.SetWarnings True

Else

DoCmd.SetWarnings False

DoCmd.OpenQuery "qry_update_Status_offen"


DoCmd.SetWarnings True


End If


Forms![Hauptformular].Requery


DoCmd.RunCommand acCmdSaveRecord


Manuell ausgeführt funktionieren die Aktualisierungsabfragen, aber über diesen VBA-Code aktualisiert sich das Feld im Hauptformular leider nicht.
Weiß jemand, was ich hier falsch gemacht habe?

 

Es gibt da mehrere Methoden:

Formular(recordset) wird neu eingelesen: Me.Requery
Formulardaten Anzeige aktualisieren: Me.Refresh
Berechnungen neu durchführen: Me.Recalc
Beste Grüße
Andreas