Discussion :

[C15nantes]

Bonjour à tous et à toutes,

J'ai une base qui gère une association.
Dans la convocation à l'Assemblée générale (publipostage Word basé sur une requête), l'on fait le point sur les cotisations des 5 dernières années.
Cette requête est "mise à jour" tous les ans via un formulaire qui déclenche la procédure suivante (proposée par un contributeur de ce site) :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande5_Click()
  If Me.txtNombreDepart > 0 Then
      Call Cotis_Dues(Me.txtNombreDepart)
      DoCmd.OpenQuery "R Cotis_Dues"
    Else
      MsgBox "Vous saisir une année de départ"
  End If
End Sub

et

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 Sub Cotis_Dues(NumDebut As Integer)
  Dim sSql As String
  Dim q As QueryDef
  sSql = "SELECT [T Adhérents].N°Adherent, [T Adhérents].Titre, [T Adhérents].Nom, [T Adhérents].Prenom, " _
          & " [T Adhérents].DateAdhesion, [T Adhérents].Adresse, [T Adhérents].CP, [T Adhérents].Ville, [T Adhérents].Pays, " _
          & "[Du" & Format(NumDebut, "00") & "]+[Du" & Format(NumDebut + 1, "00") & "]" _
          & "+[Du" & Format(NumDebut + 2, "00") & "]+[Du" & Format(NumDebut + 3, "00") & "]" _
          & "+[Du" & Format(NumDebut + 4, "00") & "]" _
          & " AS [Total dû], " _
               & "[T Adhérents].Du" & Format(NumDebut, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut + 1, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut + 2, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut + 3, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut + 4, "00") _
               & " FROM [T Adhérents] " _
          & " WHERE ((([T Adhérents].Adherent) = True)) ORDER BY [T Adhérents].Nom, [T Adhérents].Prenom;"
  Set q = CurrentDb.QueryDefs("R Cotis_Dues")
  q.SQL = sSql
 
End Sub

Ma requête comporte donc, entre autres, les champs Du12, Du13...Du16 pour cette année.

Est-il possible, dans la requête d'ajouter les champs "cotisation 2012", "cotisation 2013"..."cotisation 2016" en tant qu'intitulés afin que je puisse les insérer lors de mon publipostage ?
Il faudrait bien sur que cela soit dynamique pour les années à venir.

Ou faut-il essayer de gérer cela dans Word ?

Merci de votre aide.

A+

C15nantes

[Zekraoui_Jakani]

Bien sûr que l'on peut ajouter des champs dans une requête;

Questions:
Est-ce que "cotisation 2012" va remplacer le champs "Du12", par exemple ?
A quels champs correspondent les intitulés ?

Oui, on peut automatiser presque tout

Pour ta question sur Word, voir le bon forum ou bien via la fonction aide sur "publipostage" de Word

Il serait utile de poster ta DB avec des données fictives pour mieux cerner la demande.

[C15nantes]

Bonsoir,

Merci de ta réponse.

Pour etre plus précis

Ce que je voudrais, c'est ajouter dans ma requête les intitulés "cotisation 2012", "cotisation 2013"...en plus des champs Du12, Du13 de telle façon que dans mon publipostage j'ai
Cotisation 2012.....Du12
Cotisation 2013.....Du13
........
Cotisation 2016.....Du16

Cela me ferait donc 10 champs, issus de ma requête à insérer dans mon document Word

Pour t'aider, en PJ une base exemple dans laquelle le Formulaire1 génère la rCotidues qui m'intéresse.

Merci de ton aide.

C15

[Zekraoui_Jakani]

ok; je vais analyser la situation et chercher une solution.
Comment alimenter les nouveaux champs "Cotisation2012", cotisation2013, ...etc ? leur contenu ?

[C15nantes]

Bonsoir

Attention, c'est simplement l'intitulé qui m'intéresse ; si l'on peut dire, le contenu, c'est "Cotisation 2012"

Bonne soirée

C15

[Zekraoui_Jakani]

Bonjour, j'ai dédoublé certains objets pour ganger en efficacité.
Le formulaire qui répond à ta demande est "formulaire1Bis"

[C15nantes]

Bonjour,

Merci de cette réponse remarquable.

Par contre, en l'exploitant je me suis aperçu que j'avais fait une erreur de raisonnement et/ou que je m'étais mal exprimé.

En effet, dans mon publipostage, lorsque j'insère le champ "Cotisation 2013", j'insère la VALEUR pour chacun des adhérents, c'est à dire 0, alors que ce que je veux insérer, c'est le NOM de ce champ que je veux insérer dans la fiche de chaque adhérent, en l'occurrence "Cotisation 2013".
Et là, cela me parait nettement moins évident, voire impossible.

A ce moment là je me rabattrai sur l'insertion manuelle, comme actuellement, mais toujours sujette à erreur.

Merci de ton aide.
A+
C15

[Zekraoui_Jakani]

Est-ce tu veux quelque chose qui ressemble à ça ?

[C15nantes]

Bonjour
Effectivement cela répondrait parfaitement à ma question
Ce n'est pas très esthétique dans Acess mais le but final est mon publipostage et là c'est le top.
Merci encore
A+
C15Nantes

[Zekraoui_Jakani]

Et voici le résultat (à enregistrer sous un nom différent des précédents, par prudence):

[C15nantes]

Bonsoir,

Comme on dit à l'occasion de l'Euro, la balle est maintenant dans mon camp.

Merci encore de ton aide particulièrement efficace.

Affaire considérée comme résolue

C15nantes