10.2 Создать клиентский файл в один клик

В данном видео рассмотрим, как сделать создать в один клик индивидуальный клиентский файл, в именной папке. Алгоритм предусматривает создание именной папки клиента, в которой содержится откомпилированный файл клиента. Код на событие текущей записи формы «Создать клиента»: Private Sub Form_Current() 'на событии текущей записи проверяется, заполнены ли поля "Новая роль" и "Файл источник", 'в положительном случае становится видимой кнопка24 (запуск процесса создания клиента) If Not IsNull(Me.НоваяРоль) And Not IsNull(Me.ФайлИсточник) Then Me.Кнопка24.Visible = True Else Me.Кнопка24.Visible = False End If End Sub Этот код вставляем на событие нажатия кнопки Создать клиента: Private Sub Кнопка24_Click() 'При нажатии кнопки сначала отключаются сообщения и запускаются запросы DoCmd.SetWarnings False DoCmd.OpenQuery "Назначить в кадры2" DoCmd.RunCommand acCmdRefresh DoCmd.OpenQuery "Назначить в файл2" 'Экспорт из файла Администратора в файл-источник (в папке ACCDE) таблицы "Назначить идентификатор" с данными нового клиента DoCmd.TransferDatabase acExport, "Microsoft Access", "E:\ACCDE\" & [ФайлИсточник] & ".accde", acTable, "Назначить идентификатор", "Назначить идентификатор" 'удаление старой папки со старым клиентским файлом - при наличии Set fso = CreateObject("Scripting.FileSystemObject") 'если этой папки нет, возникнет ошибка, поэтому при её возникновении переходим к метке On Error GoTo ttDIR: Set Folder = fso.GetFolder("E:\Сервер\БД КБ\03_Клиентские файлы\" & [Персональная папка] & "") Folder.Delete 'удаляем папку клиента с её содержимым ttDIR: 'создать новую именную папку MkDir "E:\Сервер\БД КБ\03_Клиентские файлы\" & [Персональная папка] & "" 'копирование типового файла и создание его копии в именной папке с типовым именем и текущей датой Dim fsACCDE As Object Set fsACCDE = CreateObject("Scripting.FileSystemObject") fsACCDE.CopyFile Me.Откуда, Me.Куда Set fsACCDE = Nothing 'по окончании процесса открываем клиентскую папку для просмотра результата Application.FollowHyperlink Forms![Создать клиента]![ПФ_Адрес].[Form]![Клиенты] & "\" & [Персональная папка] End Sub