Hi there,
I am new to this forum; I would appreciate anyone's input in solving a problem of syntax error with the following code:
Dim dbs As DAO.Database, strSql As String
Set dbs = CurrentDb
strSql = ""
strSql = "INSERT INTO eventlog "
strSql = strSql & "(date, accountno, approvalcode, order, sku, price, discount, code, event)"
strSql = strSql & " Values"
strSql = strSql & "('" & Date() & "', "
strSql = strSql & " '" & Me!AccountNo & "', "
strSql = strSql & "'" & strSeek & "',"
strSql = strSql & "'" & Me!ReturnNo & "', "
strSql = strSql & "'" & Me!Combo33 & "', "
strSql = strSql & "0, "
strSql = strSql & "0, "
strSql = strSql & "0, "
strSql = strSql & "'" & "Non Returnable Item" & "'" & ");"
'Debug.Print strSQL
dbs.Execute strSql
Thanks to all!