1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources VBA
  5. Fonction dao permettant de vérifier si une table possède un index

Fonction dao permettant de vérifier si une table possède un index

Soyez le premier à donner votre avis sur cette source.

Vue 5 956 fois - Téléchargée 354 fois

Télécharger le projet
Commenter

Description

La fonction Verifier_Cle_Primaire_Exist utilise comme paramètre le nom d?une table et passe en revue toute la collection d?index de cette table pour vérifier si la propriété .Primary de l?index est vrai. Pour utiliser cette fonction vous devez ajouter une référence DAO 3.51 ou 3.6.

Le code ci-dessous vous donne différentes façons d?appeler cette fonction.

Un fichier zip (base Access 2000) est inclus.

Source / Exemple : 


Sub Test_Verifier_Cle_Primaire_Exist ()
        MsgBox "= " & Verifier_Cle_Primaire_Exist(strNomTable:="Projets")
        
        ' ou
'        Call Verifier_Cle_Primaire_Exist(strNomTable:="Projets")
        
         ' ou
'        If Verifier_Cle_Primaire_Exist(strNomTable:="Projets") = True Then
'
'        End If
End Sub

        ' Fonnction pour vérifier si une table possède une clé primaire
Function Verifier_Cle_Primaire_Exist(strNomTable As String) As Boolean
        On Error GoTo TrappeErreur
        Dim BaseDonnees As DAO.Database
        Dim idx As DAO.Index
        Dim tdfTable As DAO.TableDef
        
        Set BaseDonnees = CurrentDb()
        Set tdfTable = BaseDonnees.TableDefs(strNomTable)
        
        Verifier_Cle_Primaire_Exist = False
        
        For Each idx In tdfTable.Indexes
                If idx.Primary = True Then
                        Verifier_Cle_Primaire_Exist = True
                End If
        Next idx
Sortie:
        Set BaseDonnees = Nothing
        Set tdfTable = Nothing
        Exit Function
TrappeErreur:
        MsgBox Err.Description
        Resume Sortie
End Function
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_drissou Messages postés 160 Date d'inscription dimanche 7 décembre 2003 Statut Membre Dernière intervention 14 janvier 2009
6 juil. 2007 à 12:05
Oui,

pour ma part je l'utilise régulièrement..
bouv Messages postés 1411 Date d'inscription mercredi 6 août 2003 Statut Membre Dernière intervention 3 mars 2019 1
6 juil. 2007 à 11:43
Je savais pas qu'on utilisait encore du DAO ^^
S'inscrire maintenant

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.

Du même auteur (hector_quebec)