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