Discussion :

[agan2012]

j'ai un problème avec CR concernant les chiffres réel simples C-à-D la base de données m'affiche les heures le nombre avec de chiffres après la virgule et le CR m'affiches un autre nombre voilà le code de CR
Application sous VB.6

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 imprimer_Click()
On Error Resume Next
 
If Combo1 = "" Or g.Rows = 1 Then MsgBox ("Rien à Imprimer"): Exit Sub
cr.DataFiles(0) = (App.Path & "\pointage.mdb")
cr.ReportFileName = App.Path & "\listeparot.rpt"
cr.SelectionFormula = "{Ordre_de_Travaux.num_ot}='" & Combo1 & "'"
cr.Formulas(0) = "co='" & Combo1 & "'"
cr.Formulas(1) = "d1='" & t1 & "'"
cr.Formulas(0) = Format(cr.Formulas(0), "##.00")
cr.Action = 1
 
End Sub

vous trouverez les images dans PJ
Aidez moi SVP
merci

[aectie]

bonjour,je crois que en ce qui concerne le code

Code :

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

1
2
3
cr.Formulas(0) = "co='" & Combo1 & "'"
cr.Formulas(1) = "d1='" & t1 & "'"
cr.Formulas(0) = Format(cr.Formulas(0), "##.00")

ne devrais pas y figurer
le format des données que contiennent ton CR doivent se faire sur ton CR et non dans le code

[agan2012]

bonjour,je crois que en ce qui concerne le code

Code :

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

1
2
3
cr.Formulas(0) = "co='" & Combo1 & "'"
cr.Formulas(1) = "d1='" & t1 & "'"
cr.Formulas(0) = Format(cr.Formulas(0), "##.00")

ne devrais pas y figurer
le format des données que contiennent ton CR doivent se faire sur ton CR et non dans le code

non je ne pense pas car j'ai utilisé le code suivant et c'est le même scandale

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 imprimer_Click()
On Error Resume Next
 
If Combo1 = "" Or g.Rows = 1 Then MsgBox ("Rien à Imprimer"): Exit Sub
cr.DataFiles(0) = (App.Path & "\pointage.mdb")
cr.ReportFileName = App.Path & "\listeparot.rpt"
cr.SelectionFormula = "{Ordre_de_Travaux.num_ot}='" & Combo1 & "'"
cr.Formulas(0) = "co='" & Combo1 & "'"
cr.Formulas(1) = "d1='" & t1 & "'"
cr.Action = 1
 
End Sub

Sans résultat

[aectie]

je te demande de retirer

Code :

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

1
2
3
cr.SelectionFormula = "{Ordre_de_Travaux.num_ot}='" & Combo1 & "'"
cr.Formulas(0) = "co='" & Combo1 & "'"
cr.Formulas(1) = "d1='" & t1 & "'"

de ton code
fais le directement sur crystal report.
ta connecté le crystal report a ta base de donnéé?
pour plus d'information envoie nous ton code