Access VBA SQL fails to execute

Question

Using the following code that generates

Error:(2342) A Run SQL action requires an action consisting of an SQL statement

Here is the code:

Dim Lping As Variant
Lping = "SELECT dbo_Log_Table.LogID"
Lping = Lping + " FROM dbo_Log_Table"
Lping = Lping + " WHERE (((dbo_Log_Table.LogID)=1))"
DoCmd.SetWarnings False
DoCmd.RunSQL Lping
DoCmd.SetWarnings True

The SQL is copied from the QBE grid and executes from there. I have other such code, but can't see the problem with this.

Thanks in advance

JPL

What is the value of Lping when running RunSQL() ?

ApplePie
– ApplePie

2015-07-23 00:35:07 +00:00
Commented Jul 23, 2015 at 0:35 — ApplePie
– ApplePie, Commented Jul 23, 2015 at 0:35

Brad · Accepted Answer · 2015-07-23 00:51:36Z

2

The problem is that DoCmd.RunSQL runs action statements: Insert, Update, Delete. A select statement doesn't do anything. You have no way of obtaining the results of this query and using them and thus RunSQL doesn't even let you waste your time doing it.

If you want to use the results of this query you'll need to create a QueryDef, a query object and use that, or explicitly generate a recordset. Either way the Query needs to get into a recordset to be used.

answered Jul 23, 2015 at 0:51

Brad

12.3k4 gold badges51 silver badges81 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Access VBA SQL fails to execute

1 Answer 1

Comments

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Related