Discussion :

[bostoli]

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 ?

[jfc]

Utilise plutôt un Recordset DAO et tu fais ce qui suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim strsql as string
strsql = "SELECT ...."   ' utilise ta clause SQL du formulaire
Set rst = currentdb.openrecordset(strsql)
 
if rst.recordcount > 0 then
   do until rst.eof
       a.WriteLine rs!NUMFACTCOMPLET & rs!TOTAL TTC
       rst.movenext
   loop
 
 
 
end if

[bostoli]

Merci beaucoup, mais il n'y a pas plus simple ? je ne comprends rien !

En fait, je n'arrive pas à adaper le code à mon projet.

Il n'y a pas un code ultra basique (?) pour dire :

1 Aller au premier enregirstrement
2 Si c'est le dernier, aller à FIN et (end sub)
3 Si ce n'est pas le dernier, aller et prochain, et ainsi de suite.

Je croyais qu'il y avait une expression pour dire un truc du style
if Record=last record then...

Merci pour ton aide.

[jfc]

la propriété Me.Recordset.RecordCount te donne le nombre d'enregistrements affichés dans ton formulaire

la propriété Me.CurrentRecord te donne le numéro de l'enregistrement en cours.

Attention (extraction de l'aide de Microsoft) : La propriété RecordCount n'indique pas le nombre d'enregistrements contenus dans un objet Recordset de type Feuille de réponses dynamique (Dynaset), Instantané (Snapshot) tant que vous n'avez pas eu accès à tous les enregistrements. Ton formulaire est normalement de type Feuilles de répondes dynamique.

Cela veut dire que pour aussurer le coup, tu dois aller au dernier enregistrement, sauver dans une variable déclarée au niveau du formulaire, le nombre d'enregistrements, retourner à l'enregistrement de départ et commencer ta routine.

A mon humble avis, la solution de parcourir le recordset est plus simple une fois que l'on a compris comment fonctionne DAO.

toujours à mon avis, cela vaut la peine de consacrer un peu de temps à apprendre DAO. Par expérience et pour avoir formé 4 apprentis, lorsqu'ils ont compris DAO, de nombreuses actions ont été beaucoup plus simples à réaliser, respectivement DAO te donne une nouvelle puissance à ta base.

[Lou Pitchoun]

Salut,

Un tutoriel à lire : manipulation des enregistrements avec DAO

[bostoli]

Merci encore JFC, tu viens de nous sortir d'une mauvaise impasse. On a simplement utilisé la commande CurrentRecord en allant au dernier pour mettre en mémoire le nombre d'enregistrements :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DoCmd.GoToRecord acDataForm, "F LISTE FACTURES LIEN", acLast
Dim TOTENR As String
TOTENR = CurrentRecord
DoCmd.GoToRecord acDataForm, "F LISTE FACTURES LIEN", acFirst
 
BOUCLE:
Dim NUMENR As String
NUMENR = CurrentRecord
MsgBox [NUMENR] & [TOTENR]
If NUMENR = TOTENR Then GoTo FIN
DoCmd.GoToRecord acDataForm, "F LISTE FACTURES LIEN", acNext
GoTo BOUCLE
 
FIN:
MsgBox "FINI"

C'était tout bête en fait comme souvent, mais on pensait que recordcount permettait de mettre en mémoire le nbre d'enregistrements, un peu comme Current Record. Merci encore.