Database.MakeReplica-Methode (DAO)

Gilt für: Access 2013, Office 2013

Macht aus einem Datenbankreplikat ein neues Replikat (gilt nur für Microsoft Access-Arbeitsbereiche).

Syntax

Ausdruck . MakeReplica(PathName, Description, Options)

Ausdruck Eine Variable, die ein Database -Objekt darstellt.

Parameter

Name	Erforderlich/optional	Datentyp	Beschreibung
PathName	Erforderlich	String	Der Pfad- und Dateiname des neuen Replikats. Wenn replica ein vorhandener Dateiname ist, tritt ein Fehler auf.
Description	Erforderlich	String	Ein String-Wert, der das Replikat beschreibt, das Sie erstellen.
Optionen	Optional	Variant	Eine ReplicaTypeEnum-Konstante , die Merkmale des Replikats angibt, das Sie erstellen.

Hinweise

Für ein neu erstelltes Teilreplikat werden sämtliche ReplicaFilter -Eigenschaften auf False festgelegt, was bedeutet, dass die Tabelle keine Daten enthält.

Beispiel

This function uses the MakeReplica method to create an additional replica of an existing Design Master. Das intOptions-Argument kann eine Kombination aus den Konstanten dbRepMakeReadOnly und dbRepMakePartial oder 0 sein. Um beispielsweise ein schreibgeschütztes Teilreplikat zu erstellen, sollten Sie den Wert dbRepMakeReadOnly + dbRepMakePartial als Wert von intOptions übergeben.

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