Finkiel: Normalmente utilizo el código que te cito, y es más amplio de lo que tu pides, ya que mira si es Tabla o Consulta, pero podrás abrir el criterio de buscar:
En un Módulo Standard, pones todo ésto:
Public NombreObjeto As String
Public Qdf As QryDef
Public Objeto As Object
Public Existe As Boolean
Public EsConsulta As Boolean
Public EsTabla As Boolean
Function ExisteObjeto(NombreObjeto)
Existe = False
EsConsulta = False
EsTabla = False
For Each Objeto In CurrentDb.QueryDefs
If NombreObjeto = LCase(Objeto.Name) Then
Existe = True
EsConsulta = True
Exit For
End If
Next
If Not Existe Then
EsConsulta = False
For Each Objeto In CurrentDb.TableDefs
If NombreObjeto = LCase(Objeto.Name) Then
Existe = True
EsTabla = True
Exit For
End If
Next
End If
End Function ' ExisteObjeto
‘******************
Desde cualquier procedimiento Función desde donde quieras llamar a la Función anterior:
'Antes de xxxx la Tabla/Consulta "NombreTablaConsulta " miro si existe
Call ExisteObjeto("NombreTablaConsulta")
If Existe = False Then
MsgBox "La Tabla/Consulta NombreTablaConsulta no existe. Revisa el Nombre y repite la operación.", vbInformation, "MENSAJE INFORMATIVO"
Exit Sub
Else
‘Lo que quieras
End If
Espero haberte ayudado, ya me contarás. Saludos >> Jacinto