SQL/VBA Date Format

**LeScandinave** · 04/10/2005, 09h40

bonjour tout le monde,
j'ai honte de poser cette question, mais je bloque bêtement sur un critère utilisant une période (et donc des dates) dans un formulaire de recherche multicritère.

J'ai:
- 2 champs dates, format abrégé, 99.99.0000
- la date de la table, format abrégé, 99.99.0000
- la requête SQL qui ressemble grandement à celle de Caféine dans le tuto multicritère, dont la partie qui nous intéresse est:

Code :

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

1
2
3
If Not Me.chkPeriod Then
SQL = SQL & "And Table!DateTable BETWEEN" & "#" & Format(Me.txtDate1, "mm/dd/yyyy") & "#" & " AND " & "#" & Format(Me.txtDate2, "mm/dd/yyyy") & "#" & ""
End If

Et quand jéffectue ma recherche, aucun résultat dans la liste d'affichage...

Alors je sais que l'erreur vient bien évidemment de moi, mais je n'arrive pas à trouver l'évidence!

Quelle peut être la partie de mon code qui est erronée?

**cafeine** · 04/10/2005, 09h47

Hello,

une piste pour trouver tes erreurs sur mon nouveau tuto :

http://cafeine.developpez.com/debugprint/

**pc75** · 04/10/2005, 09h53

Bonjour,

Ta table se nomme "Table". Vérifie que ce n'est pas un mot réservé, à tout hasard.

**LeScandinave** · 04/10/2005, 10h57

en fait ma table ne s'appelle pas table, je l'ai juste renommée pour mon post, c'est plus compréhensible comme ceci.
Je vais voir de ce pas ton nouveau tuto cafeine.

**ptitdragon_eric** · 04/10/2005, 11h02

j'ai fait cette petite fonction pour pouvoir utiliser les dates dans les requetes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function TransDate(DateTr As Date) As String
'Transformation d'une date pour l'utiliser dans une requete
 
    Dim J As Integer
    Dim m As Integer
    Dim a As Integer
 
    J = Day(DateTr)
    m = Month(DateTr)
    a = Year(DateTr)
    TransDate = m & "/" & J & "/" & a
 
End Function

Et ensuite dans ta requete je fait ceci :

Code :

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

1
2
3
If Not Me.chkPeriod Then 
SQL = SQL & "And Table!DateTable BETWEEN" & "#" & TransDate(Me.txtDate1) & "#" & " AND " & "#" & TransDate(Me.txtDate2) & "#" & "" 
End If

**cafeine** · 04/10/2005, 11h26

Envoyé par ptitdragon_eric

j'ai fait cette petite fonction pour pouvoir utiliser les dates dans les requetes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function TransDate(DateTr As Date) As String
'Transformation d'une date pour l'utiliser dans une requete
 
    Dim J As Integer
    Dim m As Integer
    Dim a As Integer
 
    J = Day(DateTr)
    m = Month(DateTr)
    a = Year(DateTr)
    TransDate = m & "/" & J & "/" & a
 
End Function

Et ensuite dans ta requete je fait ceci :

Code :

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

1
2
3
If Not Me.chkPeriod Then 
SQL = SQL & "And Table!DateTable BETWEEN" & "#" & TransDate(Me.txtDate1) & "#" & " AND " & "#" & TransDate(Me.txtDate2) & "#" & "" 
End If

tu ne gagnerais pas du temps en faisant comme ceci, non ?

Code :

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

1
2
3
4
5
6
Function TransDate(DateTr As Date) As String
'Transformation d'une date pour l'utiliser dans une requete
 
    TransDate = "#" & format(DateTr, "mm/dd/yyyy") & "#"
 
End Function

**ptitdragon_eric** · 04/10/2005, 11h36

J'ai essayé mais ça n'a pas marché, alors du coup j'ai fait la fonction transdate, pour être sur qu'il me récupère bien les éléments.

**Arkham46** · 04/10/2005, 13h15

Salut,

En suivant le tuto de caféine tu devrais trouver facilement....

Genre :

Code :

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

...BETWEEN" & "#"...

Il doit y manquer un espace non?

