События формы

@Aumi · Регистрация: 08.10.2015

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

Здравствуйте,

У меня есть форма с подчин формой (участвуют 2 таб 1:М), на ней кнопка, написанная мной "Удалить запись"- удаляет инфу из обеих таблиц.
Пример таблиц (Они хранятся на SQL Server) :
1 Покупатели
2 Покупки, которые совершил каждый покупатель.

Т е удаляется инфа о покупателе и его купленных товарах.

На кнопке привязан такой порядок действий:
1) Открыть модальное окно
2) В этом окне из выпадающего списка выбрать причину удаления
3) При нажатии ОК в таблицу "Архив" на SQL Server записывается вся удаленная инфа+причина, потом код удаления. Это выполняется с помощью процедуры, которую на VBA я вызываю с сервера.

Все выполняется норм и без задержек.

НО! Пользователи привыкли пользоваться стандартной кнопкой на "Удалить запись" на панели вкладка Записи.

Я попробовала перенести код моей кнопки на событие формы "Удаление". Удаляется выбранная запись, но процедура записывает в Архив следующую запись, а не удаленную. Получается так, что удаление происходит раньше открытия модального окна.

На небольшой БД, где форма состоит из 1 таблицы я сделала с 2 событиями До+Удаление

Visual Basic

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
DoCmd.OpenForm "Form1" -модальное окно
End Sub
 
Private Sub Form_Delete(Cancel As Integer)
 
If MsgBox("Вы действительно хотите удалить?", vbYesNo) = vbYes Then
mybook = Me.id
Else
 Cancel = 1
End If
 
End Sub
 
Public mybook As String  ---объявлена в модуле, глобал переменная
 
 
Private Sub Кнопка0_Click()  --кнопка модального окна ОК
MsgBox mybook
CurrentDb.Execute "insert into tovar (id,tovar) select id,book from Data where id =" & mybook
 
DoCmd.Close
End Sub

Берется нужный id и вставляется.

Но в другой БД, где процедура, Access виснет после открытия модального окна. Удаление не происходит и процедура тоже результата не дает.

Скажите пжл, реально избавитсья от зависания или проще обучить пользователей пользоваться моей кнопкой на форме?

@alvk · 19.12.2017, 10:49

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

Т е удаляется инфа о покупателе и его купленных товарах.

А зачем вы это вообще делаете? Почему просто не пометить запись как архивную например и не отображать где не надо? Удаление в БД - это нештатная ситуация. Как землетрясение например. Что будет, если вы захотите какую-либо отчётность по клиентам?

mobile · 19.12.2017, 10:50

Должна быть не модальная форма, а диалоговая, она сама по себе модальная. Диалоговая перехватывает все управление на себя и в вызывающем коде последующие команды выполнятся только после ее закрытия

Visual Basic

1	DoCmd.OpenForm "Form1",,,,,acDialog

@amd48 · 19.12.2017, 15:40

У формы ан вкладке "Данные" есть свойство "Разрешить удаление". Если поставить в нём "нет", то пользователю не будет доступна кнопка удаления записи

@alvk 7446 / 4580 / 302 Регистрация: 12.08.2011 Сообщений: 14,280
	19.12.2017, 10:49	2
	Сообщение от Aumi Т е удаляется инфа о покупателе и его купленных товарах. А зачем вы это вообще делаете? Почему просто не пометить запись как архивную например и не отображать где не надо? Удаление в БД - это нештатная ситуация. Как землетрясение например. Что будет, если вы захотите какую-либо отчётность по клиентам? 0

@amd48 842 / 473 / 79 Регистрация: 18.05.2016 Сообщений: 1,255 Записей в блоге: 4
	19.12.2017, 15:40	4
	У формы ан вкладке "Данные" есть свойство "Разрешить удаление". Если поставить в нём "нет", то пользователю не будет доступна кнопка удаления записи 1

События формы

Решение