Supportnet / Forum / Datenbanken
Maximumwert aus dem jeweiligen Datensatz
Frage
Hallo Leute
Ich bin an einer Datenbank (Access 2000) erarbeiten. Für eine Auswertung benötige ich den jeweiligen Maximumwert von 16 Einträgen des gleichen Datensatzes.
Hat mir jemand einen Tipp wie ich dies in der Abfrage lösen kann?
Ich danke schon jetzt für eure Hilfe.
Gruss
Daniel
Antwort 1 von Koebi
Grüezi Daniel
Folgende Funktion könnte helfen:
Public Function fktMax(ParamArray P())
´ Maximum
Dim V, I As Long
V = Null
For I = LBound(P) To UBound(P)
If Not IsNumeric(V) Or (P(I) > V) Then V = P(I)
Next I
fktMax = V
End Function
Kopiere die Funktion in ein Modul.
Aufruf zum Beispiel in einer Abfrage:
fktMax([Feld1];[Feld2];[Feld3];[Feld4].........)
Der Code stammt von:
http://www.dbwiki.de/wiki.php?title=VBA_Tipp:_Minimum%2C_Maximum%2C_arithmetisches_Mittel%2C_geometrisches_Mittel%2C_Standardabweichung
Gruss
Köbi
Folgende Funktion könnte helfen:
Public Function fktMax(ParamArray P())
´ Maximum
Dim V, I As Long
V = Null
For I = LBound(P) To UBound(P)
If Not IsNumeric(V) Or (P(I) > V) Then V = P(I)
Next I
fktMax = V
End Function
Kopiere die Funktion in ein Modul.
Aufruf zum Beispiel in einer Abfrage:
fktMax([Feld1];[Feld2];[Feld3];[Feld4].........)
Der Code stammt von:
http://www.dbwiki.de/wiki.php?title=VBA_Tipp:_Minimum%2C_Maximum%2C_arithmetisches_Mittel%2C_geometrisches_Mittel%2C_Standardabweichung
Gruss
Köbi
Antwort 2 von dhafner
Hallo Köbi
Herzlichen Dank für den Tipp. Funktioniert hervorragend. Diesen Tipp kann ich nur weiter empfehlen
Ein gute Woche wünscht
Daniel
Herzlichen Dank für den Tipp. Funktioniert hervorragend. Diesen Tipp kann ich nur weiter empfehlen
Ein gute Woche wünscht
Daniel