Append Method Example (JRO)

Jet 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