Discussion :

[C15nantes]

Bonjour à tous et à toutes,

J'ai une requête dans laquelle j'ai des champs Du12 Du 13...Du16 qui m'affichent les cotisations dues des 5 dernières années.
Cette requête est recréée tous les ans grâce à un formulaire qui me déclenche la procédure suivante, tous les 2 proposés par l'un d'entre vous (l'année prochaine j'aurai par exemple Du13, Du14...Du17)

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

Dans mon publipostage j'insère les champs Du12, Du 13...Du16 en allant les chercher dans la requête.

Comment pourrai-je faire pour que l'année prochaine, j'ai automatiquement, dans mon document Word Du13,Du14...du17.
Je vois une solution, mais je ne sais comment la mettre en oeuvre, c'est que ma requête ait des champs DuN, DuN+1, DuN+2...dont le nom ne change pas (ce qui est simple alors pour le publipostage), mais dont la valeur change d'une année sur l'autre.
DuN = DuNumDebut, DuN+1=DuNumDebut+1...

Merci de votre aide

A+

C15

[marot_r]

Bonjour.

Je pense que :

Code :

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

1
2
3
4
5
6
7
8
9
  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, " _
          & "[Du00]+[Du01]+[Du02]+[Du03]+[Du04] AS [Total dû], " _
               & "[T Adhérents].Du" & Format(NumDebut, "00") & " as [Du00]," _
               & "[T Adhérents].Du" & Format(NumDebut + 1, "00") & " as [Du01]," _
               & "[T Adhérents].Du" & Format(NumDebut + 2, "00") & " as [Du02]," _
               & "[T Adhérents].Du" & Format(NumDebut + 3, "00") & " as [Du03],"
               & "[T Adhérents].Du" & Format(NumDebut + 4, "00") & " as [Du04]"
               & " FROM [T Adhérents] " _

Devrait résoudre ton problème.

Ceci dit, je suggère que tu révises ta structure, car créer un champ par année va impliquer de modifier ton application chaque année.

Personnellement je ferai une structure du type :

tblPersonne
ClefPersonne
Info Personne

tblCotisation
ClefCotisation
ClefPersonne
Annee
Info cotisation

En relation par ClefPersonne.

Cela te permet d'avoir autant d'année de cotisation sans avoir à faire de changement chaque année et répondre facilement à des questions comme :

1. Combien de personnes ont cotisé dans l'année X, Y et Z.
2. Qui n'a pas cotisé cette année ?

A+

[C15nantes]

Bonjour clément
Desolé mais j'avais zappé ta réponse
Je la mets en application dès demain
Tu n'es hélas pas le premier à me suggérer de restructurer ma base ; j'en suis parfaitement conscient.
L'année dernière, j'avais presque réussi mais je suis tombé sur un os du au fait que je suis parti d'un existant mal ficelé, voire pas du tout, et que j'ai à intégrer des données de plus de 1200 adhérents, les plus vieilles datant de 1983.
Je vais essayer de m'y recoler cet automne.
Merci de ton aide.
Bonsoir
C15

[marot_r]

je suis parti d'un existant mal ficelé

Note qu'il s'agit bien d'une suggestion et que des fois il est plus simple de vivre avec l'existant.

Tu peux aussi automatiser l'ajout. Une fois les éléments concernés identifiés, on peut généralement faire cela par code.
Ce n'est à priori qu'un nouveau champ donc rien de dramatique.

Une autre possibilité est de prendre des mesures préventives comme par exemple créer d'un seul coup les champs pour les 20 ou 30 ans à venir.
Une fois cela fait, il y a peut de chance que tu ais besoin d'y revenir :-).

A+