使用VBA更新表格

Question

我一直在努力讓這段代碼工作幾天。如果你能提供任何解決方案，我會非常感激。

Private Sub Command0_Click() 


If IsNull(NewSupBox.Value) Or IsNull(NewNumberBox.Value) Then 
MsgBox ("All fields must be filled") 
GoTo ErrorExit 
End If 

If Not IsNull(DLookup("SupplierNumber", "SupGenInfo ", "SupGenInfo.SupplierNumber =" &  NewSupBox)) = Then 
MsgBox ("This supplier number already exists. You can edit the current record on the Edit  supplier page.") 
GoTo ErrorExit 
End If 

Dim db As Database 
Dim rec As Recordset 
Set db = CurrentDb 
Set rec = db.OpenRecordset("select * from SupGenInfo") 

rec.AddNew 
rec("SupplierNumber") = Me.NewSupBox.Value 
rec("SupplierName") = Me.NewNameBox.Value 
rec.Update 

Set rec = Nothing 
Set db = Nothing 



MsgBox "Records added successfully." 
ErrorExit: 

End Sub 

編輯：忘了提，我沒有收到任何錯誤消息。該命令不會爲我的表添加新記錄。

編輯2：當我刪除下面的代碼塊時，上面的代碼將輸出味精「記錄添加成功」。

Dim db As Database 
Dim rec As Recordset 
Set db = CurrentDb 
Set rec = db.OpenRecordset("SupGenInfo") 

rec.AddNew 
rec("SupplierNumber") = Me.NewSupBox 
rec("SupplierName") = Me.NewNameBox 
rec.Update 

Set rec = Nothing 
Set db = Nothing 

這是包含此代碼時，我的命令點擊變得無法響應。

Answer 1

我相信，你正在用select * ...語句閱讀一個表格（用於顯示目的），然後你添加一個新的記錄到該列表而不是實際的數據庫。當你打開OpenRecordset，只提供表名，並不是一個完整的SQL查詢shebang ...

我創建了一個新表，所以編輯此代碼以匹配你的參數/值，否則這已經過測試工作：

Dim db As Database 
Dim rec As Recordset 
Set db = CurrentDb 
Set rec = db.OpenRecordset("Table1") 

rec.AddNew 
rec("Field1") = 1234 
rec("Field2") = "blah2" 
rec("Field3") = "blah3" 
rec.Update 

Set rec = Nothing 
Set db = Nothing 

希望這會有所幫助。