Bonjour!

Alors dans un formulaire, j'ai tout d'abord introduit une recherche multicritere pour le code, donc l'utilisateur peut par exemple choisirles solde de deux codes différents en fonction des bateaux. J'ai voulu introduire un nouveau critere, c'est à choisir, ne sélectionner seulement les soldes des bateaux construits dont l'année de contruction est comprise entre tel et tel nombre.

Alors étant débutant en access, j'ai du faire une erreur dans mon code puisque je n'arrive pas à avoir ce que je veux. Voici le code en question:

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
Merci de votre aide