title image


Smiley Die Abfrage ist ja nur eine Deklaration...
... und macht an sich nichts "langsamer".



Und wenn man so eine Funktion braucht, kann man sie sich ja auch leicht selber schreiben:



Public Function CountDistinct(FldName, DomName, Optional Krit = "") As Long

Dim RS As DAO.Recordset, SQL As String

SQL = "SELECT DISTINCT [" & FldName & "] FROM [" & DomName & "]"

If Krit "" Then SQL = SQL & " WHERE " & Krit

CountDistinct = 0

On Error Resume Next

Set RS = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)

On Error GoTo 0

If Not RS Is Nothing Then

If Not RS.EOF Then

RS.MoveLast

CountDistinct = RS.RecordCount

End If

RS.Close

End If

Set RS = Nothing

End Function





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: