Discussion :

[watred]

Bonjour,
Je possède un nombre de table par classe d’école (cm1,cp,…),mon besoin est de faire l’export des infos de ces tables et les stockées dans un fichier texte sur mon bureau.
Mon problème je souhaite que si une table est vide de ne pas me générer le fichier correspondant .
Je n’arrive pas à faire cela avec une boucle if .Si vous avez des idées merci ;
voici le code ( pour ce cas la table cm2 est vide maisle programme beug à la ligne If rs.Fields("nom")<>0 then
Il me dit objet manquant ) :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
Function Export_txt()
  Dim rs As DAO.Recordset
   Set rs = CurrentDb.OpenRecordset("Requête cm1")
 
 
Open "C:\BUREAU \CLASSES\CM1.txt" For Output As #1
 
  Print #1, ("classe cm1")
  Do While Not rs.EOF
    Print #1, " < & rs.Fields("nom")& rs.Fields("prénom") & & rs.Fields("age") >"
    rs.MoveNext
     Print #1, (" ")
 Loop
     Set rs = CurrentDb.OpenRecordset("Requête cm2")
If rs.Fields("nom")<>0 then 
Open "C:\BUREAU \CLASSES\CM2.txt" For Output As #1
Print #1, ("classe cm2")
  Do While Not rs.EOF
    Print #1, " < & rs.Fields("nom")& rs.Fields("prénom") & & rs.Fields("age") >"
    rs.MoveNext
     Print #1, (" ")
Loop
  ELSE  
  Close #1
END IF
END FUNCTION
 
Merci

[tee_grandbois]

Bonjour,
teste les valeurs EOF et BOF avant d'ouvrir ton fichier si les 2 ont la valeur True c'est que ta table est vide :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Function Export_txt()
  Dim rs As DAO.Recordset
   Set rs = CurrentDb.OpenRecordset("Requête cm1")
 
    If Not rs.EOF And Not rs.BOF Then
        Open "C:\BUREAU \CLASSES\CM1.txt" For Output As #1
 
        Print #1, ("classe cm1")
            Do While Not rs.EOF
                Print #1, " < " & rs.Fields("nom") & ";" & rs.Fields("prénom") & ";" & rs.Fields("age") & "; >"
                rs.MoveNext
                Print #1, (" ")
            Loop
        Close #1
    End If
 
    Set rs = CurrentDb.OpenRecordset("Requête cm2")
 
    If Not rs.EOF And Not rs.BOF Then
        Open "C:\BUREAU \CLASSES\CM2.txt" For Output As #1
 
        Print #1, ("classe cm2")
        Do While Not rs.EOF
                Print #1, " < " & rs.Fields("nom") & ";" & rs.Fields("prénom") & ";" & rs.Fields("age") & "; >"
            rs.MoveNext
            Print #1, (" ")
        Loop
        Close #1
    End If
rs.Close
Set rs = Nothing
End Function

[watred]

Hello
Ca marche parfaitement bien merci à toi!

[watred]

Je souhaite rajouter une variable (qui s’incrémente automatiquement à ma ligne) à la variable age
J’ai rajouté un I mais ca ne fonctionne pas

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
16
17
18
19
 Function Export_txt()
  Dim rs As DAO.Recordset
   Set rs = CurrentDb.OpenRecordset("Requête cm1")
 
    If Not rs.EOF And Not rs.BOF Then
        Open "C:\BUREAU \CLASSES\CM1.txt" For Output As #1
 
        Print #1, ("classe cm1")
            Do While Not rs.EOF
DiM  I AS byt
For I =1 to 100
                Print #1, " < " & rs.Fields("nom") & ";" & rs.Fields("prénom") & ";" & rs.Fields("age")+I & "; >"
                rs.MoveNext
                Print #1, (" ")
NEXT I
            Loop
        Close #1
    End If
 End Function

Merci de votre aide

[tee_grandbois]

Bonjour,

J’ai rajouté un I mais ca ne fonctionne pas

Ce n'est pas suffisant comme indication, merci de mieux expliquer ton problème (messages d'erreur, résultat incorrect...).
Corrige déjà ceci :

Code :

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

DiM  I AS byte

et déplace-le hors de tes boucles.

[watred]

A l’extérieure de la boucle ça marche mais ça ne s’incrémente pas
A l’intérieur message d’erreur «3021 aucun enregistrement en cours.
Merci