Quería saber si desde un modulo se puede saber si existe o no una tabla en Microsoft Access
Hola, quería saber si desde un modulo se puede saber si existe o no una tabla.
Muchas gracias por adelantado.
Muchas gracias por adelantado.
1 respuesta
Respuesta de mecamp
1
Como va a ser imposible. No hay nada imposible en esta vida.
'Función que comprueba si existe una tabla en la base de datos
Public Function ExisteTabla(strTabla As String, Optional bolBorrar As Boolean = 0) As Boolean
Dim dbs As Database
Dim rst As Recordset
Dim strCriterio As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("MSysObjects", dbOpenDynaset)
'Creo el criterio de búsqueda
strCriterio = "Name" & " = '" & strTabla & "'"
'Busca la tabla
rst.FindFirst strCriterio
If rst.NoMatch Then
ExisteTabla = False 'La tabla no existe.
Else
ExisteTabla = True 'La tabla existe.
End If ' rst.NoMatch
rst.Close
Set rst = Nothing
Set dbs = Nothing
End Function
'Función que comprueba si existe una tabla en la base de datos
Public Function ExisteTabla(strTabla As String, Optional bolBorrar As Boolean = 0) As Boolean
Dim dbs As Database
Dim rst As Recordset
Dim strCriterio As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("MSysObjects", dbOpenDynaset)
'Creo el criterio de búsqueda
strCriterio = "Name" & " = '" & strTabla & "'"
'Busca la tabla
rst.FindFirst strCriterio
If rst.NoMatch Then
ExisteTabla = False 'La tabla no existe.
Else
ExisteTabla = True 'La tabla existe.
End If ' rst.NoMatch
rst.Close
Set rst = Nothing
Set dbs = Nothing
End Function
