Fonction qui verifie l'existence d'une table access
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
je veux une fonction qui verifie l'existence d'une table access et qui fonctionne bien
' 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
- Fonction qui verifie l'existence d'une table access
- Php table - Conseils pratiques -PHP
- Fonction nz access ✓ - Forum Visual Basic 6
- Swing table java - Forum Java
- Remise en fonction - Forum C / C++ / C++.NET
- Sub ou fonction non définie - Forum VB.NET
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.