Ouvrir un état on modification et l'imprimer +eurs fois.
Ouvrir un état on modification et l'imprimer +eurs fois. - VB/VBA/VBS - Programmation
MarshPosté le 10-06-2004 à 12:39:48
Bonjour, J'ai la table "etablissement" contient parmi les champs le champ "poste_resp" et j'ai un état "lettre_offre" contenant déjà entête, pied et un texte dans la section détail. j'ai fait dans l'état un champ "zone de texte" que j'ai l'appelé "poste" (dans la section détail), je veux entrer en boucle tant que non fin d'enregistrements dans la table "etablissement", extraire le champ "poste_resp" le mettre dans la zone de texte "poste" de l'état et imprimer l'état et ainsi de suite pour l'ensemble d'enregistrements du table.
voila le code qu'avec j'ai essayé, je trouve le problème dans le traitement de l'état "lettre_offre" (A partir du ligne n°8 jusqu'à ligne n°11).
1 private sub ........()
2 dim db as new adodb.connection 3 dim rec as new adodb.recordset 4 set db=currentproject.connection 5 rec.open "select * from etablissement", db, adopenkeyset,adlockpessimistic 6 with rec 7 do until .eof 8 docmd.openreport "lettre_offre",acviewdesign 9 reports![lettre_offre].poste=!poste_resp 10 docmd.openreport "lettre_offre",acnormal 11 docmd.close a_report,"lettre_offre" 12 .movenext 13 loop 14 end with 15 rec.close 16 end sub Merci.
Marsh Posté le 10-06-2004 à 12:39:48
Bonjour,
J'ai la table "etablissement" contient parmi les champs le champ "poste_resp" et j'ai un état "lettre_offre" contenant déjà entête, pied et un texte dans la section détail. j'ai fait dans l'état un champ "zone de texte" que j'ai l'appelé "poste" (dans la section détail), je veux entrer en boucle tant que non fin d'enregistrements dans la table "etablissement", extraire le champ "poste_resp" le mettre dans la zone de texte "poste" de l'état et imprimer l'état et ainsi de suite pour l'ensemble d'enregistrements du table.
voila le code qu'avec j'ai essayé, je trouve le problème dans le traitement de l'état "lettre_offre" (A partir du ligne n°8 jusqu'à ligne n°11).
1 private sub ........()
2 dim db as new adodb.connection
3 dim rec as new adodb.recordset
4 set db=currentproject.connection
5 rec.open "select * from etablissement", db, adopenkeyset,adlockpessimistic
6 with rec
7 do until .eof
8 docmd.openreport "lettre_offre",acviewdesign
9 reports![lettre_offre].poste=!poste_resp
10 docmd.openreport "lettre_offre",acnormal
11 docmd.close a_report,"lettre_offre"
12 .movenext
13 loop
14 end with
15 rec.close
16 end sub
Merci.