Автоматическое обновление клиентской части

@dratxara · 10.11.2015, 08:53. **Показов** 5823. **Ответов** 42

Студворк — интернет-сервис помощи студентам

пожалуйста подскажите как сделать автоматическое обновление клиентской части....

когда стартует клиентская часть есть изменение формах или в ачивках....
происходило обновление клиентской части.

@Виктор Михалыч · 10.11.2015, 08:56

Что вы имеете ввиду? Подчиненные формы и поля на форме? На событие таймеры сделайде DoCmd.Requery? Так не подойдет?

@dratxara · 10.11.2015, 08:58 **[ТС]**

когда стартует клиентская часть если есть изменение формах или в отчетax и так далее... происходило обновление клиентской части.

@Виктор Михалыч · 10.11.2015, 09:01

Формы и отчеты получают данные из Запросов или таблиц, если там что то меняется, то при открытии Access сам обновляет формы и отчеты! Не понятна задача!

@dratxara · 10.11.2015, 09:02 **[ТС]**

есть локальный сервер...

сервер и 10 клиентской стороны

когда в программе меняется что нибудь, чтобы не бегать для замены клиентской части по каждому нужна сделать автоматическое обновление клиентской части....

@Виктор Михалыч · 10.11.2015, 09:08

Теперь понял.

Добавлено через 2 минуты
Для этого нужно использовать файл сторонний, например Excel, который будет запускаться с клиентской части. При запуске файла, активная клиентская часть должна закрыться и макрос в запущеном файле Excel сделает копию файла в вашу директорию. Как то так я вижу это.

Добавлено через 3 минуты
Можно попробовать так FileCopy "Исходный Путь", "Путь Назначения", но при этом основная клиентская часть должна быть закрыта!

@dratxara · 10.11.2015, 09:09 **[ТС]**

эта теория =)) можна практический пример

@Виктор Михалыч · 10.11.2015, 09:13

Вы ждете готовое решение?

@dratxara · 10.11.2015, 09:14 **[ТС]**

готовые примеры ...=)) нельзя что ли?

@Виктор Михалыч · 10.11.2015, 09:21

Этим вы запустите файл из той директории где находится ваша база

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub открыть()
Dim PathDb, PathDb1, PathDb2 As String
PathDb = CurrentDb.Name
PathDb1 = Left(PathDb, Len(PathDb) - 27) ' 27-кол-во знаков в названии вашего файла со слешем с учетом расширения файла(ваше значение будет)
PathDb2 = PathDb1 & "Запуск.xlsm" 'Ваш файл с макросом
Dim XL, XLS As Object
    Set XL = CreateObject("Excel.Application")
        XL.Visible = True
    Set XLS = XL.Workbooks.Open(PathDb2)
    Set XL = Nothing
    Set XLS = Nothing
'Application.Quit
End Sub

@dratxara · 10.11.2015, 09:33 **[ТС]**

спасибо но можно реальный пример.......

прикрепил два файла сервер и клиент
они соединены с друг другом как и должны быть

после соединения на файл сервер в форме добавлена кнопка...

вот как надо сделать так чтоб при старте клиент обновилась форма у клиента и появилось кнопка...

допустим оба файла лежат на диск c на рабочем сталью

@Виктор Михалыч · 10.11.2015, 09:38

Вот вам пример. Создайте копию этого файла и переименуйте, поместите его в одну папку, потом копию этого файла поместите в другую директорию и переименуйте, затем откройте этот файл, пропишите путь к файлам в событии кнопки FileCopy "Исходный Путь", "Путь Назначения", Измените данные или форму в файле источника, закройте файл источника, нажмите кнопку. Не возможно обновить файл, если он открыт, это можно сделать только сторонним файлом, а на событие выгрузки формы, ил закрытие ее пропишите открытие измененного файла.

@Виктор Михалыч · 10.11.2015, 09:39

Ой забыл вложить

@dratxara · 10.11.2015, 09:46 **[ТС]**

Не работае...............!

Добавлено через 21 секунду
Не работает

@Виктор Михалыч · 10.11.2015, 10:04

Имя файла источника и имя файла который нужно заменить, должны быть одинаковые! У меня все работает!

Добавлено через 12 минут
Ищите тогда другие варианты.Удачи.

mobile · 10.11.2015, 11:29

Можно запускать программу из ярлыка, где будет стартовать не БД, а скрипт vbs. В скрипте прописать проверку существования файла обновления. Если такой есть, то старый удалить или переименовать, а новый записать на его место и запустить.
Код файла VBS в предположении, что файл находится на сервере:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
serverFile="\\ИмяСервера\Путь\ФайлОбновления.mdb" 'Файл Обновления
file="МойФайл.mdb"                                'Имя существующего файла БД
folder="C:\путьКФайлу"                            'Папка расположения существующего файла БД
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
If FSO.FileExists(serverFile) then
  Set FileFSO = FSO.GetFile(folder & "" & file) 
  FileFSO.Copy folder & "\Копия_" & file          'На всякий случай создаем копию 
  Set FileFSO = FSO.GetFile(serverFile)
  FileFSO.Copy folder & "" & file                 'Заменяем МойФайл.mdb на ФайлОбновления.mdb
End If
WshShell.run "MSAccess.EXE " & folder & "" & file

