title image


Smiley TIPP: x-grösster Wert ausgeben (in einer Abfrage)
halt selber schreiben:



Public Function NGroesster(FldName As String, TblName As String, N As Long)

Dim RS As DAO.Recordset, SQL As String

SQL = "SELECT [" & FldName & "] FROM [" & TblName & "] ORDER BY [" & FldName & "] DESC"

Set RS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)

RS.Move N - 1

If RS.EOF Then

NGroesster = Null

Else

NGroesster = RS(0)

End If

RS.Close

End Function



Public Function NKleinster(FldName As String, TblName As String, N As Long)

Dim RS As DAO.Recordset, SQL As String

SQL = "SELECT [" & FldName & "] FROM [" & TblName & "] ORDER BY [" & FldName & "] ASC"

Set RS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)

RS.Move N - 1

If RS.EOF Then

NKleinster = Null

Else

NKleinster = RS(0)

End If

RS.Close

End Function





für TblName kannst du wahlweise den Namen einer Tabelle oder Abfrage einsetzen.


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: