Check of an Object

[soupisgood84]

Is there a way I can programmatically check for an object?

My dilemma is, I want to see if a table exists before I give the command to delete it. If I DoCmd.DeleteObject and the table isn't there then I get an error.

Thanks for the help.

 

[Remou]

A useful way is to Dlookup the system table MSysObjects.

Then there is:

public function FindTableAdo(byval vstrTable as string) as boolean
  dim rs as adodb.recordset
  set rs=currentproject.connection.openschema( _
         adschematables,array(empty,empty,vstrTable))
  FindTableAdo=not rs.eof
  rs.close
  set rs=nothing
end function

 

[MajP]

another way using dao is to check the tabledefs collection. If it is not in the collection then you will throw err 3265

Public Function isTable(strTbl As String) As Boolean
  On Error GoTo errLbl
  isTable = (CurrentDb.TableDefs(strTbl).Name = strTbl)
  Exit Function
errLbl:
  If Not Err.Number = 3265 Then
    MsgBox Err.Number & " " & Err.Description
  End If
End Function

 

[danvlas]

Or simply use On Error Resume Next to ignore that error
Of course, re-instate proper error checking after that

HTH


Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html