Discussion :

[Chris_Nomade]

Bonjour à tous,

Je suis nouveau sur ce forum et j'ai parcouru pas mal de sujet sur le site traitant en parti de mon problème mais tous mes essais sont KO quand je veux adapté ce qui est proposé...
je vous explique mon besoin :

J'ai créé un Etat pour lequel je lis les données d'un Form (Fiche Pays) pour lequel j'imprime en Pdf la fiche de synthèse avec une règle de nommage (je définis où je veux le stocker, comment il doit s'appeler ("Fiche_"+Pays)
Tout çà fonctionne très bien au cas par cas, depuis le Form, je clique sur un bouton et çà me génère le Pdf et il s'enregistre tout seul là où je veux.

Mon souci c'est que je n'arrive pas à faire une boucle pour qu'à partir d'un bouton je puisse lancer l'édition de toutes les fiches de la table, et non plus depuis un Form unique, pour lesquelles un champs contient une valeur genre "imprime / imprime pas" la fiche...

Est ce que quelqu'un pourrait m'aider svp ?

voici le code pour la partie Edition de la fiche depuis le form :

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
Private Sub Button_Editer_pdf_Click()
'Enregistre les modifs qu'il pourrait y avoir avant de générer la fiche
Refresh
DoCmd.Save acForm, "Fiche Pays"
' Permet d'ouvrir l'état de la fiche Pays en cours pour édition en Pdf
DoCmd.OpenReport "Fiche Pays", acViewReport, , , acWindowNormal
'-------------------------------------
'CheminPDF = définit où sont stockés les fiches PDF en local pour être rapide à la génération
CheminPDF = "C:\Users\Public\Documents"
'NomPDF = définit le nommage du fichier PDF qu'on génére FICHE_ + le pays et l'extention .pdf
NomPDF = "FICHE_" & Pays & ".pdf"
'-------------------------------------
'Ouvre l'Etat et génère la Fiche pdf et referme l'état, le fichier est enregistré directement dans le répertoire CheminPDF
DoCmd.OutputTo acOutputReport, , "PDF", CheminPDF & NomPDF, False, "", , acExportQualityPrint
DoCmd.Close acReport, "Fiche Pays"
'-------------------------------------

[loufab]

Bonjour,

Pour faire une boucle sur les enregistrements tu peux utiliser l'objet recordset de DAO (voir le tuto DAO).

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
Private Sub Button_Editer_pdf_Click()
dim rst as recordset
 
set rst = me.recordsetclone  'cet objet est propre au form et report
rst.movefirst
while not rst.eof
    imprimePdf rst.fields("idpays").value  'je passe la valeur de la clef unique à la procédure
    rst.movenext       
wend
rst=nothing 'parce que quand on ouvre qq chose on le libère
End sub
 
 
Private Sub imprimePdf(rst as long)
'Enregistre les modifs qu'il pourrait y avoir avant de générer la fiche
Refresh
 
'DoCmd.Save acForm, "Fiche Pays" 'Pourquoi ?
 
' Permet d'ouvrir l'état de la fiche Pays en cours pour édition en Pdf
' ICI  "idpays=" idpays on passe la valeur pour que le report n'affiche que ce pays.
 
DoCmd.OpenReport "Fiche Pays", acViewReport, ,  "idpays=" & idpays , acWindowNormal
 
... la suite de ton code
end sub

Cordialement,

[Chris_Nomade]

Bonjour Et Merci pour la réponse commentée,

J'ai un souci quand je clique sur le bouton , j'ai ce message :
Utilisation incorrecte de la propriété "rst"
Est ce que j'ai mal recopié le code ?
j'ai juste modifié le nom du bouton "IMPRIME_FULL" et le nom de l'état "Fiche Pays HLV en masse"

Merci

[micniv]

A corriger :

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
Private Sub Button_Editer_pdf_Click()
dim rst as DAO.recordset
 
set rst = me.recordsetclone  'cet objet est propre au form et report
rst.movefirst
while not rst.eof
    imprimePdf rst.fields("idpays").value  'je passe la valeur de la clef unique à la procédure
    rst.movenext       
wend
rst=nothing 'parce que quand on ouvre qq chose on le libère
End sub
 
 
Private Sub imprimePdf(idpays  as long)
'Enregistre les modifs qu'il pourrait y avoir avant de générer la fiche
Refresh
 
'DoCmd.Save acForm, "Fiche Pays" 'Pourquoi ?
 
