VBA Select Query

Topic

New Reply

Hi all,

At the risk of looking very stupid, can anyone tell me why the following generates an error stating that to run it requires an argument consisting of an sql statement?

Dim dbCurr As DAO.Database
Dim rs As DAO.Recordset
Dim mySQL As String
Set dbCurr = CurrentDb

mySQL = “SELECT PIIN ” & _
“FROM Cams_Piin_Data1 ” & _
“WHERE PIIN_CODE = ‘” & Me![PIIN_CODE] & “‘;”

DoCmd.RunSQL mySQL

Any help would be appreciated.

Thank You

Reply | Quote

Replies

DoCmd.RunSQL is intended to execute an SQL statement for an action query, i.e. the SQL statement must begin with UPDATE, SELECT … INTO, INSERT INTO or DELETE. It can not be used with the SQL for a SELECT query.

I see that you declare a recordset variable but don’t do anything with it. Perhaps you want to open a recordset on the SQL statement? Code would be

Set rs = dbCurr.OpenRecordset(mySQL, dbOpenDynaset)

Reply | Quote

Hi all,

At the risk of looking very stupid, can anyone tell me why the following generates an error stating that to run it requires an argument consisting of an sql statement?

Dim dbCurr As DAO.Database
Dim rs As DAO.Recordset
Dim mySQL As String
Set dbCurr = CurrentDb

mySQL = “SELECT PIIN ” & _
“FROM Cams_Piin_Data1 ” & _
“WHERE PIIN_CODE = ‘” & Me![PIIN_CODE] & “‘;”

DoCmd.RunSQL mySQL

Any help would be appreciated.

Thank You

The DoCmd.RunSQL command is used for an action query, eg INSERT, UPDATE etc.

Reply | Quote