Append Query VB Code

  • Thread starter Thread starter Kjuib
  • Start date Start date
K

Kjuib

How do I get an Append Query to run from VB?
My current code is:
Dim dbs As Database
Set dbs = OpenDatabase("J:\Backups\ClosingManager.mdb")
dbs.Execute " INSERT INTO UpdateLog([Date], Area,
Comment) VALUES(Now(), strArea, strComment);"
dbs.Close

strArea and strComment are Variables for Strings, but the
Query will not run, but If I put the strings in there It
will run... what can I do differently?
 
Kjuib said:
How do I get an Append Query to run from VB?
My current code is:
Dim dbs As Database
Set dbs = OpenDatabase("J:\Backups\ClosingManager.mdb")
dbs.Execute " INSERT INTO UpdateLog([Date], Area,
Comment) VALUES(Now(), strArea, strComment);"
dbs.Close

strArea and strComment are Variables for Strings, but the
Query will not run, but If I put the strings in there It
will run... what can I do differently?
Click to expand...

You need to put the strings in the SQL statement, but you
can get an expression to do it for you:

strSQL = " INSERT INTO UpdateLog([Date], " _
& "Area, Comment) VALUES(" _
& Format(Now(), "\#m\/d\/yyyy h\:n\:s") & ", """ _
& strArea & """, """ & strComment & "");"
Debug.Print strSQL 'look at it in immediate/debug window
dbs.Execute strSQL, dbFailOnError
 
Back
Top