Compartilhar via

Método Database.MakeReplica (DAO)

  • Artigo

Aplica-se ao: Access 2013, Office 2013

Cria uma nova réplica a partir de uma outra réplica do banco de dados (somente espaços de trabalho do Microsoft Access).

Sintaxe

expressão . MakeReplica(PathName, Description, Options)

expressão Uma variável que representa um objeto do Banco de dados.

Parâmetros

Nome

Necessária/opcional

Tipo de dados

Descrição

PathName

Obrigatório

String

O caminho e o nome de arquivo da nova réplica. Se réplica for um nome de arquivo existente, ocorrerá um erro.

Description

Obrigatório

String

A String que descreve a réplica que está sendo criada

Opções

Opcional

Variant

Uma constante ReplicaTypeEnum que especifica características do réplica que você está criando.

Comentários

Uma réplica parcial recém-criada terá todas as propriedades ReplicaFilter definidas como False, o que significa que nenhum dado estará nas tabelas.

Exemplo

Esta função usa o método MakeReplica para criar uma réplica adicional de um Design Mestre existente. O argumento intOptions pode ser uma combinação das constantes dbRepMakeReadOnly e dbRepMakePartial ou pode ser 0. Por exemplo, para criar um réplica parcial somente leitura, você deve passar o valor dbRepMakeReadOnly + dbRepMakePartial como o 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