Question

我希望我的表单能够像大多数网站表单一样运行：在单击“提交”按钮之前，不会保存添加/编辑的记录。我希望能够退出表单而不会出现验证错误或创建新记录。是否存在切换，在收到命令之前它不会尝试写入表？

Answer 1

在提交按钮后面，只需输入以下代码：

If me.Dirty = True then me.dirty = false

您没有说是否有取消按钮，但取消按钮后面的代码如下所示：

If me.dirty = true then
   Me.Undo
End if

如果您希望允许用户关闭表单，那么此代码就足够了：

 Option Compare Database
 Option Explicit
 Dim bolOkSave As Boolean

Private Sub cmdSubmit_Click()

   If Me.Dirty = True Then

      Me.Command20.SetFocus
      bolOkSave = True
      Me.Dirty = False
      bolOkSave = False

   End If


End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

   If Me.Dirty = True Then
      If bolOkSave = True Then
         Cancel = False
      Else
         ' optional code can be placed here to give user a message
         ' or as this code stands, changes will be dumped
          Me.Undo

    End If
End If

End Sub

表单 - 在单击“提交”按钮之前不要添加/修改记录

1 个答案: