Access - Does an Object Exist?

Question

Any code to determine whether a table exists or not before being deleted via vba?

If TableABC.Exists then

DoCmd.DeleteObject acTable, "TableABC"

End If

Answer 1

The simplest way to do this is just to trap the error and (if you wish) issue a message:

Const NoSuchObject As Integer = 7874 ' error number for Can't Find the Object

On Error GoTo Proc_Error

DoCmd.DeleteObject acTable, "TableABC"

Proc_Exit:

  Exit Sub

Proc_Error:

  Select Case Err.Number

     Case Is NoSuchObject

         MsgBox "As I was going up the stair/I found a table that wasn't there!", vbOKOnly

     Case Else

         MsgBox "Oops, wasn't expecting error # " & Err.Number & vbCrLf & Err.Description

   End Select

   Resume Proc_Exit

End Sub