Monday, February 4, 2008

To delete import error tables from database

Sub deleteimporterrors()

Dim tbldef As TableDef
For Each tbldef In CurrentDb.TableDefs
If tbldef.name Like "*_importerror*" Then
DoCmd.DeleteObject acTable, tbldef.name
End If
Next tbldef

End Sub

1 comment:

  1. you seem to be savy with macros, I have a scenario can you help?
    I have a excel file in a row i have certain codes which i have to enter in a website to check if there is any document available on it. For some there are and for some there are not. Can you help in buiding a macro where by it will check on its own and let me know the in a particulare cell that there is a document availabe or not for more details you can view this
    http://www.orkut.com/CommMsgs.aspx?cmm=359662&tid=2588215144564721225&start=1.
    If you have a solution please send me a email at a_thakkar@hotmail.com

    ReplyDelete