Discussion :

[simo22]

Bonjour

je viens décrire une Macro en VBA qui se connecte a une Base Access local pour me sortir un résultat d'un cmd SQL.
mes donnees : une table sur Access qui contient le résultat d'un mois.
ma macro elle lance une requête "select" sur ma table pour me sortir le résultat d'une date précise ( que je paramètre dans une cellule).

le problème est que ma requête me donnée un résultat pour tout les journée après du 13/08 et refuse de me données un résultat pour une date avant le 13/08, je n'arrive pas a trouve d'ou peux venier l'erreur


ci dessous le code la macro :
--------------------------------------------

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
28
29
30
31
32
Sub ChargementData()
    Dim myDate As String
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim fld As DAO.Field
    Dim sSQL As String
 
 
    Workbooks("test_Access.xlsm").Activate
            Sheets("Data").Select
 
 
    myDate = Workbooks("test_Access.xlsm").Sheets("Accueil").Range("E5").Value   <== je récupère ma date pour mon Select
 
    ' Ouverture de la base de données
    Set db = DBEngine.OpenDatabase("ma Base Access")
    sSQL = "SELECT *FROM Conso_Data_Jrs where (Date = #" & myDate & "#) ;"
 
 
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
 
 
    Workbooks("test_Access.xlsm").Activate
            Sheets("Data").Select
            Range("A2").Select
            ActiveCell.CopyFromRecordset rst
 
    rst.Close
 
'    MsgBox "salite la requette ", vbOKOnly
 
End Sub

-----------------

[marot_r]

Bonjour.

Avec les dates, il est prudent d'utiliser un Format()

Code :

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

sSQL = "SELECT *FROM Conso_Data_Jrs where (Date = #" & Format(myDate, "yyyy/mm/dd") & "#) ;"

ou

Code :

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

sSQL = "SELECT *FROM Conso_Data_Jrs where (Date = #" & Format(myDate, "mm/dd/yyyy") & "#) ;"

Et attention si tu as des heures dans tes donnees la ce que tu demandes c'est TaDate 00:00:00, si tu as des donnees avec TaDate 00:00:01 ou plus elles ne seront pas recuperees.

Une parade simple :

Code :

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

sSQL = "SELECT *FROM Conso_Data_Jrs where DateSerial(year([Date]), month([Date]), day([Date]) = #" & Format(myDate, "yyyy/mm/dd") & "#) ;"

aussi Date et un mot reserve du systeme et cela peut meller Access donc il est prudent de l'encadrer de crochet.

Perso je nomme toujours mes champs Date quelque chose comme DateCommande, DateFacture, DateSaisie mais pas Date tout seul.

A+

[simo22]

bonjour marot_r;10442507

je te remerci pour ton aidée, je viens de faire le teste et ta solution fonctionne très bien

Bonjour.

Avec les dates, il est prudent d'utiliser un Format()

Code :

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

sSQL = "SELECT *FROM Conso_Data_Jrs where (Date = #" & Format(myDate, "yyyy/mm/dd") & "#) ;"

ou

Code :

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

sSQL = "SELECT *FROM Conso_Data_Jrs where (Date = #" & Format(myDate, "mm/dd/yyyy") & "#) ;"

Et attention si tu as des heures dans tes donnees la ce que tu demandes c'est TaDate 00:00:00, si tu as des donnees avec TaDate 00:00:01 ou plus elles ne seront pas recuperees.

Une parade simple :

Code :

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

sSQL = "SELECT *FROM Conso_Data_Jrs where DateSerial(year([Date]), month([Date]), day([Date]) = #" & Format(myDate, "yyyy/mm/dd") & "#) ;"

aussi Date et un mot reserve du systeme et cela peut meller Access donc il est prudent de l'encadrer de crochet.

Perso je nomme toujours mes champs Date quelque chose comme DateCommande, DateFacture, DateSaisie mais pas Date tout seul.

A+

[marot_r]

En passant il manque un espace entre * et FROM.

A+

[tee_grandbois]

salut marot_r,

En passant il manque un espace entre * et FROM.

je suis en train de m'apercevoir que certains espaces ne sont là que pour éclaircir le visuel du SQL et donc, maintenant je vérifie avant si cela provoque une erreur.
Et là, je peux te confirmer que celui-ci n'est pas nécessaire
Idem, entre autre, pour : select *from(select ...

[marot_r]

Merci de la confirmation.

Je m'en doutais mais reconnait que pour l'humain, l'espace est plus agreable.
C'est comme la tonne de parentheses que Access genere on peut les enlever pour alleger la charge sur le cerveau.

Mon slogan : "Avec ce prix pour les machines et leur puissance ? Rentablisez votre investissement, optimisez pour l'humain !"

A+