Mittelwert per VBA ermitteln und einem Textfeld zuweisen

[Maro68]

Hallo zusammen,

wie lautet der VBA Code für die Zuweisung des Mittelwerts in ein Textfeld.
In der beigefügten Datei ist es mit den Eigenschaften des Textfeldes verwirklicht.

Die Codezeile (die ich "erhofft" hatte)
txt_DuMaMi_Ges = Mittelwert([Me_Mannschaftsergebnis])
bringt aber einen Fehler.

Wie lautet der VBA Code korrket?

Danke Euch
Martin

[MzKlMu]

Hallo,
Deine Beschreibung ist nicht ausreichend.

In VBA muss die englische Schreibweise (DAvg) verwendet werden, außerdem braucht die Funktion mindestens 2 Parameter (Feldname und Tabellename) und optional noch ein Kriterium.
Mittelwert (DAvg) lässt sich nur über eine Spalte anwenden.

[Maro68]

Hallo Klaus,
danke für deine schnelle Antwort, aber ich verstehe nicht ganz, welche Information noch fehlt?
Das Textfeld befindet sich in einem Formular und der
Name des Textfeldes = txt_DuMaMi_Ges

Der Name des Feldes bzw. der Spalte, über das ich den Mittelwert berechnen will, ist Me_Mannschaftsergebnis.
Das Formular basiert auf einer Abfrage mit Namen "Mannschaftsergebnisse pro Team komplett".

Gruß Martin

[ebs17]

aber ich verstehe nicht ganz

Die Funktion hatte Klaus schon genannt.
Was für deren einwandfreie Wirkung benötigt wird, kann man wunderbar (und eigenständig) in der (VBA)Hilfe nachlesen.

[Maro68]

Ich hatte gehofft, nach stundenlangem Probieren (mit der VBA Hilfe) hier im Forum Hilfe zu erhalten.
Falsch gehofft, wie es scheint. :-(

[MzKlMu]

Hallo,
natürlich hast Du Hilfe bekommen, Du weist sie nur nicht zu nutzen.
Dass die englische Schreibweise genutzt werden muss, hatte ich ja geschrieben.
Und (nur) mit der englischen Schreibweise kommst Du auch zu einer ordentlichen Hilfe, sogar mit Beispielen die Du nach Anpassung der Namen direkt verwenden kannst:

https://docs.microsoft.com/de-de/office/vba/api/access.application.davg?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev11.query%3FappId%3DDev11IDEF1%26l%3Dde-DE%26k%3Dk(vbaac10.chm12528)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue

Und das auf Deinen Fall angewendet:

Code [Auswählen] Erweitern

Me.txt_DuMaMi_Ges = Davg("[Me_Mannschaftsergebnis]","[Mannschaftsergebnisse pro Team komplett]")

[Maro68]

Danke Schön, passt