Discussion :

[greg778]

Bonjour,

J'ai une table acces, un fichier word, je fais un publipostage dans word et affiche sans problème les différents champs voulus...

Dans mon document word, j'ai placé une case à cocher, pour laquelle je voudrais mettre comme "caption" le nom d'un des champs.

J'ai essayé

Code :

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

1
2
3
Private Sub Document_Open()
CheckBoxAffiliation.Caption = ActiveDocument.MailMerge.DataSource.DataFields("NA").Value
End Sub

Mais le "caption" prend la valeur du 1er enregistrement chargé et lorsque je parcours mon document, avan la fusion, le caption ne change pas...

Soit je dois remettre ce code dans un autre événement, mais je ne trouve pas l'événement qui est appelé lorsqu'on passe à un autre enregistrement dans le document principal de fusion...
Soit c'est plus compliqué encore, mais pas d'autres pistes...


Le but final serait de vérifier la valeur du champ "NA", si c'est <1000 on met "AFFILIATION" dans le caption, sinon on met "DÉSAFFILIATION"...

merci pour vos idées,
Greg

[Heureux-oli]

Malheureusement, je ne pense pas que ça va fonctionner avec MailMerge.

Il faut utiliser un champ de fusion et publipostage.

[greg778]

Hello,

j'ai pu le faire en plaçant un bouton de "navigation" sur ma page...
j'ai juste tester pour passer à l'enregistrement suivant :

Code :

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

1
2
3
4
5
6
    ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
    If ActiveDocument.MailMerge.DataSource.DataFields("NA").Value < 1000 Then
     ActiveDocument.CheckBoxAffiliation.Caption = "   AFFILIATION"
    Else
     ActiveDocument.CheckBoxAffiliation.Caption = "   DÉSAFFILIATION"
    End If

A part en rajoutant des boutons sur ma page, je ne vois pas trop comment le faire... pas d'évènement "wdNextRecord" ou un truc du genre...

Il faut utiliser un champ de fusion et publipostage.

je ne vais pas créer un champ uniquement pour ça...
pour le faire dans le texte directement, pas de problème, je mets

Code :

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

{ IF NA < 1000 "" "dés" }

et ça fonctionne très bien, mais pas possible de mettre ce code dans un caption...