WildCards in VB Code

[Juan4412]

Are there wildcards in VB? For example, I want to run the following code....

DoCmd.DeleteObject acQuery, [Zip]

But the program name that I am referencing is on the form, and I want to delete any query that is associated with that zip. The query will definately have the zip in the name, but it may begin with query_, qry_, Q_, zip_Query, etc. Is there a wildcard that I could use to isolate the zip from my form, regardless of what comes before or after it on the query?

[June7]

Dim tbl As Object
For Each tbl In CurrentDb.TableDefs
If tbl.Name Like "*" & [Zip] & "*" Then DoCmd.DeleteObject acTable, tbl.Name
Next

Taken from this thread:
http://www.eggheadcafe.com/microsoft...ect-macro.aspx

[ajetrumpet]

June's code is close, but I think you need to go with QUERYDEF instead of TABLEDEF.

And are objects included in DEF collections? Not sure about that, but I would assume they are. It's better obviously to dim a var as QUERYDEF/TABLEDEF rather than just an OBJECT though. Objects should really be used for vars that can't be dimmed into a collection. An example would be the FILE SYSTEM OBJECT.

and the criteria should probably be this:

If tbl.Name Like "*Zip*" Then 
   DoCmd.DeleteObject acQuery, tbl.Name

[Juan4412]

So simply surrounding the known portion of the name in "*" [known portion] "*" will find/perform the requested action?

[June7]

Whoops! I tested the code against table and forgot to test query.

This works when the string 'Zip' is in the name.
Dim qry As Object
For Each qry In CurrentDb.QueryDefs
If qry.Name Like "*Zip*" Then DoCmd.DeleteObject acTable, qry.Name
Next

If you are matching a zip code in the query name, e.g. Q99504, and need to reference textbox entry on form then need "*" & Me.Zip & "*"

[Juan4412]

That code worked to perfection!