if exist?

  • Thread starter Thread starter Jason
  • Start date Start date
J

Jason

Hi,

I have this function where i create temporary pass-through-queries.
However, once the query is created the function fails if i try to use it
again.

Can someone help me adjust the code so it will check if the query exists.

Function CreateSPT(SPTQueryName As String, SQLString As String)

Dim mydatabase As DAO.Database
Dim myquerydef As DAO.QueryDef

Set mydatabase = DBEngine.Workspaces(0).Databases(0)
Set myquerydef = mydatabase.CreateQueryDef(SPTQueryName)


myquerydef.Connect = GetODBCConnection
myquerydef.SQL = SQLString
myquerydef.Close
End Function
 
Function CreateSPT(SPTQueryName As String, SQLString As String)
on error resume next
Dim mydatabase As DAO.Database
Dim myquerydef As DAO.QueryDef

Set mydatabase = DBEngine.Workspaces(0).Databases(0)
Set myquerydef = mydatabase.CreateQueryDef(SPTQueryName)
Click to expand...
if err=(the error number that occurs) then
set myquerydef=mydatabase.querydefs(sptqueryname)
else
'something that exits the routine, or handles error
endif
 
Back
Top