Access 97, Mittelwert im Formular

Computer: Software & Programmierung Datenbanken allgemein
1

Habe in Formular bis zu fünf Werten. Aus diesen Werten soll automatisch der Mittelwert errechnet werden.
Kann doch eigentlich gar nicht so schwierig sein.

Danke im voraus
Jürgen

2

Das geht z.B. mit dieser Funktion:

Public Function Avg(ParamArray P())
Dim V As Double, I As Long, N As Long
 V = 0#: N = 0
 For I = LBound(P) To UBound(P)
 If Not IsNull(P(I)) Then
 V = V + P(I)
 N = N + 1
 End If
 Next I
 If N = 0 Then
 Avg = Null
 Else
 Avg = V / N
 End If
End Function

Reinhard

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]