Передать cancel=true обратно в событие формы |
Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo Error_Handler 'обработчик ошибок '==================================== If MsgBox("В форму внесены изменения, сохранить?", vbYesNo + vbExclamation + vbDefaultButton1, "Предупреждение") = vbNo Then Cancel = True Me.Undo End If '====================== Exit_Sub: 'обработчик ошибок On Error Resume Next Exit Sub Error_Handler: If Err.Number = 0 Then Resume Next Else Call prcОбработкаОшибок(Err.Number, Err.Description, Err.Source, Erl) End If Resume Exit_Sub Resume End Sub
Public Sub prcКонтрольИзмененийФормы(frmName As String) Dim frm As Form Set frm = Forms(frmName) If MsgBox("В форму внесеные измнения, сохранить?", vbYesNo + vbExclamation + vbDefaultButton1, "Предупреждение") = vbNo Then 'Cancel = True КАК ВОТ ЭТУ СТРОКУ ПЕРЕДАТЬ ОБРАТНО В СОБЫТИЕ ФОРМЫ, чтобы отменить UPDATE frm.Undo End If End Sub
https://www.sql.ru/forum/1308724/peredat-cancel-true-obratno-v-sobytie-formy
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |