Discussion :

[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 :

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

Me.Ctrl_newdate

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

Code :

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

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 :

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

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 :

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

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 :

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

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

[Invité]

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 :

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

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 :

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

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"

[Invité]

Re

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 :

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

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 & "# ;"