Создать файл скрипта VBS не трудно. Нужно создать обычный текстовый файл, записать в него код, исправить пути и имена на правильные и сохранить с расширением VBS. В ярлыке должен запускаться именно файл скрипта. Можно конечно, запускать и сам файл скрипта, но в этом случае велика вероятность его случайного изменения или удаления. Лучше ярлык

@dratxara · 10.11.2015, 18:24 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
serverFile="C:\Users\AG\Desktop\server.mdb" 'Файл Обновления
           
file="klient.mdb"      'Имя существующего файла БД
 
folder="C:\Users\AG\Desktop\aa"    'Папка расположения существующего файла БД
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
If FSO.FileExists(serverFile) then
  Set FileFSO = FSO.GetFile(folder & "" & file) 
  FileFSO.Copy folder & "\Копия_" & file          'На всякий случай создаем копию 
  Set FileFSO = FSO.GetFile(serverFile)
  FileFSO.Copy folder & "" & file                 'Заменяем МойФайл.mdb на ФайлОбновления.mdb
End If
WshShell.run "MSAccess.EXE " & folder & "" & file

@dratxara · 10.11.2015, 18:26 **[ТС]**

выдает ошибку что не так

mobile · 10.11.2015, 18:54

Сообщение от dratxara

выдает ошибку что не так

Так прямо говорит, что файл не найден. Предположу, что нет обратного слэша между папкой и файлом в выражении folder & "" & file. Наверное надо folder & "\" & file. Это я пропустил когда менял реквизиты :-(

@dratxara · 10.11.2015, 19:10 **[ТС]**

теперь открывает пустой файл на изменение не происходит....

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@dratxara Заблокирован

	Автоматическое обновление клиентской части 10.11.2015, 08:53. Показов 5823. Ответов 42 Метки нет (Все метки) пожалуйста подскажите как сделать автоматическое обновление клиентской части.... когда стартует клиентская часть есть изменение формах или в ачивках.... происходило обновление клиентской части. 0

@Виктор Михалыч 280 / 136 / 23 Регистрация: 08.01.2014 Сообщений: 635
	10.11.2015, 08:56
	Что вы имеете ввиду? Подчиненные формы и поля на форме? На событие таймеры сделайде DoCmd.Requery? Так не подойдет? 0

@dratxara Заблокирован
	10.11.2015, 08:58 [ТС]
	когда стартует клиентская часть если есть изменение формах или в отчетax и так далее... происходило обновление клиентской части. 0

@Виктор Михалыч 280 / 136 / 23 Регистрация: 08.01.2014 Сообщений: 635
	10.11.2015, 09:01
	Формы и отчеты получают данные из Запросов или таблиц, если там что то меняется, то при открытии Access сам обновляет формы и отчеты! Не понятна задача! 0

@dratxara Заблокирован
	10.11.2015, 09:02 [ТС]
	есть локальный сервер... сервер и 10 клиентской стороны когда в программе меняется что нибудь, чтобы не бегать для замены клиентской части по каждому нужна сделать автоматическое обновление клиентской части.... 0

@Виктор Михалыч 280 / 136 / 23 Регистрация: 08.01.2014 Сообщений: 635
	10.11.2015, 09:08
	Теперь понял. Добавлено через 2 минуты Для этого нужно использовать файл сторонний, например Excel, который будет запускаться с клиентской части. При запуске файла, активная клиентская часть должна закрыться и макрос в запущеном файле Excel сделает копию файла в вашу директорию. Как то так я вижу это. Добавлено через 3 минуты Можно попробовать так FileCopy "Исходный Путь", "Путь Назначения", но при этом основная клиентская часть должна быть закрыта! 0

@dratxara Заблокирован
	10.11.2015, 09:09 [ТС]
	эта теория =)) можна практический пример 0

@Виктор Михалыч 280 / 136 / 23 Регистрация: 08.01.2014 Сообщений: 635
	10.11.2015, 09:13
	Вы ждете готовое решение? 0

@dratxara Заблокирован
	10.11.2015, 09:14 [ТС]
	готовые примеры ...=)) нельзя что ли? 0

@Виктор Михалыч 280 / 136 / 23 Регистрация: 08.01.2014 Сообщений: 635
	10.11.2015, 09:38
	Вот вам пример. Создайте копию этого файла и переименуйте, поместите его в одну папку, потом копию этого файла поместите в другую директорию и переименуйте, затем откройте этот файл, пропишите путь к файлам в событии кнопки FileCopy "Исходный Путь", "Путь Назначения", Измените данные или форму в файле источника, закройте файл источника, нажмите кнопку. Не возможно обновить файл, если он открыт, это можно сделать только сторонним файлом, а на событие выгрузки формы, ил закрытие ее пропишите открытие измененного файла. 0

@dratxara Заблокирован
	10.11.2015, 09:46 [ТС]
	Не работае...............! Добавлено через 21 секунду Не работает 0

@Виктор Михалыч 280 / 136 / 23 Регистрация: 08.01.2014 Сообщений: 635
	10.11.2015, 10:04
	Имя файла источника и имя файла который нужно заменить, должны быть одинаковые! У меня все работает! Добавлено через 12 минут Ищите тогда другие варианты.Удачи. 0

@dratxara Заблокирован
	10.11.2015, 18:26 [ТС]
	выдает ошибку что не так Миниатюры 0

@dratxara Заблокирован
	10.11.2015, 19:10 [ТС]
	теперь открывает пустой файл на изменение не происходит.... Миниатюры 0