Query Table for Item

[STibbs]

I am new to the programming world of ACCESS 2000. I want to find out if there is are specific records in a table. If there are no records then I want to run an access query to append records from another table to make the query true. If they already exist, I wish to do nothing but run a report. Can some one suggest a spot I can go to learn more or have code that will give me an Idea as to how this would all work?

 

[coco86]

Try something like this (Query1 is the SQL statement for your select query, Query2 is the SQL statement for your append query

dim RS as new ADODB.recordset

Set RS = currentproject.connection.execute(query1)

If RS.EOF then
    currentdb.execute(query2)
else
    'open your report
end if

RS.close
set RS = nothing

 

[STibbs]

Thanks. That worked Great!