access-vba
Kontrollera om tabellen finns i aktuell DB

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


Anmärkningar

Placera helt enkelt den här koden som en offentlig modul som kan anropas med någon annan procedur. När du ringer koden lägger du till namnet på tabellen du vill leta upp inom parentesen. Koden returnerar ett sant / falskt värde på om en tabell redan finns eller inte. Detta är användbart när du behöver avgöra om en tabell måste raderas / rensas eller om en tabell redan finns innan ytterligare kod utförs.

Exempel

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

En något enklare funktion som kan användas på en rad

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
Licensierat under CC BY-SA 3.0
Inte anslutet till Stack Overflow