2017-07-06 26 views
1

好吧,我對Access和VBA有點新,我需要一些幫助。我一直試圖找出一個問題,我有我的數據庫是假設保存輸入到表格中的所有數據到我的表格時,當我嘗試保存它拆分記錄。我已經嘗試了一切,但無法讓它工作。訪問:運行我​​的VBA代碼數據後分成兩條記錄

Form for Data entry

僅供參考表單自動填充:當輸入姓名,電話並輸入ID時,電子郵件和設備標籤#。

How table looks like when submit button is pressed

這是我的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 
+0

這些字段看起來像綁定到表(可以通過記錄選擇器中的編輯標記看到)。當你不按下提交按鈕時會發生什麼,但只需輸入信息並關閉表單? –

+0

如果這是綁定形式,則不需要提交按鈕,數據會自動保存。 –

+0

1.關閉表格/查詢/表格或保存數據2.移動到另一個記錄或3.運行代碼保存。正如Kostas K.所說,數據會自動從綁定控件的綁定表單中保存。名稱部分應該位於單獨的字段中:名字,姓氏,中間名。在名稱中不要提供空格或標點符號/特殊字符(僅下劃線)。最好是TagNum或Tag_Num和EMail或E_Mail。此外,沒有保留字(如日期)作爲名稱。我希望Tag是一個保留字,但它不在我看的列表中。 – June7

回答

0

我認爲形式不綁定。 「Class」是一個保留字(參見代碼中突出顯示的「藍色」)。請重命名文本框,即使它是「Class_」或「Class1」等。