Fonction qui verifie l'existence d'une table access

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 940 fois - Téléchargée 37 fois

Contenu du snippet

Public Function ExisteTableDAO(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
ExisteTableDAO = CBool(Err.Number <> INEXISTANTE)
End Function

Conclusion :


je veux une fonction qui verifie l'existence d'une table access et qui fonctionne bien

A voir également

Ajouter un commentaire

Commentaires

Messages postés
8
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
16 février 2005

ma fonction permet d'avoir le nom de ma table et le probleme c'est : je veux à partir de cette fonction connaitre l'existence de ma table et en cas d'existence je veux une structure qui ma permet de supprimer cette table et de recréer par la suite
Messages postés
81
Date d'inscription
dimanche 21 juillet 2002
Statut
Membre
Dernière intervention
11 octobre 2015

est-ce qu'avec ta fonction on peut avoir les noms de tables et les nom de champ???

Si oui quelle modif faire STP.

Cordialement

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.