Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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