El siguiente código VBA es para realizar la comprobación de existencia de una tabla, consulta o cualquier otro objeto para trabajar con él con posterioridad. Es decir, saber de antemano si existe, por ejemplo, una tabla antes de realizar un acceso a la misma y que se produzca un error en caso de no existir.
Sólo quedaría incluir el nombre de la tabla entre las comillas situadas entre paréntesis.
**********************************************************
Dim tb As DAO.TableDef
On Error Resume Next
Sólo quedaría incluir el nombre de la tabla entre las comillas situadas entre paréntesis.
**********************************************************
Dim tb As DAO.TableDef
On Error Resume Next
Set tb = CurrentDb.TableDefs("")
tbExists = Err.Number = 0
If tbExists Then
MsgBox "Existe"
Else
MsgBox "No existe"
End If
**********************************************************
**********************************************************
