如何通过填写表单并单击保存按钮将记录添加到表中

时间:2019-09-19 12:59:23

标签: vba ms-access access-vba

我创建了一个按钮来打开要填写的表格。要填写的表格设置为data entry = yes,以便在我每次打开空白字段时打开它。 每当我打开表单并在任何字段中键入内容时,它都会自动保存在表格中。我不希望这样做,因为它将创建许多空白条目。

因此,我希望仅当单击保存按钮时才记录填充的数据。

我还不知道该怎么做

1 个答案:

答案 0 :(得分:1)

创建一个未绑定到任何查询或表的表单。每次打开表单时,您放入表单中的所有文本框都将为空白。在On Click事件中添加具有以下代码的保存按钮:

Sub cmdSave_Click()
CurrentDb.Execute "INSERT INTO tbl_Contacts (ContactName, ContactEmail, ContactPhone, SponsorID )" _
& " VALUES ('" & Me.txtContactName & "','" & Me.txtContactEmail & "', '" & Me.txtContactPhone & "' , '" & Me.txtSpnID & "')"

然后您可以使用以下内容清除新条目的文本框:

Me.txtContactName = Null
Me.txtContactEmail = Null
Me.txtContactPhone = Null
Me.txtContactID = 0