ReplicaID Property Example

This example makes a replica from the Design Master of Northwind.mdb, and then returns the replica's ReplicaID, which is automatically created by the Microsoft Jet database engine. (If you have not yet created a Design Master of Northwind, refer to the Replicable property, or change the name of the database in the code to an existing Design Master.)

Sub MakeReplicaReplicaIDX()

    Dim dbsNorthwind As Database
    Dim prpReplicaID As Property
    Dim dbsReplica As Database

    Set dbsNorthwind = OpenDatabase("Northwind.mdb")

    ' Makes a new replica.
    dbsNorthwind.MakeReplica "Nwreplica2.mdb", _
        "second replica"
    dbsNorthwind.Close

    ' Opens the new replica to read its ReplicaID.
    Set dbsReplica = OpenDatabase("Nwreplica2.mdb")

    Debug.Print dbsReplica.ReplicaID
    dbsReplica.Close

End Sub