export des tables vides acess vba

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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

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:

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

13/11/2016, 16h15
watred

RE

Hello
Ca marche parfaitement bien merci à toi!

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:

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

18/11/2016, 14h53
tee_grandbois

Bonjour,

Citation:

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:

DiM I AS byte

et déplace-le hors de tes boucles.
18/11/2016, 16h26
watred

Re

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
18/11/2016, 18h38
tee_grandbois
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.

Citation:

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

A quelle instruction apparait ce message ?
Code:

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 ?
18/11/2016, 18h52
watred

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

Code:

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:

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:

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

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

Code:

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

Citation:
Envoyé par tee_grandbois
Désolé, j'ai été trop vite, il faut faire ceci :
Code:

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.

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

Code:

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

Citation:

Envoyé par tee_grandbois

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

Code:

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.

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

Code:

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

19/11/2016, 22h35
tee_grandbois

Bonsoir,
peut-être à cause de l'espace après BUREAU ?
19/11/2016, 22h40
watred

Citation:

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
19/11/2016, 22h44
tee_grandbois

qu'appelles-tu "changer les entrées" ?
19/11/2016, 23h02
watred

Citation:

Envoyé par tee_grandbois

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

Changer les enregistrements de la requête de la table cm1
19/11/2016, 23h16
tee_grandbois
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:

1 2 3 Open "C:\BUREAU \CLASSES\CM2.txt" For Output As #2 ...Print #2 etc...
19/11/2016, 23h25
tee_grandbois

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

Voir 40 message(s) de cette discussion en une page

Fuseau horaire GMT +2. Il est actuellement 11h36.