1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT TblCde.idCde, (SELECT TblTiers.NomTiers FROM TblTiers WHERE TblTiers.idTiers=TblCde.idTiers), TblVersement.Commentaire, TblVersement.Debit, TblVersement.Date, (SELECT TblBanque.Banque FROM TblBanque WHERE TblBanque.idBanque=TblVersement.idBanque), (SELECT TblTypeVersement.TypeVersement FROM TblTypeVersement WHERE TblTypeVersement.idTypeVersement = TblVersement.idTypeVersement) FROM TblVersement, TblCde WHERE TblCde.idCde=TblVersement.idCde AND (TblCde.idTiers Between 601 and 603 OR TblCde.idCde Between 651 AND 653)"
If Me.chkTypeCharge Then
SQL = SQL & "And TblCde.idTiers = " & Me.cboTypeCharge & " "
End If
If Me.chkTypeVersement Then
SQL = SQL & "And TblVersement.idTypeVersement = " & Me.cboTypeVersement & " "
End If
SQL = SQL & "ORDER BY Date;"
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
Me.lstRapport.RowSource = SQL
Me.lstRapport.Requery
End Sub |
Partager