[AC-2003] DAO et requête sur Date [Résolu]

[Max_zen]

Je suis navré bien que j'ai lu les différents tutoriels je n'arrive pas à résoudre mon pb :

j'ai ctrl dans un formulaire que j'ai nommé

Code :

Me.Ctrl_newdate

dans mon formulaire je saisie comme valeur pour ce contrôle "22/02/2011"
ensuite j'ai écris ce code :

Code :

1
2
3
rst1 = "SELECT TR_Ereception.num_recep, TR_Ereception.date_recep FROM TR_Ereception WHERE (((TR_Ereception.date_recep)=" & Me.Ctrl_newdate & "));"
Set rs1 = CurrentDb.OpenRecordset(rst1)
MsgBox "le résultat de la requête rs1 =  " & rs1.Fields(0).Value

Mais mon code me retourne aucun enregistrement alors que réellement dans ma table j'ai au moins un enregistrement avec cette valeur.
J'ai pensé que mon souci provenait du format de date alors J'ai essayé de faire

Code :

1
2
Dim dt As Date
    dt = Format(Me.Ctrl_newdate, "mm/jj/aaa")

et de remplacer Me.ctrl_newdate par dt dans ma requête. Mais comme retour j'ai un message "incompatibilité de type".
Quelqu'un peut-il m'orienter ?
Merci d'avance

[Julien42]

bonjour,

dans ce code :

Code :

1
2
Dim dt As Date
    dt = Format(Me.Ctrl_newdate, "mm/jj/aaa")

je pense que tu devrais rajouter un "a" pour l'année. Tu as écris "mm/jj/aaa" au lieu de "mm/jj/aaaa" :

Code :

1
2
Dim dt As Date
    dt = Format(Me.Ctrl_newdate, "mm/jj/aaaa")

[Max_zen]

En fait c'était une erreur dans la saisie de mon post
j'avais bien écrit "aaaa" dans mon code.

Mais je te remercie quand même

[Philippe JOCHMANS]

Bonjour

Tu dis que ton code ne retourne aucun enregistrement, mais as-tu un message d'erreur ?

En effet, si ton champ TR_Ereception.date_recep est de type Date, tu dois utiliser des # avant et après pour insérer ta date.

De plus, tu es en VBA, la commande Format doit prendre la syntaxe angla-saxonne : mm/dd/yyyy.

Un tuto à lire : http://mhubiche.developpez.com/vba/f...ions/datetime/

Philippe

[Max_zen]

En fait
j'ai testé d'abord ma requête SQL à travers le module Requête d'accès. Cette requête me retourne un enregistrement

Ensuite je lance mon code en vba

1er cas :

Code :

1
2
3
4
5
6
7
8
9
 
    dt = Me.Ctrl_newdate
    Dim rst1 As String
    Dim rs1 As DAO.Recordset
 
 
rst1 = "SELECT TR_Ereception.num_recep, TR_Ereception.date_recep FROM TR_Ereception WHERE (TR_Ereception.date_recep)=" & dt & ";"
Set rs1 = CurrentDb.OpenRecordset(rst1)
MsgBox "le résultat de la requête rs1 =  " & rs1.Fields(0).Value

j'obtiens le message d'erreur suivant : "Aucun Enregistrement"
2eme cas

Code :

1
2
3
4
5
6
7
8
9
dt = Format(Me.Ctrl_newdate, "mm/jj/aaaa")
 
    Dim rst1 As String
    Dim rs1 As DAO.Recordset
 
 
rst1 = "SELECT TR_Ereception.num_recep, TR_Ereception.date_recep FROM TR_Ereception WHERE (TR_Ereception.date_recep)=" & dt & ";"
Set rs1 = CurrentDb.OpenRecordset(rst1)
MsgBox "le résultat de la requête rs1 =  " & rs1.Fields(0).Value

dans ce cas j'obtiens le message d'erreur "Incompatibilité de type"

[Philippe JOCHMANS]

Re

Envoyé par Philippe JOCHMANS

Bonjour

Tu dis que ton code ne retourne aucun enregistrement, mais as-tu un message d'erreur ?

En effet, si ton champ TR_Ereception.date_recep est de type Date, tu dois utiliser des # avant et après pour insérer ta date.

De plus, tu es en VBA, la commande Format doit prendre la syntaxe angla-saxonne : mm/dd/yyyy.

Un tuto à lire : http://mhubiche.developpez.com/vba/f...ions/datetime/

Philippe

Il faudrait prendre en compte les messages.

Philippe

[Max_zen]

J'ai pris en compte ton message.
Pour l'instant bien que je comprend le message.
Je ne vois pas très bien comment modifier mon code.
Je vais travaille dessus donc.

[Max_zen]

merci. finalement ça marche mieux comme ça.

Code :

1
2
3
4
  dt = Format(Me.Ctrl_newdate, "mm/dd/yyyy")
    Dim rst1 As String
  
rst1 = "SELECT TR_Ereception.num_recep, TR_Ereception.date_recep FROM TR_Ereception WHERE (TR_Ereception.date_recep)=#" & dt & "# ;"