I am using code to duplicate Record on form and subfom - getting Syntax error

[crimedog]

Found this code @ http://allenbrowne.com/ser-57.html
I have a form with subform for entering data and set up a CmdDupe button
I get the error message : Syntax error in Insert into

'Duplicate the related records: append query.
            If Me.[10SubformEquipment].Form.RecordsetClone.RecordCount > 0 Then
                strSql = "INSERT INTO [10SubformEquipment] (TicketID, EquipmentID, Note) " & _
                    "SELECT " & lngID & " As TicketID, EquipmentID, Note " & _
                    "FROM [10SubformEquipment] WHERE TicketID = " & Me.TicketID & ";"
                DBEngine(0)(0).Execute strSql, dbFailOnError

and the line

    DBEngine(0)(0).Execute strSql, dbFailOnError

is highlighted...



Can anyone see what is wrong?

[ssanfu]

It looks OK.

I just used that code (today), but since the dB was in MDB format, I had to go to TOOLS/REFERENCES (in the IDE) and add a reference to Microsoft DAO 3.6 Object Library.

Otherwise, you might add a "Debug.Print strSQL" statement before the DBEnging line...

[crimedog]

I tried the Debug line - I get the same error
When I tried to add the DAO 3.6 reference I got error that it conflicts with current reference.
I have Visual Basic, Microsoft Access 14.0 Object Library, OLE Automation, Microsoft Office 14.0 Access Database..., Microsoft Outlook 14.0... References

[orange]

It may be some issue with syntax, but if Steve uses it I guess not.
And it shows up in intellisense when I tried it.

You could do the traditional

Dim myDb as dao.database

set myDb = currentdb
MyDb.Execute strSql, dbFailOnError