Bonsoir à tous,

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

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