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

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

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)