title image


Smiley SQL-Text erzeugen nach einem Feld geordnet
Hallo Accessler,ich versuche gerade, aus einer langen Tabelle mit Klassen, Schülernamen, Noten etc., Excel-Dateien mit den Namen dieser Klassen zu erzeugen. Dazu benutze ich folgenden Code:Dim db As DatabaseDim qd As QueryDefDim rs As Recordset, rstSortiert As Recordset Dim i As IntegerDim SQL As StringSet db = CurrentDb()Set rs = db.OpenRecordset("SELECT Klasse FROM [LUSD0001] GROUP BY [Klasse] ") rs.Sort = "Name"Set qd = db.QueryDefs("Abfrage1")SQL = "SELECT DISTINCTROW * FROM [LUSD0001] " & "WHERE [LUSD0001].Klasse = '"rs.MoveLastFor i = 1 To rs.RecordCountqd.SQL = SQL & rs!KLASSE & "'"DoCmd.TransferSpreadsheet acExport, 8, "Abfrage1", _ "C:\" & rs!KLASSE & ".xls", Truers.MovePreviousNext iEs läuft soweit auch ganz gut, nur möchte ich die Excel-Tabellen nach Namen sortiert haben. Das Feld Name ist in der Tabelle LUSD0001 als Feld enthalten. Alle Versuche, auch mit ORDER BY sind, wahrscheinlich aus Syntaxgründen, gescheitert.Vielleicht sieht ein Experte auf den 1. Blick, wie man da vorgehen müßte? Es wäre schön...GrußAnne

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: