Compiler Error....Syntax Error....

[Michelle]

I have the following code and it keeps giving me an error.

Private Sub Command39_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tblESSOld (ESSID, IN_INMNUM, SEP, EXERCISE,
SHOWER, [YARD #], RAZOR, SCREAM, MIRROR, [DATE]), "SELECT (tblESSLog.ESSID,
tblESSLog.IN_INMNUM, tblESSLog.SEP, tblESSLog.EXERCISE, tblESSLog.SHOWER,
tblESSLog.[YARD #], tblESSLog.RAZOR, tblESSLog.SCREAM, tblESSLog.MIRROR,
tblESSLog.DATE)FROM tblESSLog"
DoCmd.RunSQL "DELETE tblESSLog.*", "FROM tblESSLog"
DoCmd.SetWarnings True
End Sub

What it is to do is run a append query then a delete query.

 

[Duane Hookom]

Try something like:

DoCmd.RunSQL "INSERT INTO tblESSOld (ESSID, IN_INMNUM, SEP, " & _
"EXERCISE, SHOWER, [YARD #], RAZOR, SCREAM, MIRROR, [DATE]) " & _
"SELECT ESSID, IN_INMNUM, SEP, EXERCISE, SHOWER, [YARD #], " & _
"RAZOR, SCREAM, MIRROR, [DATE] FROM tblESSLog"
DoCmd.RunSQL "DELETE tblESSLog.* FROM tblESSLog"