Re: Better Way to Delete Import Error Tables?

From: Douglas J. Steele (NOSPAM_djsteele_at_NOSPAM_canada.com)
Date: 01/30/05 

Date: Sun, 30 Jan 2005 10:43:20 -0500

I don't think there's any other way. Certainly you cannot use a statement
like you're suggesting. 

-- 
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)
"Bill Sturdevant" <BillSturdevant@discussions.microsoft.com> wrote in 
message news:BD52117C-99ED-495D-B627-EC0F116DBF51@microsoft.com...
>I am using the routine below to delete Import Error tables.  Because of the
> number of tables in the database, it takes quite a while.  Is there a 
> better
> way?  Perhaps some way of saying: "For Each tbl In cat.Tables tbl.Name 
> Like
> '*$_ImportErrors*' "?
>
> Private Sub Delete_Import_Error_Tables()
> On Error GoTo Delete_Import_Error_Tables_Error_Recovery
>    Dim cat As ADOX.Catalog
>    Dim tbl As ADOX.Table
>    Set cat = New ADOX.Catalog
>    cat.ActiveConnection = CurrentProject.Connection
>    For Each tbl In cat.Tables
>        If tbl.Name Like "*$_ImportErrors*" Then
>            DoCmd.DeleteObject acTable, tbl.Name
>        End If
>    Next tbl
> Delete_Import_Error_Tables_Error_Recovery:
>    Exit Sub
> End Sub
>

Relevant Pages