Discussion :

[Platon93]

Bonjour à tous,

j'ai une table T1 ayant pour champs "nom" et "résultat". Le champ résultat est du type "liste" et il peut avoir trois valeurs : soit "succès" , soit "échec" soit "non_déterminé".

j'ai fait un formulaire F1 ayant pour champ "nombre_succès", "nombre_échec" et "nombre_non_déterminé".

J'ai édité une requête SQL qui me compte le nombre de succès :

Code sql :

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

1
2
 
select count(*) from T1 where résultat="succès";

Cette requête retourne bien le nombre de succès.

Cependant, je n'ai pas réussi à mettre dans le champ "nombre_succès" de mon formulaire le résultat de cette requête SQL.

Auriez vous des astuces qui permettrent de mettre dans le champ "nombre_succès" de mon formulaire F1 le résultat de ma requête ci-dessus?

OU BIEN

pourriez vous me proposer un code évenement qui me permettra de faire la même opération? ( mettre dans le champ "nombre_succès" de mon formulaire F1 le nombre de succès ) ? Le nombre de succès étant donné par la requête que j'ai écrite ci-dessus.

Merci d'avance pour votre aide intellectuelle =)

[cbleas]

Bonjour
avez vous essayé

SELECT count(*) as nbEnregistrement FROM T1 WHERE résultat="succès";

en affectant le nb d'enregistrement au champs

Bonne journée

[Platon93]

Bonsoir,

Comment affecter cette requête au champ "nombre_succès" de mon formulaire F1? C'est justement ce que je veux savoir.
A plus

[Muhad'hib]

Salut,

Tu dois pour ça mettre le nom de ta requete comme étant la source de ton formulaire et mettre le nom de ton champ comme source du controle de ton formulaire. Mais cette méthode ne pourra fonctionner qu'avec une seule requete et donc un seul critère de tri (dans l'exemple "succès").

Je te propose donc d'untuliser un peu de vba (que tu affectera sur l'événement adéquate, par exemple sur le chargement de ton formulaire)

Code :

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

1
2
3
4
 
Me.[nombre_succès] = DLookup("count([résultat])", "T1", "[résultat] = ""succès""")
Me.[nombre_échec] = DLookup("count([résultat])", "T1", "[résultat] = ""échec""")
Me.[nombre_non_déterminé] = DLookup("count([résultat])", "T1", "[résultat] = ""non_déterminé""")

A+

[DMboup]

Salut,

Je te propose donc d'untuliser un peu de vba (que tu affectera sur l'événement adéquate, par exemple sur le chargement de ton formulaire)

Code :

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

1
2
3
4
 
Me.[nombre_succès] = DLookup("count([résultat])", "T1", "[résultat] = ""succès""")
Me.[nombre_échec] = DLookup("count([résultat])", "T1", "[résultat] = ""échec""")
Me.[nombre_non_déterminé] = DLookup("count([résultat])", "T1", "[résultat] = ""non_déterminé""")

A+

Pourquoi pas DCount() à la place des DLookup?

Il pouvait aussi très bien utiliser un Recordset qu'il réinitialise pour chaque critère.

[Muhad'hib]

Salut,

Je ne faisais que proposer une des multiples possibilités. Dlookup ou Dcount reviennent quasiment au même.

Un recordset me semble un peu compliqué pour ce genre de question, mais peut parfaitement répondre au besoin.

A+

[Platon93]

Bonjour ,
Muhad'hib, je te remercie beaucoup pour ton aide amicale. Tu m'as vraiment dépanné
DMboup, je te remercie aussi.

En fait, pour que les champs de mon formulaire F1 prennent les résultats que je souhaite avoir, j'ai dû éditer une table T2 à partir de laquelle j'ai édité mon formulaire F1 avec des champs numériques "nombre_succès", "nombre_échec" et "nombre_non_déterminé".

Est-ce possible d'avoir le même résultat en éditant le formulaire F1 en "mode création" sans éditer aucune table liée à ce formulaire? Etant donné qu'en mode création, on n'a pas la possibilité d'avoir des champs numériques et que l'on a juste des zones de texte.

Malgré mes nombreux essais et tests, le formulaire F1 que j'avais édité en "mode création" n'ayant aucun lien avec les autres tables, ne marchait pas.

A plus.

[Platon93]

Bonjour,
Je me sers du VBA pour faire des opérations du type :

Code VBA :

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

1
2
 
Me.[nombre_échec] = DLookup("count([résultat])", "T1", "[résultat] = ""échec""")

(dédicasse à Muhad'hib).
Ici, il y a un seul critère : T1.[résultat]= "échec"

Supposons qu'il ya un champ supplémentaire "âge" dans la table T1.
Je ne sais pas comment mettre deux critères dans un code VBA.

Que donnerait en code VBA :
"quel est le nombre d'échec des personnes qui ont 20 ans?"
Il y aura deux critères : T1.résultat = "échec" et T1.âge="20".
Pourriez vous m'aider à mettre le second critère dans le code ci-dessus?

Merci d'avance pour vos suggestions.

[Platon93]

Salut,
j'ai enfin réussi à résoudre mon problème.
Voici un code dans lequel on a deux critères:

Code VBA :

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

Me.[nombre_échec] = DLookup("count([résultat])", "T1", "[résultat] = 'échec' and âge='20'")

Il s'agissait d'un problème entre les " " et les ' '.
A plus

[Muhad'hib]

Salut,

(dédicasse à Muhad'hib).

C'est sympa mais encore une fois les 2 solutions (celle de DMboup) sont tout aussi valable. Aprés vérification, Dcount semble même un peu plus rapide (ce qui semble logique)

Pour mettre plusieurs critère, il faut utiliser les opérateur logique (comme pour les critères de requetes) :

Code :

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

1
2
3
 
Me.[nombre_échec] = DCount("([résultat])", "T1", "[résultat] = ""échec"" AND [âge]=20") ' si le champ âge est de type numérique 
Me.[nombre_échec] = DCount("([résultat])", "T1", "[résultat] = ""échec"" AND [âge]=""20""") ' si le champ âge est de type texte

A+

[Platon93]

Salut Muhad'hib,
Merci pour ta solution. J'ai maintenant deux solutions
je confirme ta citation : " F1 est ton amie ".
Bonne journée.