Compartir a través de

Método Database.MakeReplica (DAO)

Se aplica a: Access 2013, Office 2013

Crea una nueva réplica a partir de otra réplica de base de datos (sólo en áreas de trabajo de Microsoft Access).

Sintaxis

expresión . MakeReplica(PathName, Description, Options)

expression Variable que representa un objeto Database.

Parameters

Nombre

Obligatorio/opcional

Tipo de datos

Descripción

PathName

Obligatorio

String

Ruta de acceso y nombre de archivo de la nueva réplica. Si la réplica es un nombre de archivo existente, se produce un error.

Descripción

Obligatorio

String

String que describe la réplica que se va a crear

Opciones

Opcional

Variant

Constante ReplicaTypeEnum que especifica las características de la réplica que se va a crear.

Comentarios

Una réplica parcial recién creada tendrá todas las propiedades ReplicaFilter establecidas en False, lo que indica que no habrá datos en las tablas.

Ejemplo

Esta función utiliza el método MakeReplica para crear una réplica adicional de un diseño principal existente. El argumento intOptions puede ser una combinación de las constantes dbRepMakeReadOnly y dbRepMakePartial, o bien puede ser 0. Por ejemplo, para crear una réplica parcial de solo lectura, debe pasar el valor dbRepMakeReadOnly + dbRepMakePartial como el valor de 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
  • Last updated on