MrBean12345
Benutzer
- Beiträge
- 5
Hallo zusammen,
vermutlich war meine letzte Frage zu speziell. Daher versuche ich es anders. Ich erstelle folgende zwei Recordsets:
Option Compare Database
Option Explicit
Public M_DBS As DAO.Database
Public Sub Lesen()
Dim SQL As String
'-------------------------------------------------------------------------------------------------------------------------------
Dim RohdatenKosten As DAO.Recordset
SQL = "SELECT [Kostenstelle], [ExpenseType_Group], SUM([Betrag_in_Hauswährung]) as AggregierteKosten FROM" & _
"[CC_Konten_Betrag] GROUP BY [Kostenstelle], [ExpenseType_Group];"
Set RohdatenKosten = DBS.OpenRecordset(SQL, dbOpenDynaset)
'-------------------------------------------------------------------------------------------------------------------------------
Dim RohdatenErträge As DAO.Recordset
SQL = "SELECT [ProfitCenter], [Kategorisierung], [KundenName], SUM([Betrag]) as AggregierteErtäge" & _
" FROM [Kompakt aus Top20] GROUP BY [ProfitCenter], [Kategorisierung], [KundenName];"
Set RohdatenErträge = DBS.OpenRecordset(SQL, dbOpenDynaset)
'-------------------------------------------------------------------------------------------------------------------------------
Nun möchte ich die zwei Recordsets "RohdatenKosten" und "RohdatenErträge" zu einer Tabelle verbinden.
Jedoch komme ich hier mit der Syntax einfach nicht weiter. Selbst eine triviale Abfrage, wie z.B.
Dim Datenbasis As DAO.Recordset
SQL = "SELECT [RohdatenErträge]![ProfitCenter] FROM [RohdatenErträge];"
Set Datenbasis = DBS.OpenRecordset(SQL, dbOpenDynaset)
funktioniert einfach nicht. Mache ich aber einfaches Debugging, wie z.B. ,
Do While Not [RohdatenErträge].EOF
Debug.Print [RohdatenErträge]![ProfitCenter], [RohdatenErträge]![Kategorisierung], _
[RohdatenErträge]![KundenName], [RohdatenErträge]![AggregierteErtäge]
[RohdatenErträge].MoveNext
Loop
dann gibt VBA alle Spaltenausprägungen im Direktfenster aus.
Meine Frage: warum funktioniert bei mir das SELECT-Statement nicht, wenn ich aus einem bereits existierenden RecordSet ein neues RecordSet erstellen möchte? Für Ansätze wäre ich wirklich dankbar.
Liebe Grüße
vermutlich war meine letzte Frage zu speziell. Daher versuche ich es anders. Ich erstelle folgende zwei Recordsets:
Option Compare Database
Option Explicit
Public M_DBS As DAO.Database
Public Sub Lesen()
Dim SQL As String
'-------------------------------------------------------------------------------------------------------------------------------
Dim RohdatenKosten As DAO.Recordset
SQL = "SELECT [Kostenstelle], [ExpenseType_Group], SUM([Betrag_in_Hauswährung]) as AggregierteKosten FROM" & _
"[CC_Konten_Betrag] GROUP BY [Kostenstelle], [ExpenseType_Group];"
Set RohdatenKosten = DBS.OpenRecordset(SQL, dbOpenDynaset)
'-------------------------------------------------------------------------------------------------------------------------------
Dim RohdatenErträge As DAO.Recordset
SQL = "SELECT [ProfitCenter], [Kategorisierung], [KundenName], SUM([Betrag]) as AggregierteErtäge" & _
" FROM [Kompakt aus Top20] GROUP BY [ProfitCenter], [Kategorisierung], [KundenName];"
Set RohdatenErträge = DBS.OpenRecordset(SQL, dbOpenDynaset)
'-------------------------------------------------------------------------------------------------------------------------------
Nun möchte ich die zwei Recordsets "RohdatenKosten" und "RohdatenErträge" zu einer Tabelle verbinden.
Jedoch komme ich hier mit der Syntax einfach nicht weiter. Selbst eine triviale Abfrage, wie z.B.
Dim Datenbasis As DAO.Recordset
SQL = "SELECT [RohdatenErträge]![ProfitCenter] FROM [RohdatenErträge];"
Set Datenbasis = DBS.OpenRecordset(SQL, dbOpenDynaset)
funktioniert einfach nicht. Mache ich aber einfaches Debugging, wie z.B. ,
Do While Not [RohdatenErträge].EOF
Debug.Print [RohdatenErträge]![ProfitCenter], [RohdatenErträge]![Kategorisierung], _
[RohdatenErträge]![KundenName], [RohdatenErträge]![AggregierteErtäge]
[RohdatenErträge].MoveNext
Loop
dann gibt VBA alle Spaltenausprägungen im Direktfenster aus.
Meine Frage: warum funktioniert bei mir das SELECT-Statement nicht, wenn ich aus einem bereits existierenden RecordSet ein neues RecordSet erstellen möchte? Für Ansätze wäre ich wirklich dankbar.
Liebe Grüße