Condition, consiste "SelectionFormula" : Crystal Report

Question

Bonjour,
je vous imprimé une liste de vente, mais par condition de temps " Time" , pour ca, je fait ce code, voir pour mon aide, 
merci.
  
Private Sub Imprimer_Click()
'On Error Resume Next
Cr1.DataFiles(0) = ("C:\PARFUMER\ROSH.mdb")
Cr1.Formulas(0) = "TTIME='" & Format(Text3.Text, "HH:MM:SS") & "'"
Cr1.SelectionFormula = "{VENTE.time}='" & Format(Text3.Text, "HH:MM:SS") & "'"
Cr1.PrintReport

End Sub

LIBRE_MAX · Answer

Bonjour,

D' après ce que je vois, ton champ est string.
Peut être pas forcément).
Alors il faudra contrôler son format au niveau de la saisie.
Utilises un MaskEdit pour ça.





[] Ce qui va sans dire. va mieux en le disant.

sportmed · Answer

Private Sub Imprimer_Click()
'On Error Resume Next
Cr1.DataFiles(0) = ("C:\PARFUMER\ROSH.mdb")
Cr1.Formulas(0) = "TTIME='" & Text3.Text & "'"
Cr1.SelectionFormula = "{VENTE.time}='" & Text3.Text & "'"
Cr1.PrintReport

End Sub

sportmed · Answer

aide-moi SVP
J'ai Trés bsoin à votre Aide,
--- Mon Champ Est : Time

LIBRE_MAX · Answer

C' est pas qu' on veut pas t' aider, mais c' est qu'on ne sait pas déjà quel est le problème.
Expliques nous: L' etat n' affiche rien ou tu as une erreur d' éxécution?.


[] Ce qui va sans dire. va mieux en le disant.

sportmed · Answer

bonjour,
ami, l'état n'exécute pas

LIBRE_MAX · Answer

Bonjour,
Il ne se passe rien alors..?;

S'il n' y a pas de message d' erreur, c' est peut être parce que tu lui dis de l' ignorer.

Essaies donc avec:

Private Sub Imprimer_Click()
'Placer une gestion d' erreur
On Error GoTo Err_Print
Cr1.DataFiles(0) = ("C:\PARFUMER\ROSH.mdb")
Cr1.Formulas(0) = "TTIME='" & Text3.Text & "'"
Cr1.SelectionFormula = "{VENTE.time}='" & Text3.Text & "'"
Cr1.PrintReport

Exit Sub

Err_Print:
MsgBox Err.Description
End Sub																																[] Ce qui va sans dire. va mieux en le disant.

LIBRE_MAX · Answer

essaies aussi avec:

Private Sub Imprimer_Click()
'Placer une gestion d' erreur
On Error GoTo Err_Print
Cr1.DataFiles(0) = ("C:\PARFUMER\ROSH.mdb")
Cr1.SelectionFormula = "{VENTE.time}='" & Text3.Text & "'"
Cr1.Action=0

Exit Sub

Err_Print:
MsgBox Err.Description
End Sub




[] Ce qui va sans dire. va mieux en le disant.

sportmed · Answer

bonjour,

système ma donnée ce Erreur, :" Erreur Dans La Formule "

aide-moi SVP

LIBRE_MAX · Answer

Bonsoir,

L' erreur se situe donc à ce niveau:
Cr1.SelectionFormula = "{VENTE.time}='" & Text3.Text & "'"

Alors trois causes possibles:
-Le nom du champ (Time est une fonction).
-Le contenu du TextBox.
-Le type du champ.Si c' est Date alors il faudra:
Cr1.SelectionFormula = "{VENTE.time}=#" & Text3.Text & "#"



[] Ce qui va sans dire. va mieux en le disant.

Condition, consiste "SelectionFormula" : Crystal Report

9 réponses

Votre réponse

Discussions similaires