Bonjour,
Je voudrai créer un Pdf séparé pour chaque enregistrement qui se trouve dans ma table en passant par un états (report). l
Bonjour,
Je voudrai créer un Pdf séparé pour chaque enregistrement qui se trouve dans ma table en passant par un états (report). l
voir le tuto sur le sujet.
Envoyé par stephv
ce que j'ai besoin c'est de créer pour chaque record contenu dans une table un PDF.
exemple
pour un record xxx un PDF serait crée => xxx.PDF
zer => zer.PDF
Merçi de bien vouloir m'aider
Hello,
Montre nous ton code, ce que tu as essayé pour y arriver ...
Mon tuto apprend à transformer un état en PDF, n'importe quel état ...
C'est à toi de paramétrer l'état pour qu'il n'y ait qu'un seul enregistrement.
Pour résumer la solution n'est pas PDF mais plutôt Access.
Si tu me dis que le problème se situe du côté access peux-tu me dire qu'est ce que je dois faire pour qu'il me crée un état pour chaque enregistrement automatiquementEnvoyé par cafeine
On recommence : qu'est-ce que tu as fait ? où en es-tu ?
Une piste :
- faire une boucle sur chaque enregistrement de la table (recordset)
- restreindre les enregistrements sur lesquels porte l'état à un seul ...
- imprimer l'état vers un PDF
la FAQ est ton amie
comment puis-je faire cette boucle au niveau du formulaire ou de l'etat ?Envoyé par cafeine
Pour restreinte les enregistrement sur lesquels porte l'etat à un seul je pense qu'il me suffit que je mette un critére dans ma requete utilisée pour generer mon état
ex id =applid
Partie 1- avec un recordset FAQEnvoyé par stephv
Partie 2- Oui bonne piste
OK mais je ne sais toujour pas où dois-je mettre ce recordset. désolé je débute.Envoyé par cafeine
Est ce que je démarre cela apartir d'un formulaire ?
Voiçi le code que je viens de faire il creer de ficher SNP sans problem comme puis-creer des fichiers pdfEnvoyé par stephv
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 Private Sub Commande0_Click() Dim rest As DAO.Recordset On Error GoTo Err_Commande0_Click Dim stDocName As String Set rest = Me.RecordsetClone nb = rest.RecordCount While Not rest.EOF stDocName = "Details SDS Report - Application Level search" DoCmd.OutputTo acReport, stDocName, acFormatSNP, Me.APPNAME & ".SNP" Me.Form.Recordset.MoveNext Wend Exit_Commande0_Click: Exit Sub Err_Commande0_Click: MsgBox Err.Description Resume Exit_Commande0_Click End Sub
J'ai fait un tuto sur la création de PDF.
lien dans ma signature.
j'ai un problème je n'arrive pas à acceder depuis mon travail sur ce lien.Envoyé par cafeine
Je viens de lire ton tutto.
N'est il pas possible de donnée le nom au fichier directement, via l'intermediaire d'une variable qui est changée à chaque records.
Un peu comment le code que j'ai fourni ?
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager