Syntax Errore "FROM"

[nicolareina]

Hi guys this is my problem

name form = test
___________________________
i have a form and i would like to copy the single record into the new table



this is my code

Private Sub cmdAddRecords_Click()


On Error GoTo errHandler


Dim strSQL As String


strSQL = "INSERT INTO tblNewTable (RecordID, Field1) " _
    & " SELECT RecordID, Field1 FROM tblOldTable" _
    & "WHERE tblOldTable.RecordID = [Maschere]![test]![RecordID]"


db.Execute strSQL, dbFailOnError


Me.frmNewAttachment.Requery


errExit:
    Exit Sub
    
errHandler:
    MsgBox Err.Number & ": " & Err.Description
    Resume errExit
    
End Sub

[Welshgasman]

Debug.Print strSQL and see if you can spot the error.

I always do that before trying to use it.

You likely need to concatenate [Maschere]![test]![RecordID]
You can also copy the debug output and test in the QBE window ?

I tend to build using
strSQL = strSQL & " WHERE ..." etc
Notice the space before each new string?

[moke123]

db.Execute strSQL, dbFailOnError

Where are you declaring and setting your db variable?

[NoellaG]

I suppose the ID is a number, so bring it outside the " " string so Access can evaluate it

strSQL = "INSERT INTO tblNewTable (RecordID, Field1) " _
    & " SELECT RecordID, Field1 FROM tblOldTable" _
    & "WHERE tblOldTable.RecordID = " & [Maschere]![test]![RecordID]