Hello, I am just trying to do a simple Access database to see a productivity boost at work hopefully. I cannot get this code here to work as I get an error message that says:

Run-Time error '3134'
Sytax Error in INSERT INTO statement

using this code...


Private Sub btnAdd_Click()
Dim stra As String
Dim strSQL1 As String

stra = [txtTest].Value
strSQL1 = " (INSERT INTO tblTest VALUES (' " & stra & " ') "

DoCmd.RunSQL strSQL1

End Sub

I'm just trying to save a string into a table.
The exact same code worked prior to windows 7 conversion. I cannot get an INSERT statement to work so I set up a test table with a single text insert. I get integers and booleans to work.

And I'm sorry if this is a super basic question.

There is an extra ( before the INSERT. Try removing it.

__________________
Boyd Trimmell aka HiTechCoach (.com)
Microsoft Access MVP Alumni 2010-2015

Thanks for the reply HiTechCoach!

I tried it, changed my statement to:

Option Compare Database

Private Sub btnAdd_Click()
Dim stra As String
Dim strSQL1 As String

stra = [txtTest].Value
strSQL1 = "(INSERT INTO tblTest VALUES (' " & stra & " ')"

DoCmd.RunSQL strSQL1

End Sub

and still get the same error message. The simple problem is I just can't seem to add a string to my table. I'm at a loss here as this is such a basic thing. I am able to add strings when I don't use the VBA. Does this have something to do with references perhaps? I have scoured all resources on them and was believing I have all that I needed.

As it turns out I had a spelling error. The son-in-law came over and scoped it out. None other than Mr. HotWu himself. It now works and sorry for the trouble.

Thank you for the update.

Glad to hear you got it figured out.

__________________
Boyd Trimmell aka HiTechCoach (.com)
Microsoft Access MVP Alumni 2010-2015