access-vba
Compruebe si la tabla existe en la base de datos actual
Buscar..
Observaciones
Simplemente coloque este código como un módulo público al que se puede llamar mediante cualquier otro procedimiento. Al llamar al código, agregue el nombre de la tabla que desea buscar dentro del paréntesis. El Código devuelve un valor Verdadero / Falso sobre si una tabla ya existe o no. Esto es útil cuando se necesita determinar si una tabla necesita ser eliminada / depurada o si ya existe una tabla antes de realizar un código adicional.
Ejemplo
Public Function TblExists(sTable As String) As Boolean
On Error Resume Next
Dim tdf As TableDef
Set tdf = CurrentDb.TableDefs(sTable)
If Err.Number = 0 Then
TblExists = True
Else
TblExists = False
End If
End Function
Una función algo más simple que se puede usar en una sola línea.
Public Function TableExists(value as String) as Boolean
On Error Resume Next
TableExists = Len(CurrentDb.Tabledefs(value).Name & "") > 0
End Function
Modified text is an extract of the original Stack Overflow Documentation
Licenciado bajo CC BY-SA 3.0
No afiliado a Stack Overflow