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

---

Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

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.

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

• CRÉATION ASSISTÉE PAR CODE DAO D’UNE TABLE DANS MS ACCESS – NOMBRE ET TYPE DE CHAMPS SELON LES BESOINS.
• UTILISATION D’UNE COLLECTION POUR GÉRER TOUS LES PARAMÈTRES D’UNE APPLICATION MS ACCESS
• REQUÊTE SQL UNION DE MS ACCESS ERRONÉE SANS LE PRÉDICAT ALL.

• COMMENT DESSINER UN GRAPHE ORIENTE BY CHIHAOUI CAD UN GRAPHE QUI CONTIENT DES FLÈCHES ET NON PAS DES ARCS
• LISTE DES EMAILS, NUMÉRO DE TÉLÉPHONNES DES TRAVAILLEURS
• CALCUL DE MORTIER ET BETON
• GESTION DES BONS DE LIVRAISON
• GESTION DE STOCK

• UN ACCESS MOIN COMPLET (IL MANQUE L'ÉDITEUR DE BASE DE DONNÉ)
• CRÉATION ASSISTÉE PAR CODE DAO D’UNE TABLE DANS MS ACCESS – NOMBRE ET TYPE DE CHAMPS SELON LES BESOINS.
• BASE DE DONNÉES ACCESS VIA DAO EN VB6 ( EXEMPLE COMPLET )
• CRÉATION DUNE BASE DE DONNÉE
• COMBODATA ACCES - LISTE UN CHAMP ET DONNE SON INDEX DANS LA BASE