2016-12-14 71 views
1

我有一個按鈕後面的代碼我的形式Access數據庫形式

Dim strSQL As String 
Dim name As String 
nameAdd.SetFocus 
name = nameAdd.Text 

    strSQL = "INSERT INTO tblCustomer (CustomerName) VALUES (" & name & ");" 
    DoCmd.RunSQL strSQL 

上,但是當我運行它,這個彈出。

PopUp

我不知道爲什麼這個彈出,如果我填的對話框中,它就會插入新行到數據庫。

回答

1

你忘了把單引號到SQL,這意味着你的命令變爲:

INSERT INTO tblCustomer (CustomerName) VALUES (testnameexample); 

添加引號的價值...

strSQL = "INSERT INTO tblCustomer (CustomerName) VALUES ('" & name & "');" 

這使命令:

INSERT INTO tblCustomer (CustomerName) VALUES ('testnameexample'); 
+0

我甚至沒有注意到,現在很好,謝謝。 –