Discussion :

[C82bgab]

Bonjour,

J'ai un petit souci avec un recordset lorsque j'ajoute la condition WHERE :

Code :

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

1
2
3
4
5
6
Dim rst As DAO.Recordset
Dim dbs As DAO.Database
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select Texte From T_IMSA_HISTO where date = [formulaires]![T110]![Datex]")
J'obtiens le message : '3061' Trop peu de paramètres. 1 attendu
alors que sans la clause WHERE la requête fonctionne parfaitement  :  "Select Texte from T_IMSA_HISTO"

Je précise que lorsque je teste la requête dans l'éditeur SQL elle fonctionne parfaitement.

Qu'en pensez-vous ?

Merci pour votre aide.

[madefemere]

Bonjour,

Il faut "sortir" l'argument de l'expression SQL :

Code :

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

Set rst = dbs.OpenRecordset("Select Texte From T_IMSA_HISTO where date =" & Forms.[T110].[Datex])

- Attention le mot "date" est réservé dans la plupart des applications informatiques, tu risques de rencontrer une erreur inattendue à un moment.
- Les arguments de type date s'utilisent entre #
- Pour éviter les erreurs d'interprétation de la machine (selon les langues), il faut formater l'argument date à l'américaine. Ce qui donnerait :

Code :

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

Set rst = dbs.OpenRecordset("Select Texte From T_IMSA_HISTO where date =" & Format(Forms.[T110].[Datex],"yyyy/mm/dd"))

Cordialement.

[micniv]

grand classique, en plus pour comparer des dates, il vaut mieux assurer un format. Essaie:

Code :

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

Set rst = dbs.OpenRecordset("SELECT Texte FROM T_IMSA_HISTO WHERE format(date, 'yyyymmdd') ='" & format( [formulaires]![T110]![Datex], "yyyymmdd") & "'" )

[C82bgab]

La solution fonctionne.
Merci beaucoup

Cette solution fonctionne aussi.
Merci beaucoup, j'ai appris quelque chose aujourd'hui.