Creating a Design Master : Database Replica « Access « VBA / Excel / Access / Word

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

Creating a Design Master

 
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 

 

Related examples in the same category