**LeScandinave** · 04/10/2005, 14h15

La requête ci dessous donne un bon résultat, mon but est de l'écrire en SQL dans mon code VBA en changeant les dates par des champs d'un fomulaire que l'on nommera respectivement Date1 et Date2:

Code :

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

1
2
3
SELECT MonChamp, MaDate
FROM MaTable
WHERE MaDate BETWEEN #01/01/2005# AND #30/12/2005#;

1ere étape: Formatage des données.
Les 2 champs de mon formulaire ont le format date abrégée.
Je formate mes dates en format US pour ma requête:
pour simplifier la lecture, j'utilise la fonction donnée par caféine (qui donne le même résultat que celle de ptitdragon_eric mais elle est plus courte).
Donc:
#01/01/2005# --> TransDate(Me.Date1) : #01/01/2005#
#30/12/2005# --> TransDate(Me.Date2) : #12/30/2005#

2eme étape : La requête SQL dans le VBA avec date fígées
If Not Me.chkPeriod Then

Code :

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

1
2
SQL = SQL & "And Table!DateTable BETWEEN #01/01/2005# AND #30/12/2005#" 
End If

Cela fonctionne, donc je passe à l'écriture avec mes champs Texte Date1 et Date2:

Code :

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

1
2
3
 If Not Me.chkPeriod Then
SQL = SQL & "And MaTable!MaDate BETWEEN " & TransDate(Me.Date1) & " AND " & TransDate(Me.Date2) & ""
End If

Et là c'est le bug...

Avec DebugPrint (merci Caféine, je ne connaissais pas) j’obtiens :

Code :

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

SELECT MonChamp, MaDate FROM MaTable WHERE MaTable!MonChamp<>0 And MaTable!MaDate BETWEEN 01.01.2005 AND 12.30.2005;

Et pas de résultat dans ma liste... mais pas de messages d'erreur!

**cafeine** · 04/10/2005, 14h18

où sont passés nos chers ## ?

**LeScandinave** · 04/10/2005, 14h49

et bien c'est ce que je ne comprend pas... pour moi ils sont dans le "TransDate", car j'ai essayé d'en rajouter comme ceci:

Code :

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

1
2
3
If Not Me.chkPeriod Then
SQL = SQL & "And A_Notiz!Eingangsdatum BETWEEN " & "#" & "TransDate(Me.txtDatum1)" & "#" & " AND " & "#" & "TransDate(Me.txtDatum2)" & "#"
End If

, mais cela me donne juste

Code :

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

SELECT MonChamp, MaDate FROM MaTable WHERE MaTable!MonChamp<>0 And MaTable!MaDate BETWEEN #TransDate(Me.Date1)# AND #TransDate(Me.Date2)#;

Je ne l'avais pas indiqué vu le résultat que cela donne

**cafeine** · 04/10/2005, 15h36

Tu typiquement dans le cas de ma FAQ (Frequently Abominable Queries)
http://cafeine.developpez.com/debugprint/#LVI-A

Envoyé par LeScandinave

Code :

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

1
2
3
If Not Me.chkPeriod Then
SQL = SQL & "And A_Notiz!Eingangsdatum BETWEEN " & "#" & "TransDate(Me.txtDatum1)" & "#" & " AND " & "#" & "TransDate(Me.txtDatum2)" & "#"
End If

Tu concatène un peu trop ...

Code :

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

1
2
3
If Not Me.chkPeriod Then
SQL = SQL & "And A_Notiz!Eingangsdatum BETWEEN #" & TransDate(Me.txtDatum1) & "# AND #" & TransDate(Me.txtDatum2) & "#"
End If

d'autre part si tu prends ma version de TransDate, tu ne devrais pas avoir a rajouter les ## ...

**LeScandinave** · 04/10/2005, 16h14

après une relecture de mes résultats, j'en arrive à ce point pour le moment:
- j'utilise ta fonction TransDate donc je n'ai pas besoin de ## ( j'avais modifié ta fonction pour voir comment cela faisait varier ma requête)
Donc j'ai la fonction TransDate dans un module:

Code :

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

