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

Soyez le premier à donner votre avis sur cette source.

Vue 5 717 fois - Téléchargée 340 fois

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
160
Date d'inscription
dimanche 7 décembre 2003
Statut
Membre
Dernière intervention
14 janvier 2009

Oui,

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

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.