Append row 'error'

[liamfitz]

Hi. I'm dynamically populating a table I create, at a report Load event. ( The field values will be based on values taken/calculated from fields in 2 other existing tables ). The following code just places some test data into the 2 fields for now, to check the logic and functionality of my routine.

Dim sql as String
sql = "CREATE TABLE tempTbl(Outcome varchar(60), Total int)"
DoCmd.RunSQL sql
For i = 0 To 7
    sql = "INSERT INTO tempTbl VALUES('Just some text', " & i & ")"
    DoCmd.RunSQL sql
    sql = ""
Next i

The trouble is, it prompts me with an append question for every new record as it adds each new row. Can this be avoided, and if so, how please ? Thank you in advance.

 

[pbaldy]

See if this helps:

http://www.baldyweb.com/SQLWarnings.htm

 

[mdlueck]

I suspect you are getting bit by:

DoCmd.SetWarnings Method
http://msdn.microsoft.com/en-us/library/office/ff837275(v=office.14).aspx

 

[jdraw]

Replace this
DoCmd.RunSQL sql

with
Currentdb.execute sql, dbFailOnError

Good luck

 

[liamfitz]

Thanks to all RESPONDENTS.