FONCTION DAO PERMETTANT DE VÉRIFIER SI UNE TABLE POSSÈDE UN INDEX

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 zip