Discussion :

[atifo]

je veux imprimer mon etat de crystal report selon la choix de date
il ya deux condition de date avec or (ou)
voila mon code

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
Dim condition As String
Dim condition1 As String
condition = " {T_facture.DATE_facture} >= date (" & Year(DTPicker1) & "," & Month(DTPicker1) & "," & Day(DTPicker1) & ") AND  {T_facture.DATE_facture} <= date(" & Year(DTPicker2) & "," & Month(DTPicker2) & "," & Day(DTPicker2) & ")  "
condition1 = " {T_quittance.DATE_quittance} >= date (" & Year(DTPicker1) & "," & Month(DTPicker1) & "," & Day(DTPicker1) & ") AND  {T_quittance.DATE_quittance} <= date(" & Year(DTPicker2) & "," & Month(DTPicker2) & "," & Day(DTPicker2) & ")  "
 
report.ReportFileName = App.Path & "\Stock Global.rpt"
report.connect = CnDATA.ConnectionString
report.connect = "Provider=MSDASQL;DSN=VENTE_OUVRAGE;Description=SQL Server sur le serveur Scolarite;UID=sa;PWD=sa;APP=Visual Basic;WSID=ATEF;DATABASE=VENTE_OUVRAGE;AutoTranslate=No"
report.DiscardSavedData = True
report.Destination = crptToWindow
report.WindowState = crptMaximized
report.ReplaceSelectionFormula (condition Or condition1)
 
report.WindowTitle = "Stock Global Par Date Saisie"
report.Action = 1
report.Reset

le probleme comment je peux rediger le selection formula
merci de suivi

[ProgElecT]

Code :

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

1
2
3
4
5
6
7
8
Dim Date1 As Date, Date2 As Date
Date1 = CDate(Year(DTPicker1) & "," & Month(DTPicker1) & "," & Day(DTPicker1))
Date2 = CDate(Year(DTPicker2) & "," & Month(DTPicker2) & "," & Day(DTPicker2))
 
condition = " {T_facture.DATE_facture} >= #" & Date1 & "# AND {T_facture.DATE_facture} <= #" & Date2 & "#"
condition1 = " {T_quittance.DATE_quittance} >= #" & Date1 & "# AND {T_quittance.DATE_quittance} <= #" & Date2 & "#"
 
report.ReplaceSelectionFormula (condition & " Or " & condition1)

Si le séparateur de date est bien la virgule