If you have a number of temporary tables you wish to clear/delete the contents of the table, 
prefix the table name with “tmp” and use the following code. 


Dim dbTable As String
Dim SQL As String
Dim db As Database
Dim rec As DAO.Recordset
SQL = "SELECT MSysObjects.Name, MSysObjects.Type FROM MSysObjects “
SQL = SQL & “WHERE (((MSysObjects.Name) Like 'tmp*') AND ((MSysObjects.Type)=1)); "
Set db = CurrentDb()
Set rec = db.OpenRecordset(SQL, dbOpenDynaset)
Do While Not rec.EOF
dbTable = rec(0)
SQL = "DELETE " & dbTable & ".* FROM " & dbTable & ";"
db.Execute SQL
rec.MoveNext
 Loop
rec.Close