1
2
3
4
Function TransDate(DateTr As Date) As String
'Transformation d'une date pour l'utiliser dans une requete
    TransDate = "#" & Format(DateTr, "mm/dd/yyyy") & "#"
End Function

- j'ai bien ce code là dans ma requête:

Code :

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

1
2
3
If Not Me.chkPeriod Then
SQL = SQL & "And MaTable!MaDate BETWEEN " & TransDate(Me.Date1) & " AND " & TransDate(Me.Date2) & ""
End If

- en décochant la case chkPeriod, j'obtiens un message d'erreur qui doit être en francais (eh oui... je travaille avec Access en allemand

):

erreur 13: Types incompatibles

- ensuite si je continue d'executer mon code comme tu le dis dans ton tutoriel, je vois ma requête en faisant Ctrl+G, et j'obtiens:

Code :

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

SELECT MonChamp, MaDate FROM MaTable WHERE MaTable!MonChamp<>0 And MaTable!MaDate BETWEEN #01.01.2005# AND #12.30.2005#;

Je vais refaire des tests ce soir chez moi au calme! Demain je reviendrais sûrement avec des résultats et peut-être qu'une bonne solution sera dans le tas

**cafeine** · 04/10/2005, 16h17

Vérification de routine, quel est le type du champ MaDate ?

Sinon étrange que tu obtiennes mm.dd.yy alors que ma fonction écrivait mm/dd/yy

**LeScandinave** · 04/10/2005, 16h22

héhé, quand j'ai vu que ma requête avait un problème, c'est ce que j'ai regardé en premier,
elle est bien du type "date abrégée"

Pour la transformation "/" en ".", Access me le change automatiquement même si je tappe la date dans un champs texte au format Date avec des "/".
Par exemple je ne pas obliger mon format date à utiliser des "/", car si je tape dans les propriétés pour le format des données "99/99/0000" Access le modifie en "99.99.0000"...

**cafeine** · 04/10/2005, 16h29

Code :

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

1
2
3
4
5
6
Function TransDate(DateTr As Date) As String
'Transformation d'une date pour l'utiliser dans une requete
 
    TransDate = "#" & format(DateTr, "mm/dd/yyyy") & "#"
 
End Function

qu'est ce que donne TransDate(now) ? les / passent-ils en . ?

chez moi (Access 97) les requêtes ne passent pas avec "." dans les dates ...

**LeScandinave** · 04/10/2005, 16h34

Je précise, je suis sur Access 2003.
Et oui... Access me donne pour TransDate(Now):

Code :

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

#10.04.2005#

alors que j'ai bien des / dans la fonction

**LeScandinave** · 04/10/2005, 16h42

mais tu as trouvé le problème car quand je fixe une date dans la requête en l'écrivant avec des /, j'obtiens le bon résultat et la requête fait apparaître les dates avec les / et non des . !!!

Je vais creuser ce problème pour m'éviter de faire une fonction pour changer les . en / pour mes dates...

**cafeine** · 04/10/2005, 16h44

okay alors essayons avec une fonction comme ça :

Code :

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

1
2
3
4
5
Function TransDate(DateTr As Date) As String
'Transformation d'une date pour l'utiliser dans une requete 
    TransDate = "#"  & datepart("m", DateTr) & "/" & datepart("d", DateTr) & "/" & datepart("yyyy", DateTr) & "#"
 
End Function

Si là, il te met des "." j'avale ma touche F1.

**LeScandinave** · 04/10/2005, 16h52

ah, bah merci caféine, tu as fait le code que je voulais faire ce soir!, même si je trouve cela très peu pratique...

Mais je viens de m'apercevoir que Access 2003 formate les dates avec des "." mais pas VBA

car dans la barre de tâche dans le menu "Insérer", "date et heure", il me propose une date avec des "." seulement!

J'ai tout de même encore une erreur type13 quand je décoche la chkPeriod, mais je vais devoir pouvoir le résoudre en réfléchissant.

Tu n'auras pas à avaler ta touche F1 mon cher caféine, mais c'est bon à savoir les incompatibilités entre SQL et VBA :o

SQL/VBA Date Format

Access

Discussions similaires

Partager

Partager