Microsoft Jet and Replication Objects

Append Method Example

This example demonstrates how to append a new filter to a table.

Public Sub AppendFilter()

   Dim flt As JRO.Filter
   Dim rep As New JRO.Replica

   ' Connect to an existing partial replica.
   rep.ActiveConnection = "C:\Program Files\" & _
      "Microsoft Office\Office\Samples\Partial of Northwind.mdb"

   ' Append a partial filter to a table.
   rep.Filters.Append "Customers", jrFilterTypeTable, "Region='CA'"
   Set flt = rep.Filters.Item(1)

   ' Print the information.
   Debug.Print flt.FilterCriteria
   Debug.Print flt.FilterType
   Debug.Print flt.TableName

End Sub