Tester l'existance d'une table

Tester l’existance d’une table

Article mis en ligne le 29 novembre 2006

dernière modification le 12 décembre 2006

par Patrice MOREL

Access 97

Access 97 | Compatible |

Access 2003

Access 2003 | Non testé |

Créer un module :

Public Function ExisteTable(NomTable As String) As Boolean
' Déterminer l'existence d'une table interne
' Retourne: Vrai si elle existe, Faux si elle n'existe pas.

Dim Bdd As Database, Test As String
Const INEXISTANTE = 3265
On Error Resume Next
Set Bdd = CurrentDb
Test = Bdd.TableDefs(NomTable).Name
ExisteTable = CBool(Err.Number <> INEXISTANTE)
End Function

Exemple d’appel de la fonction :

If ExisteTable ("NomDeMaTable") Then
   'Effectue une action
End If