Access Test presence table puis suppr

Résolu/Fermé
Signaler
-
 Rhyton le boyar -
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

Access 2002

1 réponse


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