我正在使用绑定表单来更新有关新客户或现有客户的信息.现在我在提交按钮上使用添加新记录宏(因为我不确定如何通过VBA添加或保存新记录).
我添加了一个更新前事件(使用VBA),让用户确认他们想要在退出表单之前保存更改.由于某种原因,这会覆盖添加记录按钮,现在用户无法在退出表单之前添加新记录.
如何使用VBA将新客户信息添加到正确的表中？这是应该用宏来完成的吗？
表格BeforeUpdate代码:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strmsg As String
strmsg = "Data has been changed."
strmsg = strmsg & " Save this record?"
If MsgBox(strmsg, vbYesNo, "") = vbNo Then
DoCmd.RunCommand acCmdUndo
Else
End If
End Sub
添加记录按钮:
Private Sub btnAddRecord_Click()
Dim tblCustomers As DAO.Recordset
Set tblCustomers = CurrentDb.OpenRecordset("SELECT * FROM [tblCustomers]")
tblCustomers.AddNew
tblCustomers![Customer_ID] = Me.txtCustomerID.Value
tblCustomers![CustomerName] = Me.txtCustomerName.Value
tblCustomers![CustomerAddressLine1] = Me.txtCustomerAddressLine1.Value
tblCustomers![City] = Me.txtCity.Value
tblCustomers![Zip] = Me.txtZip.Value
tblCustomers.Update
tblCustomers.Close
Set tblCustomers = Nothing
DoCmd.Close
End …