Я новичок в Access, так что я еще не смог понять это. После поиска в Google я нашел код ниже, но есть проблемы с ним.

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

Этот код ниже не сохраняет запись при нажатии кнопки. Когда я нажимаю на подчиненную форму, появляется всплывающее окно с сообщением, и это нормально, но, если я выберу "X" из поля или нажму "ОК", оно все равно сохранит запись.

Любая помощь будет оценена. Либо модифицируйте этот код, либо реализуйте совершенно другой код.

Option Compare Database
Option Explicit
Dim tfAllowSave As Boolean

Private Sub btnSave_Click()
   tfAllowSave = True
   If Me.Dirty Then Me.Dirty = False
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
   If tfAllowSave = False Then
      Cancel = False
      MsgBox "Do you want to save the record?"
   End If
   tfAllowSave = False
End Sub  

0