Discussion :

[watred]

Bonsoir
Je dispose des tables acess que je souhaite importer en fichier txt,j'ai une case age et je souhaite importer que les âges entre 0et 70 voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Print #1, ("classe cm1")
Do While Not rs.EOF
I = I + 1
For rs.Fields("age")=0 to  70do
Print #1, " < " & rs.Fields("nom") & ";" & rs.Fields("prénom") & ";" & rs.Fields("age")+I & "; >"
rs.MoveNext
Print #1, (" ")
Loop
Close #1
End If
Merci de ton aide

Je peux utiliser un for pour filtrer les imports ?
Mercî de votre aide

[tee_grandbois]

Bonsoir,
On utilise un For pour exécuter une boucle, ici tu as besoin de filtrer par une condition donc, utilise If :

Code :

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

1
2
3
4
5
If rs.Fields("age")>=0 And  rs.Fields("age") <= 70 Then
    Print #1, " < " & rs.Fields("nom") & ";" & rs.Fields("prénom") & ";" & rs.Fields("age")+I & "; >"
    Print #1, (" ")
End If
rs.MoveNext

[watred]

Thnks