title image


Smiley Re: Abfrage in VB erstellen
Vielleicht so...



Public Function CreateQuery()

Dim dbs As DAO.Database

Dim qdf As QueryDef

Set dbs = CurrentDb

Set qdf = dbs.CreateQueryDef(QueryName)

qdf.SQL = "SELECT Format([datQuart],""yyyy"") AS Jahr, " & _

"Sum(KapAnnu) AS [Summe von KapAnnu], " & _

"Sum(zQuart) AS [Summe von zQuart], " & _

"Sum(tQuart) AS [Summe von tQuart], " & _

"Last(KapRest) AS [LetzterWert von KapRest] " & _

"FROM " & TabName & _

" GROUP BY Format([datQuart],""yyyy"");"

End Function



Der SQL String sieht bei dir natürlich anders aus ;)



Gruß aus Wuppertal

Gruß aus Wuppertal
Stefan

-------------------------------------------------------------------------------
Soweit nicht anders angegeben, beziehen sich meine
Antworten auf WinXP SP2 und Access2003.
-------------------------------------------------------------------------------

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: