Discussion :

[titlde26]

Bonsoir,

J'aurai bien besoin de votre aide.

J'aimerai pouvoir enregistrer un état en .pdf dans un emplacement de mon ordinateur.
Pour ce faire j'ai trouvé cette ressource : https://warin.developpez.com/access/pdf/#LIII-B

simplement à mon avis je ne dois pas bien la comprendre, voila ce que j'ai fait :

Code :

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

1
2
3
4
5
Dim var As String
var = "e:\" & Me.zs_rfid & ".pdf"
 
DoCmd.OpenReport "conformite", acViewPreview, , ""
DoCmd.OutputTo acOutputReport, , "PDF", var

cependant il me manque un bout, il faut que je puisse ouvrir mon état uniquement lorsque le champ d'une de mes table corresponde à une valeur du genre

Code :

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

TCONTROLE.id_chaine = Valeur

En effet dans l'exemple sur le site il est dit que "NumClient=2" pour que seul la page du client 2 s'ouvre.
Je ne comprends pas (j'aurai peu être due laisser la nuit passer ) à quoi correspond ce NumClient

Merci

[tee_grandbois]

bonsoir,

En effet dans l'exemple sur le site il est dit que "NumClient=2" pour que seul la page du client 2 s'ouvre.

oui, cela s'appelle une condition, c 'est un paramètre de la commande OpenReport

Code :

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

DoCmd.OpenReport "conformite", acViewPreview, , "TCONTROLE.id_chaine = " & Valeur

[marot_r]

Bonjour.

Note que la solution de teegrandbois va marcher si ton champ (colonne) se nomme [TCONTROLE.id_chaine], par contre si tu as [TCONTROLE].[id_chaine] donc ton champ est en fait [Id_Chaine] alors il faut ecrire :

Code :

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

DoCmd.OpenReport "conformite", acViewPreview, , "[id_chaine] = " & Valeur

A+

[titlde26]

MERCI pour tout, en effet sa marche voici ce que j'ai pue faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub bt_impression_pdf_Click()
Dim var As String
Dim rfid As String
Dim chaine As String
 
 
rfid = Me.zs_rfid
chaine = Me.zs_idchaine
var = "e:\" & Me.zs_numcli.Column(1) & "\" & Me.zs_rfid & ".pdf"
 
DoCmd.OpenReport "conformite", acViewPreview, , "CONTROLE.tagrfid =" & rfid And "CONTROLE.id_chaine =" & chaine
DoCmd.OutputTo acOutputReport, , "PDF", var
End Sub

Par contre le tout marche si ma valeur est un chiffre exmple : 555
mais ma valeur chaine peut contenir des données type [RF543].
j'ai beau essayé de mettre des '" & chaine &'" pour faire passer la chaine il me dit

Erreur d'execution '13', INCOMPATIBILITE DE TYPE

J'ai pourtant bien vérifier, le champ id_chaine de la table Controle est bien en string.

En tout cas merci, je redécouvre le site depuis les études qui sont bien lointaine maintenant Top génial

[hyperion13]

POur info

Code :

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

1
2
3
4
5
"[ChampText]= '" & MonArgument & "'"
"[ChampText]= " Chr(34) & MonArgument & Chr(34)
"[ChampText]= " & """ & MonArgument & """
"[ChampNum]= " & MonArgument
"[ChampDate]= #" & MonArgument & "#"

[titlde26]

Ca marche résolue.

Pour ceux qui peuvent être bloqué comme moi et qui tombent sur ce topic, je me suis aussi inspiré de ce sujet que j'ai trouvé ce matin.

https://www.developpez.net/forums/d1...-2-conditions/

Merci !