Discussion :

[tveniere]

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

[Ryo07]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci à tous

[Paraffine]

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 VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

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 VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

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" ;