Access Test presence table puis suppr Résolu/Fermé

Question

Bonjour,

Tout d'abord je suis novice en VB et en Bdd tout cours,
Je cherche a tester la presence d'une table puis a la supprimer si elle existe.

J'ai trouve sur la toile la fonction ci-dessous puis j'ai essayé de programmer la suite (le Private sub Command29)

Cela marche quand il y a bien la table existe bien mais pas quand elle n'existe pas, je me trouve face à un runtime error 7874 ou 424.

Si quelqu'un peut me brieffer sur mes erreurs et m'aider à mieux comprendre je lui en serai reconnaissant.

Merci d'avance,

Rhyton


Public Function cnxTable(ByVal strTable As String) As Boolean

    Dim strSQL As String

    strSQL = "Select * from " & strTable

    On Error GoTo errors

    Db.Execute (strSQL)

errors:

    If err = 3078 Then

        cnxTable = False

Else
        cnxTable = True

    End If

End Function

Private Sub Command29_Click()

If cnxTable("SUPPLIERS$_ImportErrors") = True Then DoCmd.RunMacro "M_DeleteImporterror", 1 Else Resume End_IF

End_IF: End Sub

Configuration: Windows XP / Internet Explorer 6.0 Access 2002

Rhyton le boyar · Answer

J'ai enfin trouvé une solution sur un post qui me satisfait,

Je vous la remet ci-dessous

Dim obj As AccessObject, dbs As Object
        Set dbs = Application.CurrentData
        For Each obj In dbs.AllTables
        If obj.Name = "Tablename" Then
        DoCmd.DeleteObject acTable, "Tablename"
        End If
        Next obj

Access Test presence table puis suppr

1 réponse

Discussions similaires