Tester l’existance d’une table

D 29 novembre 2006 H 12:59 A Patrice MOREL

Access 97 | Compatible |
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

Voir en ligne : Trouvé sur le site de Walter Stucki

Utilisé dans Cantor (VFE).

Dans la même rubrique

18 février 2010 – Liste déroulante

26 janvier 2010 – Requête croisée

5 mars 2008 – Evènement sur Onglet

7 février 2008 – Astuces et pièges VBA

8 décembre 2007 – Envoi de mails

Rechercher

Traducteur

Tester l’existance d’une table

Dans la même rubrique

Rechercher

Traducteur

Les plus lus

5 articles au hasard

Les plus populaires