[Résolu][Base] Compter le nb de résultats d'un SELECT

[Drake]

Bonjour,

Je voudrai compter le nb d'enregistrements répondants à un critère. Pour cela j'ai commencé à écrire une macro mais je ne parviens pas à la terminer. Je ne sais pas comment récupérer le résultat qu'elle est sensée renvoyer.
J'ai bien sur suivi plusieurs files à ce sujet mais sans trouver de réponses.
Je joins une base de test au cas où quelqu'un pourrait m'aider.

[DLE]

Bonjour,

A partir du resulset "Resultat", on extrait la valeur retournée par "count" avec:

Code : Tout sélectionner

	resultat.next
	iNombre = resultat.Columns.getByName("compteur").Double

Bonne journée

[Drake]

Bonjour,

Merci DLE,
C'est exactement ça que je cherchais. Je vais la garder au chaud celle-là.

Sans vouloir abuser,
j'ai ajouté une ligne pour que le résultat s'affiche dans la zone de texte.
Je voudrai supprimer le bouton de commande mais je ne trouve pas comment faire pour que la macro s'exécute lors de l'affichage du formulaire.
Je ne trouve rien dans les évènements de la zone de texte.

[DLE]

Pour ce faire, il faut mettre la macro sur un évènement du formulaire, ici c'est "Après changement d'enregistrement".

Dans la macro il y a plusieurs maj, car l'objet récupéré (oEV) n'est plus le même.

A+

[Drake]

re,

Merci, c'est ok.

Pour ce faire, il faut mettre la macro sur un évènement du formulaire, ici c'est "Après changement d'enregistrement".

J'en ai essayé plusieurs d'évènements, sur le formulaire comme sur le contrôle ... sauf le bon

Dans la macro il y a plusieurs maj, car l'objet récupéré (oEV) n'est plus le même.

Que veux-tu dire ?

[DLE]

L'objet renvoyé à la macro(oEv) est un "EventObject", dont la source est le formulaire

Code : Tout sélectionner

oForm = oEv.source

, alors qu'avec le bouton on obtient un "ActionEvent" dont la source est le bouton de contrôle. Pour avoir le formulaire il faut remonter par "Model" puis "Parent"soit :

Code : Tout sélectionner

oForm = oEv.source.model.parent 

.

J'espère avoir été clair.

A+

[Drake]

re,

J'espère avoir été clair.

Tout à fait,
et encore merci
a+