访问：在运行我的VBA代码后，数据被分成两条记录

好了，伙计们，我对Access和VBA有些陌生，我需要一些帮助。我一直在试图找出一个问题，我的数据库在试图保存表格时，假设将输入表格中的所有数据保存到一个表中，并拆分记录。我什么都试过了，但都没用

仅供参考，表格会自动填充：输入ID时会自动填充姓名、电话和电子邮件，输入标签时会自动填充设备

这是我的VBA代码

Option Compare Database

Private Sub Submit_button_Click()
Dim db As Database
Dim rec As Recordset

Set db = CurrentDb

Set rec = db.OpenRecordset("student_check_out")

rec.AddNew
rec("ID") = Me.PID
rec("Student Name") = Me.Borrower
rec("Phone") = Me.PHONE
rec("E-mail") = Me.EMAIL
rec("Tag #") = Me.Tag
rec("Equipment") = Me.Equipment
rec("Class") = Me.Class
rec("CDL Staff") = Me.CDL_Staff
rec("Check Out Date") = Me.Check_Out_Date
rec.Update
rec.Close

DoCmd.Close acForm, "Students"

End Sub

---

我假设表单没有绑定。“Class”是一个保留字（请参见代码中突出显示的“blue”）。请重命名文本框，即使它是“Class_uu”或“Class1”，等等。

我假设表单未绑定。“Class”是一个保留字（请参见代码中突出显示的“blue”）。请重命名文本框，即使它是“Class_uu”或“Class1”，等等。

这些字段看起来像是绑定到表上的（您可以通过记录选择器中的编辑标记看到）。如果不按“提交”按钮，只输入信息并关闭表单，会发生什么情况？如果这是绑定表单，则不需要“提交”按钮，数据会自动保存。1时会保存数据。关闭表/查询/表单或2。移动到另一个记录或3。运行要保存的代码。正如Kostas K.所说，数据是从带有绑定控件的绑定表单中自动保存的。名称部分应位于单独的字段中：FirstName、LastName、MidName。建议名称中无空格或标点/特殊字符（仅下划线例外）。最好是TagNum或Tag_Num和电子邮件或电子邮件。此外，没有保留字（如日期）作为名称。我希望标记是一个保留字，但它不在我查看的列表中。这些字段看起来像是绑定到一个表（您可以通过记录选择器中的编辑标记看到）。如果不按“提交”按钮，只输入信息并关闭表单，会发生什么情况？如果这是绑定表单，则不需要“提交”按钮，数据会自动保存。1时会保存数据。关闭表/查询/表单或2。移动到另一个记录或3。运行要保存的代码。正如Kostas K.所说，数据是从带有绑定控件的绑定表单中自动保存的。名称部分应位于单独的字段中：FirstName、LastName、MidName。建议名称中无空格或标点/特殊字符（仅下划线例外）。最好是TagNum或Tag_Num和电子邮件或电子邮件。此外，没有保留字（如日期）作为名称。我本以为标记是一个保留字，但它不在我查看的列表中。