Wild character in VBA

[22strider]

Hello Friends


I am trying to search a table using wild character (*) and then delete it. Following is the command that I am using. I can't get the syntax right for the wild character. Could you please look at the following code and correct me?

DoCmd.DeleteObject acTable, "*" & "ImportError" & "*"

Thanks
Rajesh

 

[boblarson]

Here's the code you need to delete the Import Errors table(s):

    Dim z As Integer
    Dim db As DAO.Database
    
    Set db = CurrentDb
    For z = db.TableDefs.Count-1 To 0 Step -1
        If InStr(1, db.tblDefs(z).Name, "ImportError") > 0 Then
            DoCmd.DeleteObject acTable, db.TableDefs(z).Name
        End If
    Next z

 

[22strider]

Thanks; I am new to learning VBA. And I was trying to make it work with DoCmd in a small procedure. You would think it should work if wild character (*) is used with right format.

 

[revans]

Using "*" & "ImportError" & "*" you are looking for a table named "*ImportError*", literally a table with two asterisks in the name. Access is fairly permissive in things that will cause you trouble like that.

hth,

Rich