access-vba
Vérifiez si la table existe dans la base de données actuelle

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


Remarques

Placez simplement ce code en tant que module public pouvant être appelé par toute autre procédure. Lorsque vous appelez le code, ajoutez le nom de la table que vous souhaitez rechercher dans la parenthèse. Le code renvoie une valeur True / False indiquant si une table existe déjà ou non. Cela est utile lorsque vous devez déterminer si une table doit être supprimée / purgée ou si une table existe déjà avant d'effectuer du code supplémentaire.

Exemple

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

Une fonction un peu plus simple qui peut être utilisée sur une seule ligne

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
Sous licence CC BY-SA 3.0
Non affilié à Stack Overflow