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

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