running an SQL query

[Guest]

How do I run an SQL query through a command button?

I'm using this:

Private Sub Command1_Click()
DoCmd.RunSQL "SELECT Table1.F1 FROM Table1"
End Sub

But the following error appears:
A RunSQL action requires an argument consisting of an SQL statement.

What am I doing wrong?

 

[Van T. Dinh]

RunSQL can only be used with the *Action* SQL, i.e. Append / Update /
Delete... and not a Select SQL.

 

[google]

Running a SELECT-query implies that you want results..... so, you need
some container to store the results. This can be done using the
Recordset-object:

'---------------------
'code start
'---------------------
dim db as database, rs as recordset
set db=currentdb()
set rs=db.openrecordset("MyQuery",dbOpenDynaSet)

while not rs.eof
debug.print rs![somefield].value

rs.movenext
wend

rs.close
db.close
'---------------------
'code end
'---------------------

This will open the query and cycle through all the records.


Good luck!

 

[Guest]

I see. Thanks!

For the benefit of others, what I did instead was just to save the SQL as a
query and then call this using the DoCmd.OpenQuery command.