If function

[Chose.cz]

Hello,

I've created the following code (not working)

testSQL= "SELECT Product FROM ...."
If IsNull(DoCmd.RunSQL(testSQL)) Then ...


When my SELECT statement returns no rows, I want my If code to be executed.
But the syntax above is incorrect. How do I fix it?

Thanks in advance

 

[KeithG]

You should try using the dlookUp function to see if the product exists. Or to do it your way you need to open up a recordset and check for records.

 

[FLM]

dim rs as recordset
dim testsql as string

testsql = "SELECT Product FROM ...."
set rs = currentdb.openrecordset(testsql)

if rs.eof then
...
else
...
end if

 

[Chose.cz]

dim rs as recordset
dim testsql as string

testsql = "SELECT Product FROM ...."
set rs = currentdb.openrecordset(testsql)

if rs.eof then
...
else
...
end if

Works, thanks again