Como borrar tablas temporales en access mediante codigo DAO

Aqui les muestro una manera simple de como eliminar las tablas temporales de access mediante codigo DAO, esta tarea es util cuando durante la ejecucion de la aplicacion se crean tablas solo por uso temporal y despues ya no son necesarias dentro de nuestra base de datos y se convierten en basura que solo ocupa espacio dentro de nuestro sistema.



Lo primero que haremos sera crear un modulo vba con el nombre EliTblTemp
despues insertaremos el siguiente codigo:

Option Explicit
Public Function BorrarTablasTemporales()
Dim DB As DAO.Database
Dim TD As DAO.TableDef
Set DB = CurrentDb()
For Each TD In DB.TableDefs
    '0 is normal table
    If TD.Attributes = 0 Then
         'Aqui le indicamos la manera de identificar
         'las tablas temporales mediante la terminacion temp
         'De preferencia hay que nombrar todas las tablas
         'temporales con la misma terminacion temp
        If Right(TD.Name, 4) = "temp" Then
            DB.Execute "DROP TABLE " & TD.Name & ";"
        End If
    End If
Next
DB.Close
Set DB = Nothing
Set TD = Nothing
End Function

Ahora solo nos queda hacer la llamada de esta funcion de la siguiente manera:

Call BorrarTablasTemporales()

Esto lo podemos insertar en algun codigo o boton de salida del sistema.