export des tables vides acess vba

**watred** · 13/11/2016, 11h28

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** · 13/11/2016, 14h27

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** · 13/11/2016, 16h15

Hello
Ca marche parfaitement bien merci à toi!

**watred** · 18/11/2016, 11h23

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** · 18/11/2016, 14h53

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** · 18/11/2016, 16h26

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

**tee_grandbois** · 18/11/2016, 18h38

Mettre uniquement le Dim I as Byte à l'extérieur de la boucle. Par convention, les variables sont déclarées en début de code.

A l’intérieur message d’erreur «3021 aucun enregistrement en cours.

A quelle instruction apparait ce message ?

Code :

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

1
2
3
4
5
6
7
Do While Not rs.EOF
	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

Peux-tu expliquer ce que doit faire ce code ?

**watred** · 18/11/2016, 18h52

Bonjour l'erreur est sur sur la ligne
& rs.Fields("nom") & ";" & rs.Fields("prénom") & ";" & rs.Fields("age")+I & "; >"Le programme doit ajouter à la colonne age un entier de 1 à 100 pour donner des âges fictifs aux personnage mais chaque enregistrement doit sincrementer de 1
Merci

**tee_grandbois** · 18/11/2016, 20h28

Code :

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

1
2
3
4
5
6
Do While Not rs.EOF
	For I = 1 to 100
		Print #1, " < " & rs.Fields("nom") & ";" & rs.Fields("prénom") & ";" & rs.Fields("age")+I & "; >"
		rs.MoveNext
		Print #1, (" ")
	NEXT I

ta boucle est incorrecte car elle force 100 fois le MoveNext à chaque lecture d'un enregistrement d'où le message 3021, car le Movenext au bout d'un moment arrive à la fin du Recordset.
Si c'est pour donner un age fictif tu peux ajouter un nombre aléatoire.
Utilise se code pour les générer :

Code :

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

1
2
3
4
5
6
7
Dim nbLimitesup As Byte
Dim nbLimiteInf As Byte
Dim I As Byte     ' Déclarations de variables à placer en début de code
 
nbLimiteInf = 1
nbLimitesup = 100
I = Int((nbLimitesup - nbLimiteInf + 1) * Rnd + nbLimiteInf)

il ne reste plus qu'à ajouter I à age :

Code :

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

1
2
3
4
5
6
7
8
        Print #1, ("classe cm1")
            Do While Not rs.EOF
                Print #1, " < " & rs.Fields("nom") & ";" & rs.Fields("prénom") & ";" & rs.Fields("age")+I & "; >"
                rs.MoveNext
                Print #1, (" ")
            Loop
        Close #1
    End If

**tee_grandbois** · 18/11/2016, 20h36

Désolé, j'ai été trop vite, il faut faire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
       Print #1, ("classe cm1")
            Do While Not rs.EOF
                I = Int((nbLimitesup - nbLimiteInf + 1) * Rnd + nbLimiteInf)
                Print #1, " < " & rs.Fields("nom") & ";" & rs.Fields("prénom") & ";" & rs.Fields("age")+I & "; >"
                rs.MoveNext
                Print #1, (" ")
            Loop
        Close #1
    End If

**watred** · 18/11/2016, 20h51

Envoyé par tee_grandbois

Désolé, j'ai été trop vite, il faut faire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
       Print #1, ("classe cm1")
            Do While Not rs.EOF
                I = Int((nbLimitesup - nbLimiteInf + 1) * Rnd + nbLimiteInf)
                Print #1, " < " & rs.Fields("nom") & ";" & rs.Fields("prénom") & ";" & rs.Fields("age")+I & "; >"
                rs.MoveNext
                Print #1, (" ")
            Loop
        Close #1
    End If

Bonsoir
Merci de ton retour,
Je cherche à ajouter un age fictif dans une plage définie,une sorte de suite qui s'incrémente en fonction de mon age initial, j'ai testé ton code il marche bien, sauf que la fonction aléatoire ne m'arrange pas o faite.

**tee_grandbois** · 18/11/2016, 21h02

Je ne comprend pas trop le but recherché. Et ceci tout simplement ?

Code :

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

1
2
3
4
5
6
7
8
9
        Print #1, ("classe cm1")
            Do While Not rs.EOF
				I = I + 1
                Print #1, " < " & rs.Fields("nom") & ";" & rs.Fields("prénom") & ";" & rs.Fields("age")+I & "; >"
                rs.MoveNext
                Print #1, (" ")
            Loop
        Close #1
    End If

**watred** · 18/11/2016, 21h24

Envoyé par tee_grandbois

Je ne comprend pas trop le but recherché. Et ceci tout simplement ?

Code :

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

1
2
3
4
5
6
7
8
9
        Print #1, ("classe cm1")
            Do While Not rs.EOF
				I = I + 1
                Print #1, " < " & rs.Fields("nom") & ";" & rs.Fields("prénom") & ";" & rs.Fields("age")+I & "; >"
                rs.MoveNext
                Print #1, (" ")
            Loop
        Close #1
    End If

hello
c'était bien ca le but
merci grace à toi je vais dormir moins bête soir.

**watred** · 19/11/2016, 21h19

Bonsoir
J’ai un petit problème avec mon code :

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

Le code plante à la ligne : Print #1, " < " & rs.Fields("nom") & ";" & rs.Fields("prénom") & ";" & rs.Fields("age") & "; >"

Avec le message d’erreur 52 : nom ou numéro de fichier incorrecte, pourtant la requete classe cm1 s’exécute bien avec des données, j’ai regardé sur internet il disent que c’est un problème de chemin, mais mon chemin est correcte.
Je ne sais pas si tu vois d’où ça peut venir cette erreur ?
Merci

**tee_grandbois** · 19/11/2016, 22h35

Bonsoir,
peut-être à cause de l'espace après BUREAU ?

**watred** · 19/11/2016, 22h40

Envoyé par tee_grandbois

Bonsoir,
peut-être à cause de l'espace après BUREAU ?

Non le fichier marchait bien ,des que j'ai changé les entrées,plus rien,pourtant la requête acess marche

**tee_grandbois** · 19/11/2016, 22h44

qu'appelles-tu "changer les entrées" ?

**watred** · 19/11/2016, 23h02

Envoyé par tee_grandbois

qu'appelles-tu "changer les entrées" ?

Changer les enregistrements de la requête de la table cm1

**tee_grandbois** · 19/11/2016, 23h16

Peux-tu taper : close #1 dans la fenêtre d'exécution, cela forcera la fermeture du fichier si jamais il est ouvert (sinon, il y a un message d'erreur sans importance).
Ensuite, modifie ton code en donnant un numéro différent pour cm2 :

Code :

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

1
2
3
Open "C:\BUREAU \CLASSES\CM2.txt" For Output As #2
...Print #2
etc...

**tee_grandbois** · 19/11/2016, 23h25

et enlèves quand même l'espace après BUREAU

export des tables vides acess vba

VBA Access

Discussions similaires

Partager

Partager