1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Dim ch, str As String
On Error Resume Next
cr_fich.ReportFileName = App.Path & "\Etats\E_Balance.rpt"
ch = "SELECT" _
& " Operation.`RefOpPaie`, Operation.`DateOp`, Operation.`CodedevCont`, Operation.`MontPaie`, Operation.`CodeTypOp`, Operation.`CodeEco`, Operation.`CodeNatJur`, Operation.`IndicTyp`, Operation.`MontDevises`," _
& " Tiers.`nomTiers`, Tiers.`CodePayNat`," _
& " Pays.`NumPay`" _
& " From " _
& "(`Operation` Operation LEFT OUTER JOIN `Tiers` Tiers ON Operation.`id_t` = Tiers.`id_t` ) LEFT OUTER JOIN `Pays` Pays ON Operation.`CodePays` = Pays.`CodeIso` where Operation.`RefOpPaie`= '" & Trim(cmbdon.Text) & "'"
cr_fich.SQLQuery = ch
cr_fich.WindowState = crptMaximized
cr_fich.Action = 1
cr_fich.Reset |
Partager