Database.MakeReplica 方法 (DAO)

适用于：Access 2013、Office 2013

根据另一个数据库副本制作一个新的副本（仅适用于 Microsoft Access 工作区）。

语法

表达式 。MakeReplica (PathName、 Description、 Options)

表达式 一个表示 Database 对象的变量。

参数

名称	必需/可选	数据类型	说明
PathName	必需	字符串	新副本的路径和文件名。 如果 replica 是一个现有的文件名，则会发生错误。
Description	必需	字符串	一个 String，用于描述所创建的副本
选项	可选	Variant	ReplicaTypeEnum 常量，用于指定要创建的副本 (replica) 的特征。

备注

新建部分副本的所有 ReplicaFilter 属性都将设置为 False，表示不会将任何数据放入表中。

示例

此函数使用 MakeReplica 方法创建现有设计母版的附加副本。 intOptions 参数可以是常量 dbRepMakeReadOnly 和 dbRepMakePartial 的组合，也可以是 0。 例如，若要创建只读部分副本 (replica) ，应将值 dbRepMakeReadOnly + dbRepMakePartial 作为 intOptions 的值传递。

Function MakeAdditionalReplica(strReplicableDB As _ 
 String, strNewReplica As String, intOptions As _ 
 Integer) As Integer 
 
 Dim dbsTemp As Database 
 On Error GoTo ErrorHandler 
 
 Set dbsTemp = OpenDatabase(strReplicableDB) 
 
 ' If no options are passed to 
 ' MakeAdditionalReplica, omit the 
 ' options argument, which defaults to 
 ' a full, read/write replica. Otherwise, 
 ' use the value of intOptions. 
 
 If intOptions = 0 Then 
 dbsTemp.MakeReplica strNewReplica, _ 
 "Replica of " & strReplicableDB 
 Else 
 dbsTemp.MakeReplica strNewReplica, _ 
 "Replica of " & strReplicableDB, _ 
 intOptions 
 End If 
 
 dbsTemp.Close 
 
ErrorHandler: 
 Select Case Err 
 Case 0: 
 MakeAdditionalReplica = 0 
 Exit Function 
 Case Else: 
 MsgBox "Error " & Err & " : " & Error 
 MakeAdditionalReplica = Err 
 Exit Function 
 End Select 
 
End Function