VBA: Mittelwerte berechnen, Bericht drucken

[Tommy]

Hallo,

ich bin gerade dabei, etwas mit VBA zu experimentieren und habe
folgendes Problem:

Ich moechte meine errechneten Mittelwerte ausdrucken.

1) Wie uebergebe ich die Werte (Hoehe_mw, Laenge_mw) an den Bericht?
2) Dabei moechte ich einen vorhandenen Bericht verwenden (Layout schon
erstellt). Dem Bericht muss aber die Datenquelle bekannt sein, oder?
Somit stellt sich die Frage:
3) Wo werden die Werte (Hoehe_mw, Laenge_mw) der Sub-Prozedur
abgespeichert. Kann ich darauf zugreifen?
4) Gibt es vielleicht einen ganz anderen Weg?

mein bescheidener Erfolg bisher:

Sub Mittelwerte()
Dim Hoehe_mw As Double
Dim Laenge_mw As Double

Hoehe_mw = DAvg("[Hoehe]", "[Daten]", "[Type]like
Forms!Datenblatt!TYPE.Value") 'MW der Eintraege des Feldes Hoehe
Laenge_mw = DAvg("[Laenge]", "[Daten]", "[Type]like
Forms!Datenblatt!TYPE.Value")

End Sub

Tabelle: Daten
Formular: Datenblatt

Danke fuer die Antwort schon mal im Voraus!

Gruss Thomas

[Kurt Grof]

Tommy schrieb:

>
> Hallo,
>
> ich bin gerade dabei, etwas mit VBA zu experimentieren und habe
> folgendes Problem:
>
> Ich moechte meine errechneten Mittelwerte ausdrucken.
>
> 1) Wie uebergebe ich die Werte (Hoehe_mw, Laenge_mw) an den Bericht?

[...]

> mein bescheidener Erfolg bisher:
>
> Sub Mittelwerte()
> Dim Hoehe_mw As Double
> Dim Laenge_mw As Double
>
> Hoehe_mw = DAvg("[Hoehe]", "[Daten]", "[Type]like
> Forms!Datenblatt!TYPE.Value") 'MW der Eintraege des Feldes Hoehe
> Laenge_mw = DAvg("[Laenge]", "[Daten]", "[Type]like
> Forms!Datenblatt!TYPE.Value")
>
> End Sub
>
> Tabelle: Daten
> Formular: Datenblatt

Erstelle im Bericht ein ungebundenes Textsteuerelement und setze
den Steuerelementinhalt auf die DAvg-Würste (inklusive = Zeichen
am Anfang). Das Formular muss allerdings während der Zeit offen
bleiben, in der der Bericht angezeigt bzw. gedruckt wird.

Und vergiss die Sub Prozedur.

Gf.