Discussion :

[olivierh78]

Bonjour,
Je bloque sur un problème depuis quelques temps et les exemples trouvés ici ne correspondent pas tout à fait :
J'ai donc une table "Employés" et une table "Ventes". chaque vente réalisée par un employé génère un enregistrement dans la table "Ventes" avec le code de l'employé, la date de la vente et le montant de la vente
Je voudrais faire des stats sur les montants des ventes par employé et par année.
Je crée donc un formulaire avec
- une listbox contenant tous les employés
- une listbox contenant les années
- un bouton "Statistiques"
- un champ texte "Montant > 10K€"
- un champ texte "Montant < 10K€"

Lorsque je choisis un employé et une année, un clic sur le bouton "Statistiques" doit me remplir
- le champ texte "Montant > 10K€" avec le nombre de ventes réalisées par l'employé choisi, au cours de l'année choisie et dont le montant est supérieur à 10K€
- le champ texte "Montant < 10K€" avec le nombre de ventes réalisées par l'employé choisi, au cours de l'année choisie et dont le montant est inférieur à 10K€

Les requetes devraient ressembler à ca :

Code sql :

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

select count(*) from ventes where ventes.IDemploye=[employe choisi] and ventes.année=[annee choisie] and ventes.montant > 10000;

Code sql :

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

select count(*) from ventes where ventes.IDemploye=[employe choisi] and ventes.année=[annee choisie] and ventes.montant < 10000;

Mais comment affecter le résultat de ces requetes à mes champs texte du formulaire ?
Merci par avance

[loufab]

Bonjour,

Plusieurs solutions sont possibles, via recordset (voir le tuto DAO pour la mise en application).

En utilisant une fonction de domaine. Dlookup(), Dmax()...

En modifiant légèrement l'interface, remplace la zone de texte par un zone de liste (non déroulante) qui te permet d'affecter la requete à la propriété source de celle-ci.

Je crois qu'on a fait le tour des possibilités.

Cordialement,

[Jeannot2]

Bonjour.

Si la requete SQL est lancee dans un module VBA, ne peut on pas ecrire :

Me!text2="select........" ?

Normalement, ca doit afficher le contenu desire dans le champ texte.

Cdlt.
Jeannot2.

[Gary_Stoupy]

je ne suis pas sur que cela fonctionne jeannot2... maintenant je ne suis pas expert mais a mon humble avis, ton controle texte contiendra exactement "Select...." et non pas le résultat de la requete...

[Invité]

Bonjour

Suit les conseils de LOUFAB, un textbox ne peux interpréter une requête SQL, il faut soit

1 - Affecter le résultat du requête par des recordset
2 - Ou les fonctions de domaine (cette fonction remplacera ton select)

Starec

[Jeannot2]

Je pensais que ca devait marcher.

Dans ce genre de cas, j'utilise toujours des requetes classique d'Access et recupere les donnees dans les champs respectif et, enfin, les affiche sans probleme dans des zones texte. Ce ne sont donc pas des requetes SQL en tant que tel dans mon cas.
Donc gestion par DAO, ouverture de la requete contenant le resultat etc.

Cdlt.
Jean.

[olivierh78]

Voila la solution à mon problème :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim strSQL as string
Dim rst As New ADODB.Recordset
strSQL = "SELECT count(*) FROM ventes " & _
             "WHERE ventes.IDemploye=[employe choisi] AND " & _
                       "ventes.année=[annee choisie] AND " & _
                       "ventes.montant > 10000;"   
rst.Open strSQL, CurrentProject.Connection, adOpenStatic
Mon_Champ_Text.Value = rst.Fields(0)

Merci pour l'aide