title image


Smiley Re: Aggregatfunktion SUM kann keinen datetime-Datentyp als Argument besitze
Ok, Dein Tipp war gut. Habe mir eine Funktion gebastelt, die das erledigt.



Dim con As ADODB.Connection

Dim rst As ADODB.Recordset

Dim str As String

Dim datAufwand As Date



str = "SELECT * FROM tblSupportActions WHERE support_id = " & Me.support_id & " ORDER BY [timestamp]"

Set con = CurrentProject.Connection

Set rst = New ADODB.Recordset

rst.Open str, con, adOpenDynamic, adLockOptimistic

Do Until rst.EOF

datAufwand = datAufwand + rst.Fields![time]

rst.MoveNext

Loop

Me.AufwandSumme = datAufwand

rst.Close

con.Close

Set rst = Nothing

Set con = Nothing



Danke für Deine Anregung.

jaymz1102


CCEA, MCSE, MCDBA, MCSA

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: