Я новичок в 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