Erreur : Valeur incorrecte pour ce champ

Bonsoir à tous,

J'ai une petite erreur quant au dévelopement d'un formulaire si quelqu'un pouvait m'aider, voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Reunion_date_AfterUpdate()   Dim db As Database Dim rs As DAO.Recordset Dim reu_date As Date Dim req As String   reu_date = Reunion_date.Value   Set db = CurrentDb   req = ("SELECT TYPE_REUNION, COMPTE_RENDU FROM REUNION WHERE DATE_REUNION=" & "#" & reu_date & "#" & ";")   MsgBox req   Set rs = db.OpenRecordset(req)   Type_Reu = rs(0)   End Sub

---

Il me donne l'erreur : "Valeur incorrecte pour ce champ". Pour que vous puissez comprendre : A partir d'une date dans une formulaire, je désire afficher un champ complémentaire correspondant aux informations sur la réunion en l'occurence le champ Type_reu.

J'ai déjà réussi à l'afficher une fois, seulement dès que je change la valeur de reu_date, il m'affiche à nouveau ce message :?

Je bloque ...

Merci de votre aide !

Bonne soirée

Bonjour,

Peut-être une piste : Dans une clause WHERE sur un champ de type date, la valeur de date à tester doit être au format US (mm/dd/yyyy).

d'autre part, dans ton cas : récupérer une seule valeur, l'utilisation de DLookUp() me paraît plus indiquée.

Citation:

---

Envoyé par cafeine

d'autre part, dans ton cas : récupérer une seule valeur, l'utilisation de DLookUp() me paraît plus indiquée.

---

Pas vraiment, l'utilisation de DLookup en VBA est déconseillée par Microsoft.

Le moyen le plus efficace d'accéder aux données Access reste DAO même s'il date de VB4 :wink:

mince faut que je revoie ma doctrine :wink:

Merci bien pour vos réponses.

En effet, les fois où ma requête fonctionnait c'est lorsque j'avais des dates du type : 12/12 ou 03/03 :lol: Je comprends mieux ...

Enfin pour répondre à cafeine, je vais récupérer plusieurs champs mais je n'ai pas encore tout programmer

Edit:

Voilà le code qui marche, merci pour tout !

Code:

---

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 28

Option Compare Database Option Explicit   Private Sub Reunion_date_AfterUpdate()   Dim db As Database Dim rs As DAO.Recordset Dim reu_date As Date Dim req As String   reu_date = Reunion_date.Value   Set db = CurrentDb   req = ("SELECT TYPE_REUNION, COMPTE_RENDU FROM REUNION WHERE DATE_REUNION=" & DateUS(reu_date) & ";")   MsgBox req   Set rs = db.OpenRecordset(req)   Type_Reu = rs(0)   End Sub   Function DateUS(ByVal dt As Variant) If IsNull(dt) Then Exit Function DateUS = "#" & Month(dt) & "/" & Day(dt) & "/" & Year(dt) & "#" End Function

---