Hallo Spezialisten,
ich komme nicht weiter.
Die Tabellen werden korrekt zusammengeführt, jedoch wird die gesamte Tabelle nach der letzten ORDER-Anweisung (Nachname) sortiert. Ich möchte aber die beiden Tabellen unterschiedlich sortiert zusammenführen.
Hat da jemand eine Lösung?
Ich übergebe folgende Auswahlabfrage per VBA:
Dim DB As Database
Dim Qry As QueryDef
Dim Strsql1 As String
Strsql1 = " SELECT Qry_Tabelle1.Vorname, Qry_Tabelle1.Nachname“
Strsql1 = Strsql1 & " FROM [Qry_Tabelle1] "
Strsql1 = Strsql1 & " ORDER BY Vorname "
Strsql1 = Strsql1 & " UNION
Strsql1 = Strsql1 & " SELECT Qry_ Tabelle2.Vorname, Qry_ Tabelle2.Nachname,
Strsql1 = Strsql1 & " FROM [Qry_Tabelle2] "
Strsql1 = Strsql1 & " ORDER BY Nachname ;"
Set DB = CurrentDb()
Set Qry = DB.QueryDefs("Qry_Tabelle3")
Qry.SQL = Strsql1
Set DB = Nothing
Set Qry = Nothing
ich komme nicht weiter.
Die Tabellen werden korrekt zusammengeführt, jedoch wird die gesamte Tabelle nach der letzten ORDER-Anweisung (Nachname) sortiert. Ich möchte aber die beiden Tabellen unterschiedlich sortiert zusammenführen.
Hat da jemand eine Lösung?
Ich übergebe folgende Auswahlabfrage per VBA:
Dim DB As Database
Dim Qry As QueryDef
Dim Strsql1 As String
Strsql1 = " SELECT Qry_Tabelle1.Vorname, Qry_Tabelle1.Nachname“
Strsql1 = Strsql1 & " FROM [Qry_Tabelle1] "
Strsql1 = Strsql1 & " ORDER BY Vorname "
Strsql1 = Strsql1 & " UNION
Strsql1 = Strsql1 & " SELECT Qry_ Tabelle2.Vorname, Qry_ Tabelle2.Nachname,
Strsql1 = Strsql1 & " FROM [Qry_Tabelle2] "
Strsql1 = Strsql1 & " ORDER BY Nachname ;"
Set DB = CurrentDb()
Set Qry = DB.QueryDefs("Qry_Tabelle3")
Qry.SQL = Strsql1
Set DB = Nothing
Set Qry = Nothing
Comment