export des tables vides acess vba

Version imprimable

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

Hello
Je pense avoir trouver le problème :

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
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\CM.txt" For Output As #1
         Print #1, ("Date d’import")
        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
    End If
 
    Set rs = CurrentDb.OpenRecordset("Requête cm2")
 
    If Not rs.EOF And Not rs.BOF Then
        Print #1, ("Date d’import")
 
        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

Quand je supprime le 2eme If Not rs.EOF And Not rs.BOF Then et le if ça marche bien , le seul soucis qui reste ce : Quand il ya des données sur les 2 tables cm1 et cm2 j’ai la date d’import en double (ligne obligatoire unique ) .. (je dois mettre une boucle dessus si oui de quel type ?) merci

20/11/2016, 13h52
tee_grandbois

Bonjour,
est-ce que tu veux qu'un seul fichier pour les 2 tables ?
20/11/2016, 13h54
watred

Re

Citation:

Envoyé par tee_grandbois

Bonjour,
est-ce que tu veux qu'un seul fichier pour les 2 tables ?

Oui finalement j'ai mis qun seul j'ai oublié de t'informer
20/11/2016, 13h55
tee_grandbois

Citation:

Hello
Je pense avoir trouver le problème

en fait non, c'est parce qu'il manque l'instruction Close #1 dans la première boucle.
20/11/2016, 13h58
watred

Citation:

Envoyé par tee_grandbois

en fait non, c'est parce qu'il manque l'instruction Close #1 dans la première boucle.

Non il s'agit d'un seul fichier pour économiser le volume finalement donc il doit y avoir qun seul close
20/11/2016, 14h01
tee_grandbois

Citation:

Oui finalement j'ai mis qun seul j'ai oublié de t'informer

et je suppose qu'il peut y avoir :
1) aucune donnée dans cm1 et en avoir dans dans cm2
2) des données dans cm1 et aucune dans cm2
3) des données dans cm1 et dans cm2
4) aucune donnée dans cm1 ni cm2
20/11/2016, 14h06
watred

Citation:

Envoyé par tee_grandbois

et je suppose qu'il peut y avoir :
1) aucune donnée dans cm1 et en avoir dans dans cm2
2) des données dans cm1 et aucune dans cm2
3) des données dans cm1 et dans cm2
4) aucune donnée dans cm1 ni cm2

Exactement avec un seul if ca fonctionne je pense le soucis c'est la ligne de date que je ne souhaite pas qu'elle se répète quand il y'a les donnée dans cm1 et cm2 ,et avoir un seul en-tête quand il y'a les 2

Avec ce code cela devrait être bon :

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
33
34
35
36
37
38
39
40
41
42
Function Export_txt()
   Dim itexist As Integer
   Dim rs1 As DAO.Recordset
   Dim rs2 As DAO.Recordset
   Set rs1 = CurrentDb.OpenRecordset("Requête cm1")
   Set rs2 = CurrentDb.OpenRecordset("Requête cm2")
 
    itexist = rs1.BOF + rs1.EOF + rs2.BOF + rs2.EOF
 
    If itexist > -3 Then  ' Au moins 1 fichier est renseigné
        Open "C:\BUREAU \CLASSES\CM.txt" For Output As #1
        Print #1, ("Date d?import")
    End If
 
    If Not rs1.EOF And Not rs1.BOF Then
        Print #1, ("classe cm1")
            Do While Not rs1.EOF
                Print #1, " < " & rs1.Fields("nom") & ";" & rs1.Fields("prénom") & ";" & rs1.Fields("age") & "; >"
                rs1.MoveNext
                Print #1, (" ")
            Loop
    End If
 
 
    If Not rs2.EOF And Not rs2.BOF Then
        Print #1, ("classe cm2")
        Do While Not rs2.EOF
                Print #1, " < " & rs2.Fields("nom") & ";" & rs2.Fields("prénom") & ";" & rs2.Fields("age") & "; >"
            rs2.MoveNext
            Print #1, (" ")
        Loop
    End If
 
    If itexist > -3 Then Close #1
 
    rs1.Close
    Set rs1 = Nothing
    rs2.Close
    Set rs2 = Nothing
 
 
End Function

20/11/2016, 15h33
watred
Bonjour,
j'ai testé ton code marche bien , juste 2 dernieres questions pour finir avec ce code:
1 si je veux rajouter une instruction de fin pour le fichier globale je peux la mettre à la fin comme ca?
Code:

1 2 3 4 5 6 If itexist > -3 Then Print #1, ("fin") Close #1 rs1.Close Set rs1 = Nothing rs2.Close Set rs2 = Nothing
2 eme question : If itexist > -3 pourquoi le -3 si j'ai plusieurs tables classes de cm ca ne change rien?
merci
20/11/2016, 16h13
watred

Citation:

Envoyé par watred

Bonjour,
j'ai testé ton code marche bien , juste 2 dernieres questions pour finir avec ce code:
1 si je veux rajouter une instruction de fin pour le fichier globale je peux la mettre à la fin comme ca? If itexist > -3 Then Print #1, ("fin")
Close #1
rs1.Close
Set rs1 = Nothing
rs2.Close
Set rs2 = Nothing
2 eme question : If itexist > -3 pourquoi le -3 si j'ai plusieurs tables classes de cm ca ne change rien?
merci

Merci de ton aide !!!!
20/11/2016, 16h15
tee_grandbois

Citation:

2 eme question : If itexist > -3 pourquoi le -3 si j'ai plusieurs tables classes de cm ca ne change rien?
merci

ben non justement çà ne marche que pour 2 fichiers.

Dernière version pour 2 fichiers ou plus :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Function Export_txt()
 
   Dim itexist As Integer
   Dim rs1 As DAO.Recordset
   Dim rs2 As DAO.Recordset
   Dim rs3 As DAO.Recordset
 
   Set rs1 = CurrentDb.OpenRecordset("Requête cm1")
   Set rs2 = CurrentDb.OpenRecordset("Requête cm2")
   Set rs3 = CurrentDb.OpenRecordset("Requête cm3")
 
    ' test requête 1    
    itexist = rs1.BOF + rs1.EOF
    ' test requête 2
    If itexist < 0 Then itexist = rs2.BOF + rs2.EOF
    ' test requête 3
    If itexist < 0 Then itexist = rs3.BOF + rs3.EOF
    '...
 
    If itexist = 0 Then ' Au moins 1 fichier est renseigné
        Open "C:\BUREAU \CLASSES\CM.txt" For Output As #1
        Print #1, ("Date d?import")
    End If
 
    If Not rs1.EOF And Not rs1.BOF Then
        Print #1, ("classe cm1")
        Do While Not rs1.EOF
            Print #1, " < " & rs1.Fields("nom") & ";" & rs1.Fields("prénom") & ";" & rs1.Fields("age") & "; >"
            rs1.MoveNext
            Print #1, (" ")
        Loop
    End If
 
    If Not rs2.EOF And Not rs2.BOF Then
        Print #1, ("classe cm2")
        Do While Not rs2.EOF
                Print #1, " < " & rs2.Fields("nom") & ";" & rs2.Fields("prénom") & ";" & rs2.Fields("age") & "; >"
            rs2.MoveNext
            Print #1, (" ")
        Loop
    End If
 
    If itexist = 0 Then Close #1
 
    rs1.Close
    Set rs1 = Nothing
    rs2.Close
    Set rs2 = Nothing
    rs3.Close
    Set rs3 = Nothing
 
End Function

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