Run time error when checking for a query

[achick]

I am trying to check if a query exists. Here is my code.
I get a runtime error: Object variable or with block variable not set


Private Sub CmdCheck_Click()
Dim db As Database
Dim qry As QueryDef
Dim i As Integer

For Each qry In db.QueryDefs
If qry.Name = "qryTempcat" Then
i = 1
End If
Next qry

End Sub

Thanks

 

[MajP]

Dim qry As QueryDef
Dim i As Integer

For Each qry In currentDb.QueryDefs

 

[dhookom]

Since you have db dim'd, try

Private Sub CmdCheck_Click()
  Dim db As DAO.Database
  Dim qry As DAO.QueryDef
  Dim i As Integer
  Set db = Currentdb
  For Each qry In db.QueryDefs
    If qry.Name = "qryTempcat" Then
      i = 1
    End If
  Next qry
  Set db = Nothing
End Sub

Or just

   Dim I as Integer
   I=DCount("*","msysObjects","[type]=5 AND [Name] = 'qryTempCat'")

Duane
Hook'D on Access
MS Access MVP

 

[achick]

Thanks so much. It works now.