Discussion :

[Stargate SG1]

Bonjour
j'aimerais connaitre le code permettant de tester l'existence d'une table dans un mdb lié

Merci

[philben]

bonjour,

une solution dans la faq via <tabledefs>,

Philippe

[Stargate SG1]

Dans la FAQ j'ai pas trouvé vraiment ce que je cherchais

Mais après quelques recherches voici la bonne fonction a utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function ExisteTableDATA(NomTable As String)
    Dim Db As DAO.Database
    Dim tbd As DAO.TableDef
    Dim fld As DAO.Field
 
    strPath = DLookup("[Chemin de la base source]", "[CHEMIN]")
 
    Set Db = OpenDatabase(strPath)
 
    For Each tbd In Db.TableDefs
        If tbd.Name = NomTable Then
            ExisteTableDATA = True
        Exit For
        End If
    Next
End Function