close parametered query automatically

P

Pierre

HI all,

Using the fct below i can automatically close an open query

Dim qd As QueryDef
For Each qd In CurrentDb.QueryDefs
If isLoaded(qd.Name, acQuery) Then
DoCmd.Close acQuery, qd.Name
End If
Next

But if the query contain parameter:

A dialog box (is it a dialiog box?) is open asking for the parameter.

Suppose the fct is launch while the dialog box is open
the queries is unloaded but access kind of freeze and i must go to task
manager to shut the program

Is there a way to close this dialog box?

Regards,
Pierre
 
Top