MyTetra Share
Делитесь знаниями!
Как в Access перместить запись из одной таблицы в другую (допустим по нажатию кнопки на форме)?
Время создания: 16.03.2019 23:43
Текстовые метки: Access, VBA access, спецификации
Раздел: !Закладки - VBA - Access - Спецификации

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 надо указывать.



Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования