Bonjour à Tous,
Avant tout merci à ceux qui pourront m'aider :
J'ai créé une requete SQL en VBA avec un test entre deux dates saisies par l'utilisateur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
'date minimum au bon format
    DateDebFR = Format(Me.DatDeb2, "mm/dd/yy")
    'date max + 1 jour pour le between
    DateFinFR = DateAdd("d", 1, (Format(DateValue(Me.DatFin2))))
    'changement du format
    DateFinFR = Format(DateFinFR, "mm/dd/yy")
 
 
 
    SQLlst = "SELECT T_Factures.*, T_Revendeurs.[Code Rev], T_Revendeurs.[Nom Rev], T_Revendeurs.[CP Mag Rev], T_Départements.[Code Dept], T_Départements.[Libellé Dept], T_Départements.[N° Dept], T_Fabricants.[Code Fab], T_Fabricants.[Nom Fab], T_Agents.[NomPren Agent] "
    SQLlst3 = "FROM T_Départements INNER JOIN (((T_Factures INNER JOIN T_Revendeurs ON T_Factures.[Code Rev Fact] = T_Revendeurs.[Code Rev]) INNER JOIN T_Fabricants ON T_Factures.[Code Fab Fact] = T_Fabricants.[Code Fab]) INNER JOIN T_Agents ON T_Factures.[Code Agent Fact] = T_Agents.[Code Agent]) ON T_Départements.[Code Dept] = T_Revendeurs.[Dept Rev] "
    SQLlst4 = "WHERE ((T_Factures.[Date Fact]) BETWEEN #" & DateDebFR & "# And #" & DateFinFR & "#);"
Lorsque je saisie une date de début (Me.DatDeb2) avec 01/06/2013 et une date de fin (Me.DatFin2) avec 27/06/2013. CA MARCHE.
Par contre quand je saisie une date de début (Me.DatDeb2) avec 01/01/2013 et une date de fin (Me.DatFin2) avec 27/06/2013. CA NE MARCHE PLUS.

et là je sèche completement.
Merci de votre aide