Ms access 点击保存按钮后清除所有字段

我正在处理表单，填写所有字段并单击“保存”按钮后，所有字段都已保存，但文本字段不是空的，所有输入的文本仍然存在，如何在单击“保存”按钮后删除这些文本转到新记录：

DoCmd.GoToRecord , , acNewRec 

---

您可能希望在“结束子项”之前的单击保存按钮事件中添加以下内容

---

尝试链接到要单击的按钮以清除未绑定表单中的所有文本框的此例程：

Private Sub CleanAllFieldsButton_Click()
Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then ctl = Null
Next
Set ctl = Nothing
End Sub

---

请在“保存记录”单击事件中尝试此操作。

当然，保存后数据仍将存在，为什么不保存？这是绑定表单还是未绑定表单？我怀疑您对访问非常陌生，可能会受益于此资源：谢谢Harvey..目前我正在使用access 2007，我希望2013将有助于我自己感谢Emi..它适用于除出生日期字段之外的所有字段我遇到一个错误…我的出生日期看起来像这样'me.DOB.Value=“”这对所有字段都是一样的，但当我保存表单时，它将指向此字段作为错误。错误显示为运行时错误错误3314:必须在tblename.DOB字段中输入一个值。该字段的required属性是否设置为true？你在哪里写代码Me.DOB.Value=Null？在将文本框中的值保存到表中的代码之后编写。

Private Sub CleanAllFieldsButton_Click()
Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then ctl = Null
Next
Set ctl = Nothing
End Sub

Private Sub Command47_Click()
On Error Resume Next
Me.Dirty = False 'Attempt to save the record
If Err.Number = 0 Then
'Only enter a new record, leaving other newly-added record accessible
DoCmd.GoToRecord , , acNewRec
Else MsgBox Err.DESCRIPTION, vbCritical, "Error"
End If
End Sub