Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Public Function ExisteTabla(Db As Database, ByVal NombreTabla As String) As Boolean
Dim Tabla As TableDef
For Each Tabla In Db.TableDefs
If UCase(Tabla.Name) = UCase(NombreTabla) Then ExisteTabla = True: Exit Function
next Tabla
ExisteTabla = False
End Function