Run-time error 2342

[tariq1]

Hi, within a form, clicking on a combobox I have the following code A) which is generating
the run-time error B)
Thank you in advance for your help on this


A)

Private Sub Category_Click()

Dim strSQL As String
  strSQL = "select customers.* from customers"
  DoCmd.RunSQL strSQL
End Sub

B)
Run-time error ‘2342’:



A RunSQL action requires an argument consisting of an SQL statement

[JoeM]

You typically do not run Select queries in RunSQL statements like that, as select queries don't perform any type of updateable action (like a Make Table, Append, or Delete query).
What is it exactly that you are trying to do with this?
Are you trying to open/view the query results? If so, then assign the SQL code to a query object, and open that query, i.e.

CurrentDb.QueryDefs("MyQuery").SQL=strSQL
DoCmd.OpenQuery "MyQuery", acViewNormal, acEdit