Tester l’existence d’une table

Ces articles pourraient également vous intéresser...

4 réponses

  1. Hervé Inisan dit :

    Jeff > Exact (comme je le disais en début d’article, il y a bien plusieurs manières de faire).

    Pour faire court, on peut aussi faire :

    Voire remplacer la ligne strNom par celle-ci, pour cibler des versions plus anciennes d’Access :

    Ouala !

  2. Jeff dit :

    il existe une méthode directe sans boucle à l’aide de la collection AllTables de object CurrentData:

    Public Function TableExist(strTable As String) As Boolean

    Dim DateStr As String

    On Error GoTo ErrH

    If Len(strTable) > 0 Then
    DateStr = Application.CurrentData.AllTables(strTable).DateCreated
    TableExist = True
    Else
    TableExist = False
    End If
    ExitH:
    Exit Function
    ErrH:
    If Err.Number = 2467 Then ‘object inexistant
    strTable = False
    Resume ExitH
    End Function

  3. Hervé Inisan dit :

    Adéquat > Content que ça puisse rendre service ! :)

  4. Adéquat dit :

    Bonjour Hervé !

    Même si celà fait bientôt 5 ans que tu as posté cette astuce, je voudrai quand même te remercier car cette function m’a été très utile aujourd’hui :)

    Encore merci et bonne continuation !

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Vous pouvez utiliser ces balises et attributs HTML : <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code class="" title="" data-url=""> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <pre class="" title="" data-url=""> <span class="" title="" data-url="">