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

базаДанных.MakeReplica реплика, описание, параметры

Параметры
базаДанных
Объектная переменная, представляющая существующий объект Database, который является репликой базы данных.
реплика
Выражение или переменная типа String, задающая путь и имя файла новой реплики. Если файл с именем реплика уже существует, возникает ошибка.
описание
Выражение или переменная типа String, содержащая описание создаваемой реплики.
параметры
Необязательный. Константа или комбинация констант, задающая характеристики создаваемой реплики, как описано в разделе "Значения".

• dbRepMakePartial - Создание частичной реплики
• dbRepMakeReadOnly - Запрет изменения пользователями реплицируемых объектов в новой реплике; однако, при синхронизации новой реплики с другой репликой из набора реплик изменения структуры и данных будут распространены на новую реплику.

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

Пример
Следующая функция использует метод MakeReplica для создания дополнительной реплики существующей основной реплики. Аргумент intOptions может быть комбинацией констант dbRepMakeReadOnly и dbRepMakePartial или иметь значение 0. Например, для создания доступной только для чтения частичной реплики следует передать в качестве значения intOptions сумму констант dbRepMakeReadOnly + dbRepMakePartial.

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)
	' Если в функцию MakeAdditionalReplica параметры
	' не передаются, аргумент можно опустить. По 
	' умолчанию будет создана полная реплика, доступная 
	' для чтения/записи. В противном случае необходимо
	' задать значение intOptions.

	If intOptions = 0 Then
		dbsTemp.MakeReplica strNewReplica, "Реплика для " & strReplicableDB
	Else
		dbsTemp.MakeReplica strNewReplica, "Реплика для " & strReplicableDB, intOptions
	End If

	dbsTemp.Close

ErrorHandler: 
	Select Case Err
		Case 0: 
			MakeAdditionalReplica = 0
			Exit Function
		Case Else:

			MsgBox "Ошибка " & Err & " : " & Error
			MakeAdditionalReplica = Err
			Exit Function

	End Select
End Function