Discussion :

[Greg84]

Bonjour,

voila j'ai a developper une fonction et je ne sais pas trop comment m'y prendre.

J'ai une base de donnée sous access2000, qui contient 3 tables:

une table client contenant le numéro client ainsi que son groupe.

une table facture qui contient le numéro de client et le cout de la facture, ainsi que le mois de la facture sous format MMAA

une table qui associe un groupe à une entité.

On me demande de mettre en place une fonction vba qui me permet de determiner le cout total des factures pour une entité.

Merci d'avance

[Moha25fr]

Bonjour

je pense qu'il vaut mieux passer par une requête c'est simple

Voilà

T_client(Id_client,Id_groupe)
T_Groupe(Id_goupe,entité)
T_facture(id_facture,id_client)

tu vas créer une requête avec les trois tables

T_groupe(id_client)---------T_client (id_client)---------->T_facture(id_client) lien à droite

ta requête va être
SELECT T_Groupe.Entite, Sum(T_Facture.Mt) AS SommeDeMt
FROM (T_client INNER JOIN T_Groupe ON T_client.Id_groupe = T_Groupe.Id_Groupe) LEFT JOIN T_Facture ON T_client.Id_client = T_Facture.Id_client
GROUP BY T_Groupe.Entite;


A+

je devine ton modèle de données mais bon c'est pas facile quand on connait pas le besoin

[Greg84]

En fait mon shéma est:

T_client(Id_client,Id_groupe)
T_Groupe(Id_goupe,entité)
T_facture(Id_client,Montant,Mois)

Par exemple rempis comme suis:
T_client:
0623A Groupe1
646AB Groupe2

T_Groupe:
Groupe1 Entité1
Groupe2 Entité1

T_facture:
0623A 23,00 0706
646AB 50,00 0706

Mon code est en modifiant legerement le tien:

Code :

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

1
2
3
4
5
 
SELECT T_Groupe.Entite, Sum(T_Facture.Mt) AS SommeDeMt
FROM (T_client INNER JOIN T_Groupe ON T_client.Id_groupe = T_Groupe.Id_Groupe) LEFT JOIN T_Facture ON T_client.Id_client = T_Facture.Id_client
WHERE [T_Facture].[Mois]='0706'
GROUP BY T_Groupe.Entite;

Lorsque j'execute la requete une message box s'ouvre avec écrit:
T_client.Groupe:
et une zone de saisie
si je rentre Entité1 je n'ai rien. Et si je rentre Groupe1, il s'affiche:

Entité1 73,00

De meme si je modifie le code et met:

Code :

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

1
2
3
4
5
 
SELECT Sum(T_Facture.Mt) AS SommeDeMt
FROM (T_client INNER JOIN T_Groupe ON T_client.Id_groupe = T_Groupe.Id_Groupe) LEFT JOIN T_Facture ON T_client.Id_client = T_Facture.Id_client
WHERE [T_Facture].[Mois]='0706'
and T_Groupe.Entite='Entité1';

J'ai la meme message box et la encore aucun montant


Merci d'avance

[tiotel]

Bonjour,

lorsque tu tape Entité 1, Access ne sais pas lesquel prendre. car il est present dans tes deux enregistrements


peut etre que tu peux mieux lire cette requete

Code :

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

1
2
3
4
5
6
SELECT Sum(T_Facture.Mt) AS SommeDeMt
FROM T_client, T_Groupe, T_Facture 
WHERE T_client.Id_groupe = T_Groupe.Id_Groupe  
AND T_client.Id_client = T_Facture.Id_client
AND [T_Facture].[Mois]='0706'
AND T_Groupe.Entite = 'Entité1';

[Greg84]

En fait j'ai trouvé l'erreur, ma table client avait pour nom de champ groupement au lieu de groupe. Il ne connaisait pas le champ groupe c'est pour ça qu'il me demandait.

Donc les 2 codes marche parfaitement.

Merci à vous 2.