☰

仅在单击按钮后才将记录从包含子表单的表单保存到表中

tag-icon • tag-icon vba microsoft-access
仅在单击按钮后才将记录从包含子表单的表单保存到表中

我是 Access 新手，所以还没能搞清楚这个问题。在谷歌搜索后，我找到了下面的代码，但其中存在问题。

我有一个包含子表单的绑定表单。我在表单上放置了一个按钮，希望用户有单击即可保存记录。

单击按钮时，以下代码不会保存记录。单击子表单时会弹出一个消息框，这没问题，但无论我单击“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

相关内容