Discussion :

[mohalesage]

Bonjour les Amis (es),

J'ai besoin de votre aide. Je me suis trouvé bloqué au bout du couloir. Je n'ai pas arrivé à dépasser l'étape de Filtrage
des enregistrements par plage de dates.

Je travaille sur VB6 avec Access 2007, en se servant de la technique ADO

Mon Code est comme suit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim P
 
P=CInt(cmbCodePdt)
 
SQLs="Select * from TableAchats where DateOp >= #" & DTPicker1 & "# and DateOp < #" & DTPicker2 & "# and CodePdt="& Cint(cmbCodePdt) &""
 
if rs.state=adstateopen then rs.close
rs.open SQLs,DB,adOpenKeySet,adClockPessimistic
 
 
adodcFiltreDate.RecordSource=SQLs
set DataRepotFiltreDate.DataSource=adodcFiltrePdt
 
adodcFiltreDate.Refresh

Je n'arrive pas à détecter mon erreur.

Merci d'avance pour votre aide

[ProgElecT]

Salut, bienvenue sur DVP
Peut être que cela a un rapport avec Pourquoi ma requête, qui a un critère sur une date, ne me renvoie aucun enregistrement ?

[mohalesage]

Salut,

Peut être que ma requête SQLs lui manque quelque chose; mais je n'arrive pas à le cerner

J'attends toujours l'aide des pro.

Merci d'avance

[l_autodidacte]

N'y a-t-il aucun message d'erreur avec adClockPessimistic qui devrait être adLockPessimistic ?

[mohalesage]

Bonjour,

Je m'excuse, il y avait une erreur de frappe. Bien sûr c'est adLockPessimistic

Pour plus de précision, je vous expose le sujet

J'ai dans ma TableAchats 6 enregistrements ( 3 en JAnvier et 3 en Février )

quant je sélectionne du 01/01/2014 au 31/01/2014

ma requête me renvoie les données correctes ( c'est à dire les enregistrements de Janvier )

mais quant je sélectionne du 01/02/2014 au 28/02/2014, ma requête me renvoie les enregistrements de

Février et aussi le dernier enregistrement de janvier

Voilà mon vrai problème, et je n'arrive pas à le dépasser

Merci pour votre attention

[ProgElecT]

Code :

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

SQLs = "Select * from TableAchats where (DateOp >= #" & DTPicker1 & "# and DateOp <= #" & DTPicker2 & "#) and CodePdt=" & CInt(cmbCodePdt) & ""

[mohalesage]

Bonsoir,

Merci pour votre réponse.
Même avec les parenthèses dans ma requête SQL, le même problème persiste

si je sélectionne la plage entre 01/01/2014 et 31/01/2014 tout va bien

mais lorsque je sélectionne entre 01/02/2014 et 28/02/2014 toujours le dernière
enregistrement de Janvier s'affiche avec ceux de Février


Je ne sais pas où se bloque

[Invité]

Bonjour

Est-ce que DTPicker1 et DTPicker2 te sortent les dates au format dd/mm/yyyy ?

Si oui, il faut passer au format US mm/dd/yyyy en utilisant la fonction Format.

Philippe

[mohalesage]

Bonjour Mr Philipe

En essayant l'astuce que vous m'aviez proposé, ma requête m'a renvoyé la réponse correcte

Je récris les codes pour que les autres, qui se trouvaient dans le même cas que moi, la voient

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
cmdAfficher_Click
 
DTPicker1=Format(DTPicker1,"mm/dd/yyyy")
DTPicker2=Format(DTPicker2,"mm/dd/yyyy")
 
 
Dim P
P=Cint(cmbCodePdt)
 
Dim D1
D1=Cdate(DTPicker1)
 
Dim D2
D2=Cdate(DTPicker)
 
 
SQLs="Select * From TableAchats where DateOp >= # " & Cdate(DTPicker1) & "# and DateOp <= #" & Cdate(DTPicker2) & "# and CodePdt="& CInt(CmbCodePdt) & ""
 
if rs.state=adstateopen then rs.close
rs.open SQLs, DB, adKeyOpenSet, adLockPessimistic
 
 
adodcConsulPdt.RecordSource=SQLs
 
set DatareportConsulPdt.DataSource=adodcConsulPdt
 
adodcConsulPdt.Refresh

Merci pour votre aide

[ProgElecT]

Salut

Pour information, ma première intervention poste #2:
Pourquoi ma requête, qui a un critère sur une date, ne me renvoie aucun enregistrement ? <--- ceci est un lien vers la FAQ.

ATTENTION DTPicker1=Format(DTPicker1,"mm/dd/yyyy") fonctionne bien pour les dates que tu proposes, mais le jour ou tu auras besoin d'utiliser par exemple cette plage de date 01/12/2014 à 30/12/2014, DTPicker1.value passera bien à la date 12/01/2014 mais DTPicker2.value lui restera à la date 30/12/2014.

C'est pourquoi le formatage doit être pour la variable SQL non pas sur les sélectionneurs de date, de plus les utilisateurs risquent d'être déroutés par le passage d'un sélectionneurs de date une fois au format dd/mm/yyyy une autre fois au format mm/dd/yyyy (gros risque d'erreurs)).
Pour éviter ces inconvénients ta requête SQL devient

Code :

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

1
2
3
SQLs = "Select * From TableAchats where DateOp >= #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "#" _
                                & " and DateOp <= #" & Format(DTPicker2.Value, "mm/dd/yyyy") & "#" _
                                & " and CodePdt =" & CInt(CmbCodePdt.Text)

le formatage de DTPicker1 et DTPicker2 resteront stables, les utilisateurs (voir toi même) ne provoquerons pas d'erreur de sélection de plage.
En conséquence, les lignes 3 à 16 deviennent inutiles.

[mohalesage]

Bonsoir,

C'est une remarque pertinente. Je l'ai essayé et elle a fonctionné.
En plus, une fois le bouton cmdAfficher est actionné, les
zones de dates devient inactives

DTPicker1.enabled=False
DTPicker2.enabled=False

Ainsi l'utilisateur sera obligé de quitter et d'activer la commande Consulter de nouveau


Merci pour votre remarque