Format Date dans une requete SQL en VBA

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:

---

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

Bonjour,

Dans Access quand et pourquoi utiliser les caractères ' ' et " " ainsi que les & & lorsqu'on ramène une requête SQL en VBA, plus précisément quels sont leurs rôles

Code:

---

"SELECT champ1, champ2 ... FROM table WHERE (champ1 = 'critère1' And champ2 = 'critère2')"

---

Merci à tous

Citation:

---

Envoyé par Ryo07

Dans Access quand et pourquoi utiliser les caractères ' ' et " " ainsi que les & & lorsqu'on ramène une requête SQL en VBA, plus précisément quels sont leurs rôles

---

On utilise " ou ' pour délimiter des chaînes de caractères. On utilise & pour une concaténation.
Exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim varLgDebut As Long Dim varLgFin As Long Dim varStReq As String   varLgDebut =0 varLgFin = 30 varStReq = "SELECT * FROM table1 WHERE colonne1 = '01' AND colonne2 BETWEEN " & varLgDebut & " AND " & varLgFin & " ;"   varLgDebut =10 varLgFin = 13 varStReq = "SELECT * FROM table1 WHERE colonne1 = '01' AND colonne2 BETWEEN " & varLgDebut & " AND " & varLgFin & " ;"

---

Permet d'intégrer dans varStReq les valeurs prises par varLgDebut et varLgFin au moment où l'on compose la chaîne. Ces variables apparaissent en noir dans la coloration syntaxique. La seconde valeur de varStReq vaudra SELECT * FROM table1 WHERE colonne1 = '01' AND colonne2 BETWEEN 10 AND 13 ; .
Utiliser ' à l'intérieur des "" permet de délimiter une chaîne de caractère (on compare colonne1 à une String '01', et non à un Nombre 1). On peut utiliser uniquement des ", mais c'est plus délicat, notamment avec des variables au format chaîne de caractère car il faut doubler " pour obtenir un guillemet à l'intérieur de la chaîne :

Code:

---

1 2 3 4 5 6 7

Dim varStDebut As String Dim varStFin As String Dim varStReq As String   varLgDebut ="Etape 1" varLgFin = "Etape 2" varStReq = "SELECT * FROM table1 WHERE colonne1 = ""01"" AND colonne3 BETWEEN """ & varStDebut & """ AND """ & varStFin & """ ;"

---

Ce qui donnera comme contenu de varStReq : SELECT * FROM table1 WHERE colonne1 = "01" AND colonne3 BETWEEN "Etape 1" AND "Etape 2" ;