Bonjour,
Une requête n'est pas visible dans les sources de données répertoriées par Word dans Access pour mettre en place un publipostage.
Toutes les librairies sont référencées.
Un coup de pouce SVP...
+
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 SELECT rqtDirGlgSegCo.ua_num, rqtDirGlgSegCo.segpa_num, rqtDirGlgSegCo.ti_libellé, rqtDirGlgSegCo.di_nom, rqtDirGlgSegCo.fo_libelle, rqtDirGlgSegCo.ti_libelle_segpa, rqtDirGlgSegCo.di_nom_segpa, rqtDirGlgSegCo.fo_libelle_segpa, rqtDirGlgSegCo.fo_libelle_2_segpa, rqtDirGlgSegCo.ua_adresse, rqtDirGlgSegCo.ua_cedex, rqtDirGlgSegCo.co_cp, rqtDirGlgSegCo.co_libelle, tblEleves.num_eleve, tblCommissions.com_date, tblCommissions.com_heure, rqtDirGlgSegCo.ua_libelle, rqtDirGlgSegCo.segpa_libelle, rqtConcatenationElEts.Eleves FROM (tblEleves INNER JOIN tblCommissions ON tblEleves.num_eleve=tblCommissions.num_eleve) INNER JOIN ((rqtDirGlgSegCo INNER JOIN tblDossiers ON rqtDirGlgSegCo.ua_num=tblDossiers.ua_origine) INNER JOIN rqtConcatenationElEts ON rqtDirGlgSegCo.ua_num=rqtConcatenationElEts.ua_num) ON tblEleves.num_eleve=tblDossiers.num_eleve WHERE tblEleves.num_eleve=7;
Fonction source de la rqt précédente :
Merci pour votre attention
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 Public Function RecupElevesEtOri(ua_num As String) As String On Error Resume Next Dim R As DAO.Recordset Dim SQL As String 'Selectionne les élèves du projet SQL = "SELECT [rqtDirComEl].[el_nom], [rqtDirComEl].[el_prenom], [rqtDirComEl].[el_ddn] FROM [rqtDirComEl] WHERE ua_num=" & ua_num Set R = CurrentDb.OpenRecordset(SQL) 'Concatène les différents enregistrements While Not R.EOF RecupElevesEtOri = RecupElevesEtOri & R.Fields(0).Value & " " & R.Fields(1).Value & " né(e) le : " & R.Fields(2).Value & " " & Chr(13) R.MoveNext Wend 'Renvoie en majuscule RecupElèves RecupElevesEtOri = UCase(RecupElevesEtOri) 'Enlève le dernier espace RecupElevesEtOri = Left(RecupElevesEtOri, Len(RecupElevesEtOri) - 1) 'libère la mémoire Set R = Nothing End Function
S. E.
Partager