Автоматическое обновление формы и уведомление стандартным звуком

@Павел2212 · Регистрация: 15.09.2014

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

Здравствуйте! Прошу подсказать и возможно решить следующую проблему. Имеется база данных расположенная в сетевой папке рассчитанная на три пользователя. Каждый пользователь открывает базу данных и открывает свою форму. При вводе информации у других пользователей не происходит автоматическое обновление в форме. Обновление происходит только при нажатии F5. В формах вставлен внедренный запрос, который при вводе или изменении данных обновляется только у того пользователя который и вносит изменения в открытой форме, а остальные обновляют только при F5. Меняли все настройки на всех компьютерах в Accesse Время ожидания OLE (30) Период обновления (60), Число повторов обновления (2), Период обновления ODBC (1500), Период повтора обновления (250)
Также прописал в форме

Visual Basic
1
2
3
4
5
6
Sub Form_AfterInsert()
Forms![Название формы 1].Form.Requery
 Forms![Название формы2].Form.Refresh 'Обновить контролы формы 'Обновить контролы запроса 'Обновить контролы таблиц
   Forms![Название формы3].Form.Requery
    Forms![Название формы3].Form.Refresh 'Обновить контролы формы 'Обновить контролы запроса 'Обновить контролы таблиц
End Sub

Вроде как и все. Все что сделал. Подскажите, что еще возможно или что я не сделал? Заранее благодарен!
И еще, если можно подскажите, как при появлении новой записи в форме у другого пользователя было звуковое уведомление. Прописал

Visual Basic
1
2
3
Private Sub Form_AfterUpdat()
DoCmd.Beep
End Sub

Но звук появляется только у того пользователя который ввел данные, у другого пользователя как я и писал выше обновление не происходит и звуковое уведомление не проходит, даже если нажать F5, Спасибо!

shanemac51 · 23.09.2014, 15:22

не надо дублировать тему,если на нее никто не отвечает ---значит нет идей

=====
особенно , если учесть, что просмотров более 70

mobile · 23.09.2014, 16:07

Можно таймером. Устанавливаете, например интервал таймера в форме на три минуты (слишком часто не стоит, форма будет дергаться, это раздражает). В процедуре на событии таймера пишете

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Dim n 'в переменной n сохраним текущее количество записей в фоме
Dim k 'в переменной k будет фактическое количество записей
Dim idk 'переменная idk хранит номер уникального поля, идентификатора текущей записи
n=Me.txtCount 'свободное поле txtCount надо создать в примечании формы и задать источник =Count(*)
k=Currentdb.Openrecordset("select count(*) from [sql-текст или имя запроса-источника формы'").fields(0)
idk=Me.id
If n<>k Then
  Me.Dirty=False 'Сохраняем запись
  Me.Requery 'Обновляем источник записей 
  docmd.Beep
  Me.Recordset.Findfirst "id=" & idk 'устанавливаем текущую запись на ту, которая была до обновления
End If

В примере предполагается, что в источнике формы есть уникальное поле id

Еще раз обращу внимание, что в примечании формы надо сделать свободное поле, которое будет подсчитывать число записей в форме.

@Павел2212 · 23.09.2014, 22:17 **[ТС]**

Что то не выходит...

mobile · 23.09.2014, 22:35

Сообщение от Павел2212

Что то не выходит...

Ну, поднатужиться надо и выйдет каменный цветок :-)

Что не выходит-то? Ошибки? Какие, что сообщается? Или результат не тот? Тогда что не так? Пишите подробней. Из "Что то не выходит..." мало что можно понять.

@Павел2212 · 26.09.2014, 14:00 **[ТС]**

Ничего не изменилось. Не обновляется...

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

shanemac51 Модератор 12231 / 5078 / 814 Регистрация: 07.08.2010 Сообщений: 14,934 Записей в блоге: 4
	23.09.2014, 15:22
	не надо дублировать тему,если на нее никто не отвечает ---значит нет идей ===== особенно , если учесть, что просмотров более 70 0

@Павел2212 0 / 0 / 0 Регистрация: 15.09.2014 Сообщений: 135
	23.09.2014, 22:17 [ТС]
	Что то не выходит... 0

@Павел2212 0 / 0 / 0 Регистрация: 15.09.2014 Сообщений: 135
	26.09.2014, 14:00 [ТС]
	Ничего не изменилось. Не обновляется... 0