Propriété MailMergeDataSource.ActiveRecord (Publisher)

Article
04/07/2023

Cette propriété renvoie ou définit un type Long qui représente l'enregistrement de fusion et publipostage active. Lecture-écriture.

Syntaxe

expression. Activerecord

Expression Variable qui représente un objet MailMergeDataSource .

Valeur renvoyée

Entier long

Remarques

Le numéro de l’enregistrement actif indique la position de l’enregistrement dans le résultat de la requête produit par les options de la requête actuelle ; en tant que tel, ce numéro ne représente pas nécessairement la position de l’enregistrement dans la source de données.

Exemple

Cet exemple confirme que la valeur fournie dans le champ PostalCode fait dix caractères de long (code postal US plus 4 chiffres pour la localité). Si ce n'est pas le cas, il est exclu du publipostage et doté d'un commentaire.

Sub ValidateZip() 
 
 Dim intCount As Integer 
 
 On Error Resume Next 
 
 With ActiveDocument.MailMerge.DataSource 
 
 'Set the active record equal to the first included 
 'record in the data source 
 .ActiveRecord = 1 
 Do 
 intCount = intCount + 1 
 
 'Set the condition that the PostalCode field 
 'must be greater than or equal to ten digits 
 If Len(.DataFields.Item("PostalCode").Value) < 10 Then 
 
 'Exclude the record if the PostalCode field 
 'is less than ten digits 
 .Included = False 
 
 'Mark the record as containing an invalid address field 
 .InvalidAddress = True 
 
 'Specify the comment attached to the record explaining 
 'why the record was excluded from the mail merge 
 .InvalidComments = "The ZIP Code for this record is " _ 
 & "less than ten digits. It will be removed " _ 
 & "from the mail merge process." 
 
 End If 
 
 'Move the record to the next record in the data source 
 .ActiveRecord = .ActiveRecord + 1 
 
 'End the loop when the counter variable 
 'equals the number of records in the data source 
 Loop Until intCount = .RecordCount 
 End With 
 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via