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