insérer le résultat d'une requete dans un état

Question

bonjour, je voudrais insérer le résultat de ma requete somme dans une zone de texte qui se trouve dans un état de ma base.
ce code fonctionne :

Code sql :

SELECT Sum([Ordres de fabrication].[Pmax]) AS TOTAL
FROM [Ordres de fabrication]
WHERE ((([Ordres de fabrication].[date]) BETWEEN [Forms]![StatistiquesCommandes]![tfDateDebut] AND [Forms]![StatistiquesCommandes]![tfDateFin]));

mais lorsque je crée une zone de texte pour insérer le résultat, j'ai alors ce message d'erreur :

"Aucune valeur donnée pour un ou plusieurs des parametres requis"

savez vous pourquoi j'ai ce message d'erreur?
merci pour votre aide !!!

Answer 1

Bonjour,

Je ne vois pas trop comment tu peux mettre une requète en donnée de txt
Pour ma part, je crée une fonction vba qui exécute la requète et retourne la valeur demandée.

Mais à lire ton code, il faut bien entendu que le formulaire [Forms]![StatistiquesCommandes] soit ouvert.
Et d'autre part, une date doit être correctement formatée dans le code SQL :
- #mm/dd/yyyy# access "pur"
- ' et ' à la place des croisillons en sql server

Cdt, Blaise

<guaguanco> a écrit dans le message de news: [e-mail]...

bonjour, je voudrais insérer le résultat de ma requete somme dans une zone de texte qui se trouve dans un état de ma base.
ce code fonctionne :


Code sql :

SELECT Sum([Ordres de fabrication].[Pmax]) AS TOTAL
FROM [Ordres de fabrication]
WHERE ((([Ordres de fabrication].[date]) BETWEEN
[Forms]![StatistiquesCommandes]![tfDateDebut] AND
[Forms]![StatistiquesCommandes]![tfDateFin]));

mais lorsque je crée une zone de texte pour insérer le résultat, j'ai alors ce message d'erreur :

"Aucune valeur donnée pour un ou plusieurs des parametres requis"

savez vous pourquoi j'ai ce message d'erreur?
merci pour votre aide !!!

Answer 2

Bonjour,

Normal une requete renvoi un objet Recordset alors qu'une zone de texte ne gère que des objets simples (string, long...).

Le plus simple est de créer un sous-état à la place de la zone de texte.

Autre méthode plus complexe pour réellement remplir ta zone de texte.

L'événement Sur Formatage .

dim rst as recordset
dim vsql as string
vsql = ".... ici ta requete ..."
set rst = currentdb.openrecordset(vsql)

do while not rst.eof
  me.mazonedetexte = me.mazonedetexte & rst.fields(0) & vbcrlf
  rst.movenext
loop

rst.close
set rst = nothing

Cordialement,

---

Visitez mes sites : http://2gm.free.fr | http://loufab.developpez.com