Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT nombat, anneecons, Immatriculation, datearret, Code,Solde FROM [SoldeRubrique] where SoldeRubrique.Code=''"
If Not Me.chkB Then
SQL = SQL & "Or [SoldeRubrique]!Code = '" & Me.cmbRechB & "' "
End If
If Not Me.chkC Then
SQL = SQL & "Or [SoldeRubrique]!Code = '" & Me.cmbRechC & "' "
End If
If Not Me.chkD Then
SQL = SQL & "Or [SoldeRubrique]!Code = '" & Me.cmbRechD & "' "
End If
If Not Me.chkE Then
SQL = SQL & "Or [SoldeRubrique]!Code = '" & Me.cmbRechE & "' "
End If
If Not Me.chkF Then
SQL = SQL & "Or [SoldeRubrique]!Code = '" & Me.cmbRechF & "' "
End If
If Not Me.chkG Then
SQL = SQL & "Or [SoldeRubrique]!Code = '" & Me.cmbRechG & "' "
End If
If Not Me.chkZ Then
SQL = SQL & "AND [SoldeRubrique]!anneecons between " & Me.txtRech & " And " & Me.txtRechA & " "
End If
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End Sub
Partager