access-vba
Проверьте, существует ли таблица в текущей базе данных

.NET Framework C# Language excel-vba HTML MySQL Regular Expressions SQL Microsoft SQL Server Visual Basic .NET Language VBA

замечания

Просто разместите этот код как общедоступный модуль, который может быть вызван любой другой процедурой. При вызове кода добавьте имя таблицы, которую вы хотите найти в круглой скобке. Код возвращает значение True / False, независимо от того, существует ли таблица. Это полезно, когда необходимо определить, нужно ли удалять / очищать таблицу или если таблица уже существует до выполнения дополнительного кода.

пример

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

Несколько более простая функция, которая может использоваться в одной строке

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

Лицензировано согласно CC BY-SA 3.0

Не связан с Stack Overflow