Discussion :

[MSpecter]

Bonjour,
Basé sur une requête SQL, je souhaite faire apparaître le résultat dans une zone de texte ou étiquette d'un formulaire. Cependant je n'y parviens pas.
Avez-vous une idée de mon erreur ?
Sachez que si vous avez d'autres manières d'arriver à cette finalité, n'hésitez pas!

Voici la requête brute :

Code sql :

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

1
2
3
SELECT Count(Table1.NR_LIGNE)
FROM Table1
WHERE (((Table1.Couleur) Is Null) AND ((Table1.Matiere) Is Not Null));

Et voici le code que j'ai appliqué en VBA :

Code VBA :

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

1
2
3
4
5
6
7
8
9
Public Sub SQL()
Dim StrsSQL As String
StrsSQL = "SELECT COUNT(NR_LIGNE)" & "T_Travail" & "WHERE(((BDP_RECORD_KEY) IS NULL) AND ((IBP_RECORD KEY) IS NOT NULL));"
DoCmd.RunSQL (StrsSQL)
End Sub
 
Private Sub Texte32_Click()
Call SQL
End Sub

(j'ai construit cela avec ce que j'ai trouvé sur le net)

[nico84]

Bonjour,
Le fait d'exécuter une requete n'affecte pas son résultat au champ du formulaire.
Par ailleurs count compte un nombre de lignes tous champs confondus donc autant écrire count(*)
Il y a plusieurs façons de le faire, par exemple sur clic dans le champ :

Code :

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

1
2
3
Private Sub Texte32_Click()
texte32=dcount("*","table1","couleur is null and not matiere is null")
End Sub

On peut aussi mettre cette formule dans la propriété "valeur du champ" auquel cas le calcul est automatique, ou faire une requete et affecter son résultat à texte32...

[MSpecter]

Niquel! Merci beaucoup!!
Si je peux vous déranger encore un peu, j'ai besoin d'une suite dans une nouvelle cellule avec pour requête :

Code sql :

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

1
2
3
4
SELECT Count(Table1.NR_LIGNE) 
FROM Table1
WHERE (((Table1.Couleur) Is Null) AND ((Table1.Matière) Is Not Null))
GROUP BY Table1.Produit_Code;

Elle me permet donc d'avoir le résultat précédent, mais classé par code produit.
Comment cela se traduirait-il afin d'avoir le résultat à nouveau dans une cellule du formulaire ?

[tyjez]

peut etre déja en enregistrant ta requète avec le group by et pour le coup effectuer un dcount sur la requete et non sur la table ?

[MSpecter]

Pourquoi pas oui, je ne savais pas qu'un DCount était possible sur une requête.
Simplement comme ceci ?

x = Dcount("Req1", " --quel serait le domaine par conséquent ?-- ")

[tyjez]

je ne suis pas un expert du dcount() mais j'ai cru lire que c'etaiot possible
j'aurais plutot dit que le domaine c'est Req1
x = Dcount("*","[Req1]") 
À confirmer jamais essayé mais il me semble que j'ai lu que c'est possible

[tyjez]

[MSpecter]

Vous avez raison effectivement, mais cela n'affiche pas vraiment le résultat de la requête.

Si j'exécute la requête je reçois comme réponse une colonne avec le nombre d'occurrence qui suivent la loi de la SQL, et en face j'ai le code produit du style :

304 / AD
123 / ZE
21 / RI

Mais la avec le Dcount je trouve 42
Est-ce parce que le formulaire ne se prête pas a ce type de réponse ? (Sachant que pour le résultat que j'ai obtenu, j'ai utilisé une Zone de texte)

[tyjez]

Dcount est fait pour compter un nombre de résultat donc c'est logique qu'il renvoie un nombre.
Si vous cherchez a afficher tous les lignes de resultats d'une requete ce n'est pas avec dcount qu'il faut procéder.
Ou peut être ai-je mal compris la question alors

[MSpecter]

Du coup pour cette réponse je souhaiterai comme vous l'avez dit, afficher l'ensemble des réponses de la requête dans le formulaire (il ne faut pas nécessairement un tableau si c'est impossible, mais une manière de lire les réponses logique ex: 123 : AD ou autres).
Vous avez une idée ? Sinon je lui demande simplement de l'exécuter avec un DoCmd et le résultat apparaitra sur une nouvelle page. Mais le fait d'avoir la réponse sur le formulaire serait bien plus pertinent et pratique.

Merci pour votre patience!!

[tyjez]

Votre probleme est en fait que votre requete s'affiche sur plusieurss pages et que vous etes obligés de passer les enregistrements un a un ?
Dans ce cas il faudrait passer votre formulaire en mode continu.

[tyjez]

[MSpecter]

J'ai dû mal m'exprimer et j'en suis désolé.. à ce stade, je souhaite avoir une zone de texte où lorsque l'on clique dessus, la requête s'exécute et s'affiche dans cette même zone de texte avec une liste de résultat similaire à l'exemple que je vous ai donné plus haut (123 / DE ...)
Mais pour le moment, comme je ne sais pas comment faire cela (ou si c'est possible), je lui ai simplement demander lors du clique d'exécuter la requête qui s'affiche donc hors du formulaire comme toute requête exécuter. (DoCmd.OpenQuery "Req1")

J'ai tout de même essayé votre petite astuce mais la requête s'exécute de la même manière, hors du formulaire.
J'espère avoir un peu clarifié ma situation

[tyjez]

Ok dans votre cas c'est donc par du VBA que vous voulez executer votre requete.
Mais je ne comprend pas pourquoi vous voulez afficher le résultat dans une seul zone de texte. et pourquoi sur click de la zone de texte.
vous ne préférez pas afficher ces résultats dans une liste déroulante ?

[tyjez]

Est ce que la requete que vous souhaitez executer doit recuperer une valeur au préalable dans le formulaire pour ajouter un critere aux réponses ?
Quel est à ce stade de votre réalisation le contenu de votre formulaire ? Est il vide ? est ce un formulaire basée sur une requète ? pouvez vous me montrer un exemple de votre table converti au format access 2003

[nico84]

Niquel! Merci beaucoup!!
Si je peux vous déranger encore un peu, j'ai besoin d'une suite dans une nouvelle cellule avec pour requête :

SELECT Count(Table1.NR_LIGNE)
FROM Table1
WHERE (((Table1.Couleur) Is Null) AND ((Table1.Matière) Is Not Null))
GROUP BY Table1.Produit_Code;

Elle me permet donc d'avoir le résultat précèdent, mais classé par code produit.
Comment cela ce traduirait-il afin d'avoir le résultat à nouveau dans une cellule du formulaire ?

Ce select renvoie autant de valeurs qu'il y a de codes produit donc il peut être mis dans une liste déroulante mais pas une cellule
Si c'est le but, il suffit de déclarer comme source de la liste déroulante

Code :

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

SELECT Produit_Code, Count(*) FROM Table1 WHERE (((Table1.Couleur) Is Null) AND ((Table1.Matière) Is Not Null)) GROUP BY Produit_Code order by 1;

ensuite le format de la liste déroulante doit avoir 2 colonnes

Ca peut aussi alimenter un sous-formulaire suivant le même principe...

[MSpecter]

Le problème était bien la Zone de Texte!
Merci à vous deux pour l'astuce, cela marche parfaitement avec la liste déroulante!!!