access-vba
Sprawdź, czy tabela istnieje w bieżącej bazie danych

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


Uwagi

Po prostu umieść ten kod jako moduł publiczny, który można wywołać za pomocą dowolnej innej procedury. Podczas wywoływania kodu dodaj nazwę tabeli, którą chcesz wyszukać w nawiasie. Kod zwraca wartość True / False określającą, czy tabela już istnieje. Jest to przydatne, gdy trzeba ustalić, czy tabela wymaga usunięcia / wyczyszczenia lub czy tabela już istnieje przed wykonaniem dodatkowego kodu.

Przykład

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

Nieco prostsza funkcja, której można użyć w jednym wierszu

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
Licencjonowany na podstawie CC BY-SA 3.0
Nie związany z Stack Overflow