ник: Palarm
Скачал фунуцию, которая вроде как должна программно делать реплику.
Function TwoWayDirectSync(strReplica1 As String, strReplica2 As String)
On Error GoTo Err_
Dim repReplica As New JRO.Replica
repReplica.ActiveConnection = "Data Source=" & strReplica1 & ";Mode=Share Exclusive"
repReplica.Synchronize strReplica2, jrSyncTypeImpExp, jrSyncModeDirect
Set repReplica = Nothing
MsgBox "Синхронизация успешно завершена!", vbInformation, "Администратор"
Exit_:
Exit Function
Err_:
MsgBox Err.Description
Err.Clear
Resume Exit_
End Function
Запускаю ее так:
Private Sub КнСинхр_Click()
Dim rstTempPath As Recordset
Set rstTempPath = CurrentDb.OpenRecordset("АдминКоп")
Call TwoWayDirectSync(rstTempPath!ПутьРеплики, Me.ПутьБазы)
rstTempPath.Close
End Sub
А оно мне пишет:
«Отсутствуют права на использование объекта D:ДвериРепликаРСервер двери.mdb. Необходимые разрешения должны быть предоставлены системным администратором или пользователем создавшим объект».
PСервер двери.mdb - это реплика, сделанная из Сервер двери.mdb.
То есть похоже на то, как если бы база была защищена через mdw. Но ведь этого нет. Что неправильно я делаю?