Bonjour à tous,

J'ai un code VBA qui reproduit un SQL pour un formulaire de choix multi-critère. Tout va bien pour les combobox, mais je n'arrive pas à trouver l'astuce pour le contrôle texte qui contient une date. Voici le 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
17
18
19
20
21
22
23
24
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT Tb_BauxTP.Bail, Tb_GestTP.NomPrenom, Tb_Villes.Ville, Tb_BauxTP.Date_debut, Tb_BauxTP.Date_fin_apres_option FROM Tb_Villes INNER JOIN (Tb_GestTP INNER JOIN Tb_BauxTP ON Tb_BauxTP.Cle = Tb_BauxTP.Gestionnaire) ON Tb_Villes.ID = Tb_BauxTP.Ville Where Tb_BauxTP![Bail] <> 0 "
 
If Not Me.ChkGest Then
    SQL = SQL & "And Tb_BauxTP!Gestionnaire = " & Me.CmbRechGest
End If
 
If Not Me.ChkVille Then
    SQL = SQL & "And Tb_BauxTP!Ville = " & Me.CmbRechVille
End If
 
If Not Me.ChkFin Then
    SQL = SQL & "And Tb_BauxTP!Date_fin_apres_Option < " & Me.TxtFin
End If
 
SQL = SQL & ";"
 
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub
Celui qui est en cause c'est ChkFin. Dans le formulaire, j'entre une date pour connaître les baux "se terminant avant le". Étant débutante en VBA, j'ai cru que je n'avais qu'à adapter la ligne et à changer "=" pour "<" mais ça ne marche pas...

Pouvez-vous me dire ce qui manque ? Avec mes remerciements anticipés mais très sincères