tiwer
Поставь вызов функции на кнопку или сделай автоматически при запуске. Надо добавить проверку на старый файл с таким же именем. Если есть, то надо переименовывать старый файл. А еще лучше генерировать динамически новое имя файла по полной дате(дата и время) создания файла.
Код:
|
Function RepairDatabase(strSource As String, _
strDestination As String) As Boolean
' Input values: the paths and file names of
' the source and destination files.
' Trap for errors.
On Error GoTo error_handler
' Compact and repair the database. Use the return value of
' the CompactRepair method to determine if the file was
' successfully compacted.
RepairDatabase = _
Application.CompactRepair( _
LogFile:=True, _
SourceFile:=strSource, _
DestinationFile:=strDestination)
' Reset the error trap and exit the function.
On Error GoTo 0
Exit Function
' Return False if an error occurs.
error_handler:
RepairDatabase = False
End Function |
Добавлено:
Kat iynok
А в чем заморочка? Сколько бы не было кнопок, всегда вызывается одна и та же форма. А затем одна и та же функция, которая принимает 3 параметра(имя проверяемой формы, login name, pass) и возвращает true или false.
|
tiwer
А ты параметры передавал? Покажи чему равны strSource и strDestination.
Цитата:
|
не получается скопировать базу |
А что получается? Системные сообщения?
Код:
|
Set fs = CreateObject("Scripting.FileSystemObject")
if fs.FileExists("c:\testfile.txt") =True then
'do somthing
end if
filename = Replace(Date, "/", "_") & Space(1) & Replace(Time, ":", "-")
|
|
pavelac
Нечего тут гадать, мануал надо читать, он для этого предназначен
Вот у меня получилось как:
Цитата:
|
DoCmd.TransferDatabase acLink, "dBase 5.0", "D:\XXX", acTable, "yyy", "yyy"
|
Destination надо указывать.
|
