Maak een formulier (form1) en voer tenminste het sleutelveld in.
Bij het (sleutelveld) “klik” event maak je de volgende VBA code (In mijn voorbeeld is Veld1 de sleutel en jij moet dat natuurlijk aanpassen):
Private Sub Veld1_Click()
For counter = 1 To 4
DoCmd.OutputTo acOutputQuery, “query1”, acFormatTXT, veld1, True
DoCmd.RunCommand (acCmdRecordsGoToNext)
Next counter
End Sub
De counter loopt van 1 tot 4 en maakt dus 4 TXT files. (Later uitbreiden)
De informatie die in een TXT file staat wordt bepaald door een query (query1) die als volgt gedefinieerd is:
SELECT Tabel.veld1, Tabel.veld2, Tabel.veld3
FROM Company
WHERE (((Tabel.veld1)=!!));
Als je dit laatste copieerd en in de ontwerp SQL view zet dan kun je ook makkelijk naar “design view” en zie je meteen wat de bedoeling is.
Verander je het getal 4 in 1000000000 dan wordt een foutcode gemeld. Niet erg, je files staan ondertussen op de harde schijf.