Bonjour, me revoilà avec une question simple mais qui m'agace :

J'écris un fichier TXT à partir d'un formulaire access.

Grosso modo, je lui dis d'aller au premier enregistrement, d'écrire la valeur d'un champ dans mon fichier.txt, puis d'aller au suivant, jusqu'à âtre au dernier. Là on doit quitter l'action et la procédure.

Le code simplifié donne ça actuellement :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\LIENECR.DAT", True)
DoCmd.OpenForm "F EXTRACT LIEN"
DoCmd.GoToRecord , "F EXTRACT LIEN", acFirst
 
ECRIRE:
a.WriteLine Forms![F EXTRACT LIEN]![NUMFACTCOMPLET] & Forms![F EXTRACT LIEN]![TOTAL TTC]
If... "C'est là où je ne trouve pas l'expression qui devrait dire que si on est sur le dernier enregistrement on va à FIN"
DoCmd.GoToRecord , , acNext
docmd.goto ECRIRE
 
FIN:
'a.Close
Quelle est la solution ?