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 :
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
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
Comment prendre en compte la recherche avec Me.date1 et Me.date2 ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2SQL = "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 "
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.
Partager