Hallo zusammen,
Ich hab versucht den SQL Code meiner Abfrage per VBA zu schreiben.
Access 2007 - 2010
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Set dbs = CurrentDb
Set qdf = dbs.QueryDefs("qryCTWoche_A")
qdf.SQL = "TRANSFORM Min(tblWoche_A.Schichtart) AS MinvonSchichtart" _
& "SELECT tblWoche_A.Mitarbeiter" _
& "FROM tblWoche_A" _
& "WHERE (((tblWoche_A.Samaritereinsatz) = True))" _
& "GROUP BY tblWoche_A.Mitarbeiter, tblWoche_A.Samaritereinsatz" _
& "PIVOT tblWoche_A.Arbeitstag;"
qdf.Close
dbs.Close
Jedoch erhalte ich immer die Meldung:
Syntaxfehler in TRANSFORM Anweisung
Sieht jemand von Euch den Fehler?
|