点击“保存”按钮后清除所有字段

Question

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

Answer 1

转到新记录：

DoCmd.GoToRecord , , acNewRec 

Answer 2

可能您希望在“End Sub”之前点击“保存”按钮事件添加以下内容

Me.TextboxName.Value = Null

Answer 3

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

getPrev

Answer 4

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

尝试在保存记录中单击事件。