Поделиться через

Метод Database.MakeReplica (DAO)

  • Статья

Область применения: Access 2013, Office 2013

Создает новый реплика из другой реплика базы данных (только для рабочих областей Microsoft Access).

Синтаксис

expression . MakeReplica(PathName, Description, Options)

выражение: переменная, представляющая объект Database.

Параметры

Имя

Обязательный/необязательный

Тип данных

Описание

PathName

Обязательный

String

Путь и имя файла новой реплика. Если реплика является существующим именем файла, возникает ошибка.

Description

Обязательный

String

Строка, описывающая создаваемые реплика.

Options

Необязательно

Variant

Константу ReplicaTypeEnum, указывающую характеристики создаваемого реплика.

Замечания

Для только что созданного частичного реплика все свойства ReplicaFilter будут иметь значение False, что означает, что данные в таблицах не будут содержаться.

Пример

Эта функция использует метод MakeReplica для создания дополнительного реплика существующего образца конструктора. Аргумент intOptions может быть сочетанием констант dbRepMakeReadOnly и dbRepMakePartial или иметь значение 0. Например, чтобы создать частичную реплика только для чтения, необходимо передать значение dbRepMakeReadOnly + dbRepMakePartial в качестве значения 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