Bonjour,

Je viens vers le groupe pour que l’on me donne la main, (et oui, je n’y arrive toujours pas).
A mon niveau, le mélange de SQL et VBA est très complexe.
Voilà, j’ai repris le formulaire de recherche sur ce site en essayant d’y ajouter une recherche de date à date.
Ma requête possède une colonne date, est-il possible de rechercher de date à date à partir d’une seule colonne « date »?
Voici le code et le fichier ci-joint pour une meilleure compréhension :
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
25
26
27
 
Private Sub RefreshQuery()
Dim date1 As Date
Dim date2 As Date
Dim SQL As String
Dim SQLWhere As String
‘-------------------------------------------------
SQL = "SELECT [qry_brt].[Num_auto], [qry_brt].[Ville], [qry_brt].[Date], [qry_brt].[ref], [qry_brt].[Entreprise] FROM qry_brt Where qry_brt!Num_auto <> 0 "
'Choix de l'entreprise ---------------------------
If Not Me.chkEnt Then
    SQL = SQL & "And qry_brt!Entreprise = '" & Me.cmbRechEnt & "' "
End If
'Choix de la ville--------------------------
If Not Me.chkVille Then
    SQL = SQL & "And qry_brt!Ville = '" & Me.cmbRechVille & "' "
End If
'Choix de la date--------------------------
If Not Me.chkDate Then
SQL = SQL & "And qry_brt!Date like '*" & Me.date1 & " and " & Me.date2 & " or between " & Me.date1 & " and " & Me.date2 & "*' "
End If
‘------------------------------------------------
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
Me.lblStats.Caption = DCount("*", "qry_brt", SQLWhere) & " / " & DCount("*", "qry_brt")
End Sub
A mon sens cette ligne est très importante dans la recherche, mais, est-elle correcte ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
 SQL = "SELECT [qry_brt].[Num_auto], [qry_brt].[Ville], [qry_brt].[Date], [qry_brt].[ref], [qry_brt].[Entreprise] FROM qry_brt Where qry_brt!Num_auto <> 0 "
Comment prendre en compte la recherche avec Me.date1 et Me.date2 ?
Dois-je modifier les critères de recherche dans la requête, en SQL ?
Tant de question qui attendent une réponse d’une âme sensible.
Merci.