Ergebnis Direktfenster in Tabelle

[kauz]

Hallo,

mit welchem VBA_code gelingt eine Transformation/Kopie einer
Schleifenabfrage im Direktfenster in eine bestehende Access_Tabelle?
Z.B. Erzeugung einer Reihe 1 bis 2.000.000 - step 1 zu
Simulationszwecken.

Ich nuztze Access2007 als frontend und MySQL als backend.

In MySQL ist dies kein Thema mit SP - auch mit Mathematica 7
ueber ODBC gelingt dies problemlos.

Queries erstelle ich in Access ueber DAO.

Private Sub cross_tab_Click()

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL As String
Set db = CurrentDb

db.QueryDefs.Delete "cross_tab"

strSQL = "SELECT Year(valuta) AS lfdJAHR,"
strSQL = strSQL + "Month(valuta) AS lfdMON, "
strSQL = strSQL + "format(Sum(Switch(ums>0,ums)),'#,###.00') AS EIN, "
strSQL = strSQL + "format(Sum(Switch(ums<0,ums)),'#,###.00') AS AUS, "
strSQL = strSQL + "format(Sum(ums),'#,###.00') AS MON_SALDO, "
strSQL = strSQL + "Month(valuta)+Year(valuta) AS zeit, "
strSQL = strSQL + "Year(valuta) & Month(valuta) AS zeit2 "
strSQL = strSQL + "FROM a2004 "
strSQL = strSQL + "GROUP BY Year(valuta), Month(valuta) "
strSQL = strSQL + "HAVING (((Year([valuta])) > 2009)) "
strSQL = strSQL + "ORDER BY Year(valuta) DESC , Month(valuta) DESC;"

Set qdf = db.CreateQueryDef("cross_tab", strSQL)
DoCmd.OpenQuery "cross_tab", acViewNormal
DoCmd.MoveSize 4400, 3000, 12000, 5500

End Sub


Danke im voraus!

kauz