querydef

[jplum]

I have some code that creates a querydef, runs an export with the newly created query and then deletes the querydef.

What I'd like to do is check to see if the querydef already exists before I try and create it, but I cannot figure out the code for this.

Thanks!

 

[mp9]

A simple way is to use DCount in VBA, as follows:

If DCount("*", "MSysObjects", "Type=5 AND Name='PutYourQueryDefNameHere') > 0 Then
    Msgbox "Querydef exists.", vbInformation
Else
    Msgbox "Querydef doesn't exist.", vbInformation
End If

http://www22.brinkster.com/accessory/

 

[jplum]

Thanks so much. That worked great!