Emtry Table Error Trapping

[purceld2]

I am new to coding and have an issue that when the code below runs and finds the table empty it errors and falls over.

How could I amend the code to accept this condition and continue running the remaining code

Would it be best to test the presence of data in the table before calling the function or use error trapping?

Thanks you in advance for your advice

Des

Function Clr_Results()
Set activedb = DBEngine.Workspaces(0).Databases(0)
Set RES = activedb.OpenRecordset("Results")
RES.MoveFirst
Do
RES.Delete
RES.MoveNext
Loop Until RES.EOF
RES.Close
End Function

 

[boblarson]

I would get rid of the whole recordset and just use a delete query

Dim strSQL As String

strSQL = "Delete * FROM Results"

CurrentDb.Execute strSQL, dbFailOnError

Simpler, faster and more efficient.

 

[purceld2]

Re: Empty Table Error Trapping

Thanks bob for your reply

Can I ask if your solution would over come the problem of the code falling over if the table is already empty. Would it be able to handle this and allow the code to continue running

Regards

Des

 

[boblarson]

Re: Empty Table Error Trapping

Thanks bob for your reply

Can I ask if your solution would over come the problem of the code falling over if the table is already empty. Would it be able to handle this and allow the code to continue running

Regards

Des

Yep, it isn't reliant on anything being in the table.