DoCmd.RunSQL In Access DB

[daven]

Hi Guys,

Having problems trying to run a SQL Script in VB. The SQL works fine in a query but in VB I get "Syntax error" (you can write what I know about VB on the back of a box of matches ). I want the code to run as a function so I can call it from a macro rather than a query so have tried the following:-

Function DoSQL()
Dim SQL As String

SQL = "INSERT INTO AssetDB (FAR_AssetCode)" & _
"SELECT NewAssetData.FAR_AssetCode" & _
"FROM NewAssetData" & _
"WHERE NewAssetData.FAR_AssetCode > (Select Max(FAR_AssetCode) from AssetDB);"

DoCmd.RunSQL SQL
End Function

Any help appreciated

Dave

[/dev/null]

Try removing the semi-colon from the end of your query - I may be wrong, but I have a feeling VB doesn't require it.

John.

[daven]

Try removing the semi-colon from the end of your query - I may be wrong, but I have a feeling VB doesn't require it.

John.

Thanks John - had tried that but it make no difference! Have deleted it now anyway!

Dave

[SiE]

you needed to put spaces before the " on each line I think on the SQL statement

[daven]

you needed to put spaces before the " on each line I think on the SQL statement

SiE - you star! Karma coming your way! Knew it would be something simple!

Cheers

Dave