---Soumis par Dev Ashish---

Comment vérifier si une table existe dans une base de données.

Une façon simple est de traverser la collection TableDefs de la base de données. Par exemple, la fonction suivante retourne Vrai si la table spécifiée existe, Faux autrement.

'******************** Code Start ************************
Function fExistTable(strTableName As String) As Integer
Dim db As Database
Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)
    fExistTable = False
    db.TableDefs.Refresh
    For i = 0 To db.TableDefs.Count - 1
        If strTableName = db.TableDefs(i).Name Then
            'la table existe
            fExistTable = True
            Exit For
        End If
    Next i
    Set db = Nothing
End Function

'******************** Code End ************************