Database.MakeReplica, méthode (DAO)

S’applique à : Access 2013, Office 2013

Crée un nouveau réplica à partir d’un autre réplica de base de données (espaces de travail Microsoft Access uniquement).

Syntaxe

expression . MakeReplica(PathName, Description, Options)

expression Variable qui représente un objet Database.

Paramètres

Nom	Obligatoire/facultatif	Type de données	Description
PathName	Obligatoire	String	Chemin d'accès et nom de fichier du nouveau réplica. Si l'argument réplica correspond à un nom de fichier existant, une erreur se produit.
Description	Obligatoire	String	Valeur de type String décrivant le réplica que vous créez.
Options	Facultatif	Variant	Constante ReplicaTypeEnum qui spécifie les caractéristiques du réplica que vous créez.

Remarques

Les propriétés ReplicaFilter d'un réplica nouvellement créé sont toutes affectées de la valeur False, ce qui signifie que les tables ne comporteront pas de données.

Exemple

Cette fonction s'appuie sur la méthode MakeReplica pour créer un réplica supplémentaire d'un réplica-maître existant. L’argument intOptions peut être une combinaison des constantes dbRepMakeReadOnly et dbRepMakePartial, ou être 0. Par exemple, pour créer une réplica partielle en lecture seule, vous devez passer la valeur dbRepMakeReadOnly + dbRepMakePartial comme valeur 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