ODSOFilter.Conjunction, propriété (Office)

Obtient ou définit une constante MsoFilterConjunction qui représente la façon dont un critère de filtre est lié à d’autres critères de filtre dans l’objet ODSOFilters . Lecture-écriture.

Syntaxe

expression. Conjonction

expression Variable qui représente un objet ODSOFilter .

Exemple

L’exemple suivant modifie un filtre existant pour supprimer de la fusion et publipostage tous les enregistrements qui n’ont pas de champ Région égal à « WA ».

Sub SetQueryCriterion() 
 Dim appOffice As Office.OfficeDataSourceObject 
 Dim intItem As Integer 
 
 Set appOffice = Application.OfficeDataSourceObject 
 appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _ 
 "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees" 
 
 With appOffice.Filters 
 For intItem = 1 To .Count 
 With .Item(intItem) 
 If .Column = "Region" Then 
 .Comparison = msoFilterComparisonNotEqual 
 .CompareTo = "WA" 
 If .Conjunction = "Or" Then .Conjunction = "And" 
 End If 
 End With 
 Next intItem 
 End With 
End Sub

Voir aussi

• Membres de l’objet ODSOFilter

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.