Discussion :

[Invité]

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

[pc75]

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

[cafeine]

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

[Tofalu]

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

[cafeine]

mince faut que je revoie ma doctrine

[Invité]

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

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