Discussion :

[gaby277]

Bonjour,
J'ai développé une application de gestion de mon compte sous Access 2010.
Je construis une requête en VBA pour extraire les données par exemple des 3 derniers mois.

Ce matin résultat de la requête aucune donnée !!!
Ma requête :

Code :

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

1
2
3
4
SELECT CCP.Date, CCP.Libellé, CCP.Euros, CCP.Françs
FROM CCP
WHERE ((ccp.Date)>=#10/08/2013# And (ccp.Date)<=#07/11/2013#)
ORDER BY ccp.Date;

Ce qu'il faut sous 8.1

Code :

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

1
2
3
4
SELECT CCP.Date, CCP.Libellé, CCP.Euros, CCP.Françs
FROM CCP
WHERE ((ccp.Date)>=#08/10/2013# And (ccp.Date)<=#11/07/2013#)
ORDER BY ccp.Date;

Tiens ça me rappelé quelque chose on est revenu au format de date Américain !!! (je vais ressortir ma routine de construction de requeté au format Américain (ça va faire une occasion de remettre sous tension mon ancien PC sous XP) ! ou peut-être un paramètre régional a régler des que j'ai 5 minutes je regarde.

Certes c'est peu de chose pour un informaticien mais bon …..
PS : bien que ce ne soit pas l'usage j'ai également publié sous le forum Systèmes Windows 8 pour éventuellement faire gagner quelques minutes a certains.

[lakhdar16]

Bonjour,

une fonction pour changer la forme de la date.

Code :

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

1
2
3
4
5
6
Function ap_SQLArgDate(ByVal vDate As Date) As String
On Error Resume Next
    If Not IsNull(vDate) Then
        ap_SQLArgDate = "#" & Format$(vDate, "mm/dd/yyyy") & "#"
    End If
End Function

A+

[gaby277]

Bojour,

une fonction pour changer la forme de la date.

Code :

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

1
2
3
4
5
6
Function ap_SQLArgDate(ByVal vDate As Date) As String
On Error Resume Next
    If Not IsNull(vDate) Then
        ap_SQLArgDate = "#" & Format$(vDate, "mm/dd/yyyy") & "#"
    End If
End Function

A+

Bonsoir,
Merci pour le code plus élégant et sophistiqué que ma routine "dateAmericaine" que j'ai ressortie des archives - faut rien jeter !)

Code :

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

1
2
3
4
5
6
Function DateAmericaine(DateAConvertir) As String
    ' Pour construction requête SQL- en retour date au format américain mois/jour/année '
    Dim strDateAmericaine As Date
    strDateAmericaine = Month(DateAConvertir) & "-" & Day(DateAConvertir) & "-" & Year(DateAConvertir)
    DateAmericaine = "#" & strDateAmericaine & "#"
End Function

Cordialement.