Creating a Full Replica : Database Replica « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Database Replica

Creating a Full Replica

 
Sub Make_FullReplica(DesignMasterName As String, _ 
             NewRepName As String) 
    Dim repDesignMaster As New JRO.Replica 

    With repDesignMaster 
        .ActiveConnection = DesignMasterName 
        .CreateReplica CurrentProject.Path & "\" & NewRepName, _ 
            "Replica of " & DesignMasterName 
    End With 

End Sub 

 

Related examples in the same category