ЮраСкачас58ЮраСка,
1.
2.
3.
4.
5.
Akina
"Простейший механизм - это тупое копирование БД с изменением её имени, и последующей, если надо, чисткой "лишних" записей. Можно при определённых условиях даже клиентов не отключать..."
руками надоело это делать, поэтому хочется автоматизировать...
Зачем же руками???
Речь идёт про автоматическое архивирование.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Public Function FUN_V_ARHIV() ' Архивация "CLN_TBL.mdb" в папку ARHIV
Dim OTKUDA As String
Dim KUDA As String
Dim FILE_ARHIV_NAME As String
On Error GoTo FUN_V_ARHIV_Error
'-----------------------------------------------------------------------------
FILE_ARHIV_NAME = FUN_FILE_NAME_IN("Архив", "mdb")
OTKUDA = Nz(DLookup("ZNACHENIE", "TUNING_TBL", "ID = 'Папка_Таблиц'"))
OTKUDA = OTKUDA & "\" & "CLN_TBL.mdb"
KUDA = CurrentProject.Path & "\ARHIV\CLN_TBL_" & FILE_ARHIV_NAME
Set fso = New Scripting.FileSystemObject
fso.CopyFile OTKUDA, KUDA
Call MESS("Создан Архив данных.")
'-----------------------------------------------------------------------------
On Error GoTo 0
Exit Function
FUN_V_ARHIV_Error:
Call ZAPIS_V_TEXT_FILE(CurrentProject.Path & "\Ошибки программы.txt", "функция: FUN_V_ARHIV в модуле: ARHIV_MOD" & vbTab & Nz(Err.Description))
End Function
я так понимаю этим кодом мы создаем функцию...
а далее этими строками "WHERE [table].[datetime] >= DateSerial(Year(Date),Month(Date)-1,1)
AND [table].[datetime] < DateSerial(Year(Date),Month(Date),1)" создаем само тело запроса
Так ?
Этот код, если внимательно его просмотреть,
копирует файл из места его хранения
в папку хранения
вот так
1.
fso.CopyFile OTKUDA, KUDA
Новое имя файла =
Архивировать можно или запросом
или этой функцией.
Но, судя по вопросам, у вас так мало знаний, что не знаю что для вас лучше.
