Discussion :

[PAUL87]

Bonjour,
pour faire suite au tutoriel de cafeine sur la recherche multi critères,
Le compteur de résultats " lblStats" affiche le nombre de resutat trouvé en fonction des critères par rapport au nombre d'enregistrements total de la table.
Je souhaite afficher en plus (dans mon formulaire) un resultat en %
Comment faire...merci

[Tofalu]

C'est juste une opération mathématique ....

Total -->100
NbTrouvé --> ?

Pourcentage = NbTrouvé*100 / Total

[PAUL87]

bonjour,
pour la formule de calcul d'un pourcentage ça va !!!
Ma question etait plutôt au niveau de la syntaxe: comment rédiger la formule? ou et comment placer les operateurs??
exemple dans la formule de cafeine:

Me.Pourcentage.Caption = DCount("*", "Medias", SQLWhere) & " / " & DCount("*", "Medias")

comment doit-on la modifier... Merci

[Sinclar]

Comment la modifier pour faire quoi ?
Quelles sont tes données ?

Commence à écrire ton code et ensuite on verra où ça coince

[PAUL87]

bonjour,
Dans la formule ci-dessus
on compte le résultat de la requete par rapport au nombre d'enregistrements de la table...avec un affichage xx/xx

Je souhaite garder cet affichage mais en plus avoir un affichage de ce résultat en pourcentage

J'ai créé l'étiquette pour l'affichage (Me.Pourcentage)
Le nombre d'enregistrement total = DCount("*", "Medias")
Le resultat de la requete = DCount("*", "Medias", SQLWhere)
mon prolème est purement rédactionnel...comment redige t'on la formule?

[Sinclar]

Et bien je ferais la chose suivante:

Code :

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

1
2
3
4
5
6
 
Dim Nbtotal, Resul As integer
 
Nbtotal = DCount("*", "Medias") 
Resul = DCount("*", "Medias", SQLWhere) 
Me.pourcentage = (Resul/Nbtotal) * 100

[Tofalu]

Et bien je ferais la chose suivante:

Code :

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

1
2
3
4
5
6
 
Dim Nbtotal, Resul As integer
 
Nbtotal = DCount("*", "Medias") 
Resul = DCount("*", "Medias", SQLWhere) 
Me.pourcentage = (Resul/Nbtotal) * 100

Attention à bien déclarer les variables ...

C'est trés différents de :

Dim NbTotal as Integer, Resul as Integer

De toute façon, cela tiens sur une seule ligne.

Le plus important étant de savoir que :

DCount("*", "Medias") représente le nombre total
DCount("*", "Medias", SQLWhere) représente le nombre trouvé

A partir de là, je ne vois pas où est la difficulté ...

[PAUL87]

Bonjour,
J'ai droit à un message : "erreur d'exécution 2448:impossible d'attribuer une valeur à cet objet"
et en débogage il me surligne : Me.Pourcentage = (Resul / NbTotal) * 100

d'où vient mon erreur? et où dois-je positionner le code?
Merci

[PAUL87]

bon ,c'est résolu....il me manquait
Me.Pourcentage.Caption....etc
Maintenant c'est ok
par contre comment fait'on pour n'avoir que 2 chiffres après la viergule??
Merci

[smicky77]

par contre comment fait'on pour n'avoir que 2 chiffres après la viergule??
Merci

Tu ouvres l'aide Access, tu tapes "décimale" dans l'aide intuitive et tu as tout ce que tu veux.

Alain

[PAUL87]

Ben oui mais là dans l'utilisation du formulaire multi critères de Cafeine,
mon resultat en% calculé s'affiche dans une zone "étiquette" et là j'ai pas trouvé d'aide pour le formatage de la dite zone......

[cafeine]

Ben oui mais là dans l'utilisation du formulaire multi critères de Cafeine,
mon resultat en% calculé s'affiche dans une zone "étiquette" et là j'ai pas trouvé d'aide pour le formatage de la dite zone......

sur Format

[PAUL87]

Finalement,
j'ai modifié ....j'ai inclu le résulat du calcul dans une zone de texte...que j'ai paramétré comme je le souhaitais..

Maintenant tout est OKet Génial !!!!
1000 Merci à tous
Mention spéciale à Cafeine.... ..le tuto form multi crit. est formidable !!!!!!