2.2 Поминутное автоматическое резервирование Базы данных Access

Как сделать автоматическое регулярное резервное копирование Базы данных средствами Access? Например, раз в минуту, раз в пять минут, раз в час? Резервные копии должны быть поименованы датой и временем создания. Будем сохранять основной файл БД - файл с таблицами. Первый модуль сохраняем под именем DateBack(Date) Public Function DateBack(dt As Date) As String Dim d, m, y As String d = Day(dt) ’День месяца m = Month(dt) ’Месяц y = Year(dt) ’Год If Len(d) = 1 Then d = “0“ & d If Len(m) = 1 Then m = “0“ & m DateBack = y & “-“ & m & “-“ & d End Function Второй модуль сохраняем под именем TimeBack(Tm As Date) Public Function TimeBack(Tm As Date) As String Dim CurrentTime As String ’Задана текстовая переменная CurrentTime = Trim$(Str(Time())) ’Присвоено текущее время системы If Len(CurrentTime) = 7 Then CurrentTime = “0“ & CurrentTime TimeBack = Mid$(Curr