ник: Коровка
И снова здравствуйте!!!
Посмотрите пожалуйста, что я могла сделать неправильно:
Код написала такой:
Call SynchronizeDBs("D:\Юля\работа\db2.mdb", "F:\Реплика для db2.mdb", 3)
Sub SynchronizeDBs(strDBName As String, strSyncTargetDB As String, intSync As Integer)
Dim dbs As Database
Set dbs = DBEngine(0).OpenDatabase(strDBName)
Select Case intSync
Case 1 ' Синхронизация реплик (двухсторонний обмен)
dbs.Synchronize strSyncTargetDB, dbRepImpExpChanges
Case 2 ' Синхронизация реплик (экспорт изменений)
dbs.Synchronize strSyncTargetDB, dbRepExportChanges
Case 3 ' Синхронизация реплик (импорт изменений)
dbs.Synchronize strSyncTargetDB, dbRepImportChanges
End Select
dbs.Close
End Sub
Вместо адрес 1 написан адрес основной реплики на диске, вместо адрес 2 - адрес реплики. находящейся на флешке. При компиляции (по нажатию в меню Debug >Compile выдает ошибку Compile error: Invalid outside procedur, и выделяет темным первый адрес, указанный в скобках Call SynchronizeDBs("адрес 1", "адрес 2", 3).
Подскажите пожалуйста, где я могла ошибиться. Этот кусок программы скопировала с сайта, от себя дописала, пожалуй, только адреса.
Единственная мысль на счет того, откуда может появиться ошибка: я написала этот кусок кода как отдельный модуль. Может нужно куда-то вызов это процедуры написать в другое место. например привязать к какому-то событию или какой-то кнопке?