Access: Automatisierter Export
 

Hallo, ich hab eine Tabelle mit einem Codefeld (z.B. CODE). Der Code ist durchnummeriert z.B. von 1 bis 3.

Nun will ich alle Daten getrennt und automatisiert ausgeben, ohne, dass ich für jeden Code eine Abfrage speichern muss.

Wie kann ich ihm in vba die Parameter für die Where-Klausel übergeben?

mit objQuery.Parameters("Param").Value = 1 gehts nicht, weil ja nur Auswahlabfrage...

Ideen?

Wenn du das Ergebnis in jeweils einer TextDatei haben willst, gehts z.B. so (mit DAO Zugriff)

dim RS as recordset

set RS=currentdb.openrecordset("Tabelle_mit_Codes")
rs.movefirst

while not rs.eof
open "c:\Datei_" & RS!Nummer_des_Codes & ".txt" for output as #1
print#1, RS!Code
close#1
rs.movenext
wend
rs.close

Dann wuerde für jeden Code eine Datei mit der Code_Nummerierung im Dateinamen und dem Code in der Datei erzeugt werden.

Es gibt natürlich noch unzählige andere Lösungswege.. je nach Gusto

Ja, den Lösungsweg kenn ich eh, aber hab eigentlich nicht so den Gusto darauf :D

Mal schauen, ob noch was anderes kommt...

Du kannst auch die Funktion TransferText (oder TransferSpreadsheet wenns nach Excel gehen soll) verwenden um das Ergebnis deiner Auswahlabfrage zu exportieren.

du kannst den vollständigen SQL-text einer auswahlabfrage zur laufzeit ändern, oder auch eine neue abfrage erstellen. die abfrage hat ein entsprechendes property (sqltext oder so?), da kannst du "select ... where x=y" reinschreiben, speichern, ausgeben, ...
oder du machst ein "abfragen-template", in der du deinen param mit irgend einem prägnanten wert ersetzt, den text dann zur laufzeit lädst, eine neue abfrage erstellst, den text mit ersetztem parameter reinschreibst etc.... und dann löschst.
denke der overhead dabei sollte sich in grenzen halten, ist ja nur access :)