¿Existe Tabla?
¿Me podrías decir cómo saber si existe una tabla en Access para no crearla de nuevo?
Por favor, te agradecería una respuesta con urgencia, pues esto me tiene de cabezas !... Gracias
nadaserio
Por favor, te agradecería una respuesta con urgencia, pues esto me tiene de cabezas !... Gracias
nadaserio
1 respuesta
Respuesta de fvomaster
1
He encontrado en mi antigua biblioteca de códigos algo que te podría servir... pero por favor pruébalo bien..
Public Function TableExists(DatabaseName As String,TableName As String) As Boolean
`DataBaseName = Nombre de la base de datos
`TableName = Nombre de la tabla a buscar
Dim DB As Database, t As TableDef
On Error GoTo errorhandler
Set DB = Workspaces(0).OpenDatabase(DatabaseName)
On Error Resume Next
Set t = oDB.TableDefs(TableName)
TableExists = Err.Number = 0
DB.Close
exit function
errorhandler:
Err.Raise Err.Number
Exit Function
end function
Public Function TableExists(DatabaseName As String,TableName As String) As Boolean
`DataBaseName = Nombre de la base de datos
`TableName = Nombre de la tabla a buscar
Dim DB As Database, t As TableDef
On Error GoTo errorhandler
Set DB = Workspaces(0).OpenDatabase(DatabaseName)
On Error Resume Next
Set t = oDB.TableDefs(TableName)
TableExists = Err.Number = 0
DB.Close
exit function
errorhandler:
Err.Raise Err.Number
Exit Function
end function
