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

Actus

Un PDG de la SNCF à Savenay !

Après avoir été interpellé hier par les cégétistes cheminots en gare de (…)

L’ami de la pelloche !

Vous l’avez certainement croisé un jour, au cours d’une manif. à Nantes, (…)

8 mai en recyclerie !

Largement écœuré par ce gouvernement et son empereur, au-delà de toute (…)

Leonard Peltier libre !

Leonard Peltier, un Amérindien condamné deux fois à la prison à vie pour un (…)

En Pays-de-la-Loire le couperet est tombé !

« La présidente Horizons de la région Pays de la Loire veut faire voter ce (…)