Requête entre deux dates

**jedwiller** · 16/05/2006, 09h30

Bonjour à tous,

J'ai une table avec un champ "Date de création" -format date.
Les valeurs de ce champ sont par exemple "17/05/2006 17:50:22"

J'aimerai faire une requete pour lister les enregistrements entre deux dates par ex: entre le "01/01/2006 00:00:00" et "17/05/2006 23:59:59".

J'ai fait une requete par vba type:
Select * from Demandes where Demandes[date de création] between DateDeb and DateFin
et a chaque fois il me donne une erreur de compatibilité !!!!! alors que datedeb et datefin sont declare en date.
Meme en mode QBE j'ai la meme erreur de compatibilité :-(

QQ peut il me dire comment faire ma requete par vba pour lister les enregs entre 2 dates ?

Merci a tous

Cdlt
Jed

**fscli** · 16/05/2006, 09h43

tes dates sont bien au format US mm/dd/yyyy et encadrés avec des # ?

**sunvialley** · 16/05/2006, 09h43

est ce que ta requete ressemble à ca :

Code :

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

1
2
3
4
SELECT Table1.[Date de création]
FROM Table1
WHERE (#1/1/2005 00:00:00#<[Table1]![Date de création])
AND ([Table1]![Date de création]<#12/31/2006 23:59:59#);

ou

Code :

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

1
2
3
4
5
6
7
 
dateDeb = "#1/1/2005 00:00:00#"   ' ou bien "#1/1/2005#"
dateFin = "#12/31/2006 23:59:59#"
sql = "SELECT Table1.[Date de création]
FROM Table1
WHERE (" & dateDeb & "<[Table1]![Date de création])
  AND ([Table1]![Date de création]<" & dateFin  &");"

**Tofalu** · 16/05/2006, 09h47

Pourquoi ne pas utiliser l'opérateur BETWEEN ?

**jedwiller** · 16/05/2006, 09h54

Envoyé par fscli

tes dates sont bien au format US mm/dd/yyyy et encadrés avec des # ?

Non les dates sont en formay dd/mm/yyyy mais meme en mettant un date en dur du type 01/01/2006 j'ai toujours le meme message d'erreur de compatibilité

**jedwiller** · 16/05/2006, 09h55

Envoyé par sunvialley

est ce que ta requete ressemble à ca :

Code :

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

1
2
3
4
SELECT Table1.[Date de création]
FROM Table1
WHERE (#1/1/2005 00:00:00#<[Table1]![Date de création])
AND ([Table1]![Date de création]<#12/31/2006 23:59:59#);

ou

Code :

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

1
2
3
4
5
6
7
 
dateDeb = "#1/1/2005 00:00:00#"   ' ou bien "#1/1/2005#"
dateFin = "#12/31/2006 23:59:59#"
sql = "SELECT Table1.[Date de création]
FROM Table1
WHERE (" & dateDeb & "<[Table1]![Date de création])
  AND ([Table1]![Date de création]<" & dateFin  &");"

Je vais essayé ce code et je reviens te dire si c'est mieux
merci

**jedwiller** · 16/05/2006, 09h56

Envoyé par Tofalu

Pourquoi ne pas utiliser l'opérateur BETWEEN ?

j'ai bien utilisé le betwwen avec des #01/01/2006 00:00:00# et j'ai toujours erreurs de comptibilité !!!

**jedwiller** · 16/05/2006, 11h41

J'ai tout essayé !!!
Ca fonctionne bien quand je met en dur #01/01/2006 00:00:00# mais comme la date est récupére d'un calendrier je rajoute le # devant la date recuoéree et "00:00:00#" derriere et la ca plante avec erreur de compatibilité

J'utilise l'opérateur BETWEEN !!!

la requete de sunvialley me donne la meme erreur.

Je craque !!!!!

**sunvialley** · 16/05/2006, 12h00

Envoyé par jedwiller

la date est récupére d'un calendrier

c'est à dire ?
tu as un truc qui te renvoi le resultat sous forme de string sans les # , c'est ca ? (ex : "2006-06-16 12:00:00")

**jedwiller** · 16/05/2006, 12h12

Envoyé par sunvialley

c'est à dire ?
tu as un truc qui te renvoi le resultat sous forme de string sans les # , c'est ca ? (ex : "2006-06-16 12:00:00")

Oui j'ai un controle text qui apres clic sur le calendrier me donne
me.Txt_DateStart.value (ex: "01/01/2006")
DateDeb est déclaré comme Date

donc je fais
DateDeb ="#" & me.Txt_DateStart.value & " 00:00:00#"
DateFin ="#" & me.Txt_DateEnd.value & " 23:59:59#"

et la badaboom dans la requete sql ,erreur de compatibilité

sql = "select champ1, champ2..."
sql = sql & "where Demandes![date de creation] between " & DateDeb and DateFin & ";"

**sunvialley** · 16/05/2006, 13h37

ca peut venir d'une petite erreur dans la requete, correction possible :

Code :

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

1
2
3
4
 
sql = "SELECT champ1, champ2 FROM matable "
sql = sql & "WHERE Demandes.[date de creation] 
                BETWEEN " & DateDeb  & " and " & DateFin & " ;"

**jedwiller** · 16/05/2006, 14h36

Envoyé par sunvialley

ca peut venir d'une petite erreur dans la requete, correction possible :

Code :

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

1
2
3
4
 
sql = "SELECT champ1, champ2 FROM matable "
sql = sql & "WHERE Demandes.[date de creation] 
                BETWEEN " & DateDeb  & " and " & DateFin & " ;"

Merci sunvialley c'était bien ça....pour ce qui est de l'erreur de compatibilité
Mais maintenant c'est le resultat qui n'est pas bon.
Je cherche entre 01/03/2006 et 31/03/2006 et il me liste tout les enregs!!!
Alors que visiblement il y en a plusieurs..

Je commence a avoir des cheveux blancs!!
Je joins une copie de la base si tu peux jeter un coup d'oeil

Merci pour ton aide

**sunvialley** · 17/05/2006, 10h14

c'est bon j'ai trouvé

l'erreur vient du fait que en vb, les date sont gérée au format US, cad mm/dd/yyyy

pour transformer tout ca une petite fonction :

Code :

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

1
2
3
4
5
 
Public Function DateUS(ByVal DateFR As Variant)
    If IsNull(DateFR) Then Exit Function
    DateUS = "#" & month(DateFR) & "/" & day(DateFR) & "/" & year(DateFR) & "#"
End Function

et après tu n'a l'utiliser pour créer ta requête :

Code :

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

1
2
3
4
5
6
 
DateStart = DateUS(Me.Txt_DateDeb.Value)
DateEnd = DateUS(Me.Txt_DateFin.Value)
 
SQL = "SELECT Id_Numero, [Date création], ..... "
SQL = SQL & "WHERE (Demandes.[Date création] BETWEEN " & DateStart & " AND " & DateEnd & ");"

par contre, un truc que j'ai pas fait, c'est de tester les débordement sur les dates (ex : 31 février... ca plantera à mon avis), il faudrait vérifier avant de lancer la rechercher si la date est valide => IsDate()

**jedwiller** · 17/05/2006, 11h33

Envoyé par sunvialley

c'est bon j'ai trouvé

l'erreur vient du fait que en vb, les date sont gérée au format US, cad mm/dd/yyyy

pour transformer tout ca une petite fonction :

Code :

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

1
2
3
4
5
 
Public Function DateUS(ByVal DateFR As Variant)
    If IsNull(DateFR) Then Exit Function
    DateUS = "#" & month(DateFR) & "/" & day(DateFR) & "/" & year(DateFR) & "#"
End Function

et après tu n'a l'utiliser pour créer ta requête :

Code :

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

1
2
3
4
5
6
 
DateStart = DateUS(Me.Txt_DateDeb.Value)
DateEnd = DateUS(Me.Txt_DateFin.Value)
 
SQL = "SELECT Id_Numero, [Date création], ..... "
SQL = SQL & "WHERE (Demandes.[Date création] BETWEEN " & DateStart & " AND " & DateEnd & ");"

par contre, un truc que j'ai pas fait, c'est de tester les débordement sur les dates (ex : 31 février... ca plantera à mon avis), il faudrait vérifier avant de lancer la rechercher si la date est valide => IsDate()

Woaw !!! j'aurais pas trouvé .. d'autant que les dates dans la base est bien affiché en jjmmaaa !!!!!

Pour ce qui est des debordement ... le fait d'utiliser le calendrier ne pose plus ce probleme et je vais controler la saisie !!!

Merci encore d'avoir pris sur ton temps !!! et aussi parceque je commencais a criser grave!

Cordialement

Jed

Requête entre deux dates

Access

Discussions similaires

Partager

Partager