VBA/Excel/Access/Word/Access/Database Replica
Creating a Design Master
<source lang="vb">
Sub Create_DesignMaster(dbName As String, strPath As String)
Dim repDesignMaster As New JRO.Replica Dim myFileSystemObject As Scripting.FileSystemObject Dim strDb As String Set myFileSystemObject = New FileSystemObject strDb = strPath & "DM_" & dbName If Not myFileSystemObject.FileExists(strDb) Then myFileSystemObject.CopyFile strPath & dbName, strDb Else Debug.Print "The " & strDb & " database file already exists." Exit Sub End If repDesignMaster.MakeReplicable strDb, True Set repDesignMaster = Nothing Set myFileSystemObject = Nothing
End Sub
</source>
Creating a Full Replica
<source lang="vb">
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
</source>