' Permet d'ouvrir l'état de la fiche Pays en cours pour édition en Pdf
' ICI  "idpays=" idpays on passe la valeur pour que le report n'affiche que ce pays.
 
DoCmd.OpenReport "Fiche Pays", acViewReport, ,  "idpays=" & idpays , acWindowNormal
 
... la suite de ton code
end sub

[Chris_Nomade]

A corriger :

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
Private Sub Button_Editer_pdf_Click()
dim rst as DAO.recordset
 
set rst = me.recordsetclone  'cet objet est propre au form et report
rst.movefirst
while not rst.eof
    imprimePdf rst.fields("idpays").value  'je passe la valeur de la clef unique à la procédure
    rst.movenext       
wend
rst=nothing 'parce que quand on ouvre qq chose on le libère
End sub
 
 
Private Sub imprimePdf(idpays  as long)
'Enregistre les modifs qu'il pourrait y avoir avant de générer la fiche
Refresh
 
'DoCmd.Save acForm, "Fiche Pays" 'Pourquoi ?
 
' Permet d'ouvrir l'état de la fiche Pays en cours pour édition en Pdf
' ICI  "idpays=" idpays on passe la valeur pour que le report n'affiche que ce pays.
 
DoCmd.OpenReport "Fiche Pays", acViewReport, ,  "idpays=" & idpays , acWindowNormal
 
... la suite de ton code
end sub

'---------------------------
J'ai toujours ce problème..

[tee_grandbois]

bonjour,
petite erreur d'inattention ? c'est DAO.Recordset, pas DAO.rRecordset
penser à compiler le code: cela ne garantit pas qu'il est correct mais au moins vérifie la syntaxe ...

[loufab]

la référence DAO n'est pas chargée.

[tee_grandbois]

bonsoir loufab,
non je pense que cela vient bien du "rR" dans DAO.rRecordset:



ou pas ...

[loufab]

ou pas... plutôt pas complètement.

Si tu relis le 1er message après l'utilisation de mon code, l'orthographe de Recordset est bonne. Et le problème est déjà là.

[Chris_Nomade]

ou pas... plutôt pas complètement.

Si tu relis le 1er message après l'utilisation de mon code, l'orthographe de Recordset est bonne. Et le problème est déjà là.

'--------------------------------------------

Bonjour, je comprends pas çà ne fonctionne toujours pas.
Désolé de vous solliciter encore.

Merci de votre aide

[ONTAYG]

Bonjour

Code :

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

Set rst = nothing

ONTAYG

[Chris_Nomade]

Bonjour

Code :

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

Set rst = nothing

ONTAYG

---------------
RE bonjour,

j'ai du ajouté un champs idpays car ce champs n'existait pas dans la table, c le nom du pays qui sert de référence..

maintenant ça génère bien les 257 Fiches pdf mais elles sont vide de valeurs... juste les libellé de champs mais pas les valeurs...*
=> en reprenant, j'ai vu qu'il y a une requête sur les propriétés de l'état, j'ai pu modifié, maintenant j'ai bien les fiches qui se génère avec les infos dans les zones prévues, le nom est Fiche_ +Idpays (j’aimerais le remplacement par le nom du pays qui est plus parlant, mais ça ne fonctionne pas... et j'aimerais ajouter un critère pour dire "n'imprime que ceux dont la valeur égal "RSA" dans le champs "Source" (j'ai mis ces critères dans la requête de l'état mais l’édition en boucle n'en tient pas compte..

J'ai 257 fiches pays, et il y en a qu'il ne faut imprimer, je devrais en avoir 180 environs car regroupement par pays pour plusieurs lignes... ca, ca fonctionne maintenant...

Merci de vos pistes pour le nommage avec le nom du pays à la place de idpays, et le filtre pour n'éditer que celle dont le critère RSA est renseigné...

Merci encore pour votre aide

[tee_grandbois]

re bonjour,

j'aimerais ajouter un critère pour dire "n'imprime que ceux dont la valeur égal "RSA" dans le champs "Source" (j'ai mis ces critères dans la requête de l'état mais l’édition en boucle n'en tient pas compte..

ce critère est spécifique à quelques pays, mais est-ce que d'autres critères pourraient s'appliquer à d'autres pays ?
Si c'est le dernier cas, le plus simple serait de rajouter un champ de type Oui/Non dans la table Pays qu'il faudra décocher dans le formulaire pour ne pas imprimer