Discussion :

[mmljg]

Bonjour.
J'ai réalisé, pour une école, un logiciel de facturation en access, et je voudrais envoyer les factures par e-mail.
Chaque facture est un état (E_FACTURES_MATRIC), à générer et à ouvrir pour chaque élève de l'établissement, identifié par un matricule.

Voici le code envisagé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim stDocName as String
Dim stDocNamedeux As String
Dim stDocNametrois As String
Dim rst as recordset
Dim Identifiant as Integer
Dim adresp as String
Dim stCondition As String
Dim message As String
 
stDocName="E_FACTURES_MATRIC"
stDocNamedeux="Rich Text Format"
stDocNametrois="Note de frais scolaires"
message="Veuillez trouver en pièce jointe etc."
 
Set rst=CurrentDb.OpenRecordset("Select matriculei,mailr from T_MAIL")
rst.MoveFirst
Do Until rst.EOF
Identifiant=rst!matriculei
adresp=rst!mailr
stCondition="[R_CALCUL_DES_MONTANTS_MATRIC].[MATRICINFO]=" & str(Identifiant)
DoCmd.OpenReport "E_FACTURES_MATRIC", acVieuwNormal,,"[R_CALCUL_DES_MONTANTS_MATRIC].[MATRICINFO]" &"="& str(Identifiant)
DoCmd.SendObject acReport, stDocName, stDocNamedeux,adresp,,,stDocNametrois,message
DoCmd.Close acReport,stDocName 
rst.MoveNext
Loop
rst.Close
Set rst=Nothing

Le programme m'indique : "Le champ [R_CALCUL_DES_MONTANTS_MATRIC].[MATRICINFO] peut désigner plusieurs tables listées dans la clause FROM de votre instruction SQL".

Comment faire pour ne plus avoir ce message ?

Voici la requête R_CALCUL_DES_MONTANTS_MATRIC :

Code SQL :

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

1
2
3
4
SELECT T_COMMANDES.ACHETEUR_ID AS MATRICINFO,T_ELEVES.NOMDELELEV,T_ELEVES.PRENOMDELE,T_FRAIS.FR_ID,T_COMMANDES.QTE, T_FRAIS.FR_LIBEL, SUM (T_COMMANDES!QTE*T_FRAIS!PU) AS MONTANT
FROM T_FRAIS INNER JOIN (T_ELEVES INNER JOIN T_COMMANDES ON T_ELEVES.MATRICULEI=T_COMMANDES.ACHETEUR_ID) ON T_FRAIS.FR_ID=T_COMMANDES.ARTICLE_ID
GROUP BY T_COMMANDES.ACHETEUR_ID, T_ELEVES.NOMDELELEV, T_ELEVES.PRENOMDELE,T_FRAIS.FR_ID,T_COMMANDES.QTE,T_FRAIS.FR_LIBEL,T_ELEVES.ANNEE,T_ELEVES.CLASSE
HAVING T_COMMANDES.ACHETEUR_ID=Identifiant;

[jimbolion]

mmljg,

bonjour

Le message semble être assez explicite :

Le programme m'indique : "Le champ [R_CALCUL_DES_MONTANTS_MATRIC].[MATRICINFO] peut désigner plusieurs tables listées dans la clause FROM de votre instruction SQL".

Donc pour résoudre ton problème il est probable que dans le join ou le from de ta requête le champ MATRICINFO issu de la table R_CALCUL_DES_MONTANTS_MATRIC soit inscrit 2 fois. Tu peux utiliser un alias pour faire apparaître deux champs issus de la même table dans le résultat de ta requête.

Ce champ est donc inscrit dans ta table ou requête T_Commandes et ta table ou requête T_FRAIS.

Tu peux t'aider de l'assistant création Requête afin de corriger ton erreur (passe en mode SQL et modifie ton critère Identifiant par un ID présent dans ta table (ou requête) T_Commandes.

Autre piste n'aurais tu pas dans ta table T_FRAIS et T_Commandes le même nom de champ ?

JimBoLion

[mmljg]

Grand merci pour votre réponse et l'intérêt porté à mon problème.

Malheureusement, je ne pense pas qu'elle m'apporte la solution.

En effet, "MATRICINFO" est déjà un alias, que j'avais créé dans l'espoir précisément de contourner le problème : "Le champ ... peut désigner plusieurs tables listées dans la clause from de votre instruction SQL".

Quant aux tables T_COMMANDES et T_FRAIS, leurs noms de champs sont bien différents : ACHETEUR_ID et ARTICLE_ID pour T_COMMANDES, FR_ID, FR_LIBEL, FR_PU pour T_FRAIS.

Par contre, T_COMMANDES.ACHETEUR_ID et T_ELEVES.MATRICULEI désignent bien, sous deux appellations différentes, l'identifiant de chaque élève.

D'avance un grand merci si vous pouvez m'aider.

[jimbolion]

mmljg,


Que se passe t-il lorsque tu copie ta requête dans l'assistant création ?

Code :

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

1
2
3
4
SELECT T_COMMANDES.ACHETEUR_ID AS MATRICINFO,T_ELEVES.NOMDELELEV,T_ELEVES.PRENOMDELE,T_FRAIS.FR_ID,T_COMMANDES.QTE, T_FRAIS.FR_LIBEL, SUM (T_COMMANDES!QTE*T_FRAIS!PU) AS MONTANT
FROM T_FRAIS INNER JOIN (T_ELEVES INNER JOIN T_COMMANDES ON T_ELEVES.MATRICULEI=T_COMMANDES.ACHETEUR_ID) ON T_FRAIS.FR_ID=T_COMMANDES.ARTICLE_ID
GROUP BY T_COMMANDES.ACHETEUR_ID, T_ELEVES.NOMDELELEV, T_ELEVES.PRENOMDELE,T_FRAIS.FR_ID,T_COMMANDES.QTE,T_FRAIS.FR_LIBEL,T_ELEVES.ANNEE,T_ELEVES.CLASSE
HAVING T_COMMANDES.ACHETEUR_ID='1';

jimbolion

[mmljg]

Bonjour, et grand merci pour votre suivi.

J'ai reconstruit ma requête en mode création, et cette fois sans alias, sans problème; j'ai ouvert l'état directement (sans passer par la procédure en VBA), sans problème; mais en appliquant la procédure imaginée en VBA, j'ai à nouveau le même message.

Cela étant, l'état appelle une deuxième requête SQL, ainsi rédigée :

Code :

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

1
2
3
4
5
6
SELECT R_CALCUL_DES_MONTANTS_MATRIC.ACHETEUR_ID
,R_CALCUL_DES_MONTANTS_MATRIC.NOMDELELEV
,R_CALCUL_DES_MONTANTS_MATRIC.PRENOMDELE
,Sum (R_CALCUL_DES_MONTANTS_MATRIC.MONTANT) AS TOTA 
FROM R_CALCUL_DES_MONTANTS_MATRIC 
GROUP BY R_CALCUL_DES_MONTANTS_MATRIC;

Le problème viendrait-il du fait que deux requêtes nécessaires pour le même état appelle le même nom de champ ? Si oui, quelle est la parade ?

Encore un grand merci pour votre/ton aide.

[Tofalu]

La clause GROUP BY de votre dernière requête est fausse. Tous les champs de la clause SELECT qui ne figurent pas dans les fonctions d’agrégations doivent figurer dans la clause GROUP BY