Discussion :

[ACCENT1981]

Bonjour,

J'ai un Problème consiste de transférer les données faire Crystal reports à partir de VB 6.0 avec (Formulas), mais quand une phase contient: (') l’impression de Crystal reports n'affiche pas.
comment cette phrase :"ENTRETIEN DES ESPACES VERTS DE L'AVENUE MOHAMED ET DE LA ZONE D'AMÉNAGEMENT TOURISTIQUE", dans [Objet]
j'ai utilisé ce code, voir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Imprimer_Click()
On Error Resume Next
CR1.DataFiles(0) = ("c:\Travaux Publics\MARAVER.MDB")
CR1.Formulas(0) = "numero='" & NATTA.Text & "'"
CR1.Formulas(1) = "numeroMarche='" & NMARCHE.Text & "'"
CR1.Formulas(2) = "datemarche='" & DMARCHE.Text & "'"
cr1.Formulas(3) = "objet='" & objet.Text & "'"
CR1.SelectionFormula = "{ATTACHEMENT.N_ATTA}='" & NATTA.Text & "'"
CR1.PrintReport
End Sub

merci

je vous attendra votre réponse

[ACCENT1981]

Bonjour,

Imprimer les informations clients,

Voir Mon Projet:

http://cjoint.com/?ECwqlv4oYgU

NB : Quand une adresse contient ('), l'impression va bloqué.

aidez-moi

merci

[luc_chivas]

Bonjour,

JE n'ai plus cette version de Crystal depuis 20 ans......peux tu essayer avec une version d'evaluation (30 jours) plus récente ?? genre CR2013 o CR2011 ??

[GaelleH]

Tente de remplacer tes quotes par des doubles quotes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Imprimer_Click()
On Error Resume Next
CR1.DataFiles(0) = ("c:\Travaux Publics\MARAVER.MDB")
CR1.Formulas(0) = "numero='" & replace(NATTA.Text,"'","''") & "'"
CR1.Formulas(1) = "numeroMarche='" & replace(NMARCHE.Text,"'","''") & "'"
CR1.Formulas(2) = "datemarche='" & replace(DMARCHE.Text,"'","''") & "'"
cr1.Formulas(3) = "objet='" & replace(objet.Text,"'","''") & "'"
CR1.SelectionFormula = "{ATTACHEMENT.N_ATTA}='" & replace(NATTA.Text,"'","''") & "'"
CR1.PrintReport
End Sub

et si ça ne marche pas , remplaçe les par des espace

Code :

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

 replace(NATTA.Text,"'"," " )