我的 Access VBA 程式中有以下代碼，但是當我運行代碼時它給了我一個錯誤。我創建了名稱為 Table1 的表，我想在表中插入一條新記錄。但是代碼有錯誤。錯誤是這樣的。
未設定物件變數或帶塊變數
Sub Insert()
Dim db As Database
Dim StrSQL As String
StrSQL = "INSERT INTO Table1 VALUES ('1', 'Fuji')"
db.Execute (StrSQL)
db.Close
End Sub
uj5u.com熱心網友回復：
最簡單的方法是利用CurrentDb：
Sub Insert()
Dim StrSQL As String
StrSQL = "INSERT INTO Table1 VALUES ('1', 'Fuji')"
CurrentDb.Execute StrSQL
End Sub
如果第一個欄位是numeric，則沒有引號：
StrSQL = "INSERT INTO Table1 VALUES (1, 'Fuji')"
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/324322.html
上一篇：MSAccessOffice365v2109-表單控制元件源例外生成器欄位評估中的IIF
下一篇：格式化字串輸出