PopulatePartial Method Example

The following example uses the PopulatePartial method after changing a replica filter.

Sub PopulatePartialX()

   Dim tdfCustomers As TableDef
   Dim strFilter As String
   Dim dbsTemp As Database

   ' Open the partial replica in exclusive mode.
   Set dbsTemp = OpenDatabase("F:\SALES\FY96CA.MDB", True)

   With dbsTemp
      Set tdfCustomers = .TableDefs("Customers")

      ' Synchronize with full replica
      ' before setting replica filter.
      .Synchronize "C:\SALES\FY96.MDB"

      strFilter = "Region = 'CA'"
      tdfCustomers.ReplicaFilter = strFilter

      ' Populate records from the full replica.
      .PopulatePartial "C:\SALES\FY96.MDB"

      .Close
   End With

End Sub