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

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