Форумы HiProg.com - MS ACCESS, VBA, VB

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

Private Sub Form_BeforeUpdate(Cancel As Integer)     Dim strMsg As String     strMsg = "Data has changed."     strMsg = strMsg & "@Вы хотите сохранить изменения?"     strMsg = strMsg & "@Нажмите Yes для записи или No для отмены изменений."     If MsgBox(strMsg, vbQuestion + vbYesNo, "Сохранить запись?") = vbYes Then          'do nothing      Else          DoCmd.RunCommand acCmdUndo          'For Access 95, use DoMenuItem instead          'DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70      End If  End Sub

По материалам The Access Web. (15.02.00)

попробуйте...