Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Benoit Compoint [MS]
Bonsoir,
En DAO vous pouvez utiliser la propriété Primary des objets de type Index dans une table, afin de déterminer si la table possède une clé primaire. Par exemple vous pouvez utilisez la fonction "PossedeCle" définie ci-dessous, qui renvoie True ou False.
Benoît Compoint
Function PossedeCle(NomTable As String) As Boolean Dim Cle As Boolean, b As DAO.Database Dim i As DAO.Index, t As DAO.TableDef
Cle = False Set b = CurrentDb Set t = b.TableDefs(NomTable)
For Each i In t.Indexes If i.Primary Then Cle = True Exit For End If Next
PossedeCle = Cle End Function
Bonsoir,
En DAO vous pouvez utiliser la propriété Primary des objets de type Index
dans une table, afin de déterminer si la table possède une clé primaire.
Par exemple vous pouvez utilisez la fonction "PossedeCle" définie
ci-dessous, qui renvoie True ou False.
Benoît Compoint
Function PossedeCle(NomTable As String) As Boolean
Dim Cle As Boolean, b As DAO.Database
Dim i As DAO.Index, t As DAO.TableDef
Cle = False
Set b = CurrentDb
Set t = b.TableDefs(NomTable)
For Each i In t.Indexes
If i.Primary Then
Cle = True
Exit For
End If
Next
En DAO vous pouvez utiliser la propriété Primary des objets de type Index dans une table, afin de déterminer si la table possède une clé primaire. Par exemple vous pouvez utilisez la fonction "PossedeCle" définie ci-dessous, qui renvoie True ou False.
Benoît Compoint
Function PossedeCle(NomTable As String) As Boolean Dim Cle As Boolean, b As DAO.Database Dim i As DAO.Index, t As DAO.TableDef
Cle = False Set b = CurrentDb Set t = b.TableDefs(NomTable)
For Each i In t.Indexes If i.Primary Then Cle = True Exit For End If Next