Discussion :

[C15nantes]

Bonjour à tous te à toutes,

Grâce à certains d'entre vous je créé une requête avec le code suivant :

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_DuesAG(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, IIf(Mid([T Adhérents].CP,3,1)='-', Mid([T Adhérents].CP , InStr([T Adhérents].CP,'-')+1), [T Adhérents].CP) AS CP1, [T Adhérents].Ville, [T Adhérents].Pays, " _
          & "[Du" & Format(NumDebut - 4, "00") & "]+[Du" & Format(NumDebut - 3, "00") & "]" _
          & "+[Du" & Format(NumDebut - 2, "00") & "]+[Du" & Format(NumDebut - 1, "00") & "]" _
          & "+[Du" & Format(NumDebut + 0, "00") & "]" _
          & " AS [Total dû], " _
               & "[T Adhérents].Du" & Format(NumDebut - 4, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 3, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 2, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 1, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut + 0, "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_DuesAG")
  q.SQL = sSql
 
End Sub

Si numDebut, généré par une valeur saisi dans un formulaire est par exemple 16 (pour 2016), mes dernières colonnes affichent Du12, Du13...Du16 grâce au code

Code :

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

1
2
3
4
5
    & "[T Adhérents].Du" & Format(NumDebut - 4, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 3, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 2, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 1, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut + 0, "00") _

Pour rendre un publipostage basé sur cette requête encore plus dynamique, j'aurais voulu avoir plutôt AA-4, AA-3...AA
Comment modifier ce code ?
J'ai fait différents essais, mais je me permets dans les " [] , voire '

Merci de votre aide.
C15

[marot_r]

Bonjour.

Désolé mais je ne comprend pas ce que tu veux faire.

Peux-tu mettre un exemple des nouveaux noms que tu veux obtenir ?

A+

[tee_grandbois]

Bonjour,
sans avoir testé, ceci peut-être ?

Code :

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

1
2
3
4
5
               & "[T Adhérents].Du" & Format(NumDebut - 4, "00") & " as AA-4," _
               & "[T Adhérents].Du" & Format(NumDebut - 3, "00") & " as AA-3," _
               & "[T Adhérents].Du" & Format(NumDebut - 2, "00") & " as AA-2," _
               & "[T Adhérents].Du" & Format(NumDebut - 1, "00") & " as AA-1," _
               & "[T Adhérents].Du" & Format(NumDebut + 0, "00") & " as AA"_

[C15nantes]

Bonjour,

Désolé mais je n'avais pas vu vos réponses.

Entre temps, à force de chercher, j'ai trouvé

Code :

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

1
2
& "[T Adhérents].Du" & Format(NumDebut, "00") _
               & " AS [AA-4], " _

En fait je voulais que dans mon publipostage j'ai les champs AA-4, AA-3...AA dont les noms ne changent pas d'une année sur l'autre (donc pas de mise à jour quand j'ouvre mon document Word).
Le problème c'est que dans ma requête, j'ai effectivement bien mes champs AA-4, AA-3...
mais alors je ne vois pas à quelles années cela correspond
L’idéal serait d'avoir AA-4 : Du12, AA-3u13

A défaut, je garderai ce que j'ai actuellement car c'est plus clair et sur de bien vérifier les champs Du13, Du14... correspondant à des cotisations dues.
Le document Word est émis une fois par an, et s'il n'y a que 5 champs à modifier c'est pas la mort.

Merci

C15