Discussion :

[marot_r]

Bonjour à tous, merci de votre temps et de votre aide.

J'ai besoin par programme de changer des relations dans une BD. Le but est d'ajouter la mise à jour en cascade si elle n'existe pas.

J'ai trouvé ici http://access.developpez.com/faq/?page=TableEtRelation qu'il y a des constantes qui nomme chacun des attributs (ex : dbRelationUpdateCascade) mais je n'arrive pas a m'en servir pour faire des tests.

J'aimerai déterminer si il faut ou ne faut pas ajouter dbRelationUpdateCascade à une relation.

Pour le moment le seul moyen que j'ai trouvé c'est de tester tous les attributs d'un bloc (ex : si attribut = 256256 ou 33554688 ou 16781568 alors la dbRelationUpdateCascade est déjà là et il ne faut rien faire). Ce procédé fonctionne mais parfois je tombe sur une valeur que je n'ai pas encore rencontrée et mon programme s'arrête net. Il faut alors que je regarde la relation et ses attributs dans la fenêtre de relation et que je modifie le code en conséquence. Ce n'est pas très professionnel :o).

Est-ce que quelqu'un a déjà fait des tests sur une 'propriété' d'un attribut de relation ?

A+

[LedZeppII]

Bonjour,

Les attributs individuels ont l'air d'être des masques binaires.
Pour savoir si les bits sont à 1, il faut faire un ET bit-à-bit (And) entre la propriété Attributes et un masque binaire particulier.
Le résultat est 0 si l'attribut n'est pas mis, <>0 s'il l'attribut est mis.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim oDb As DAO.Database, oRel As DAO.Relation
 
Set oDb = CurrentDb
For Each oRel In oDb.Relations
    Debug.Print oRel.Name & " " & oRel.Table & " ----- " & oRel.ForeignTable
    ' Teste le masque dbRelationUpdateCascade
    If (oRel.Attributes And DAO.RelationAttributeEnum.dbRelationUpdateCascade) <> 0 Then
        Debug.Print "   Mise à jour en casacade"
    End If
    ' Teste le masque dbRelationDeleteCascade
    If (oRel.Attributes And DAO.RelationAttributeEnum.dbRelationDeleteCascade) <> 0 Then
        Debug.Print "   Suppression en casacade"
    End If
    Debug.Print
Next

A+

[marot_r]

Merci LedZeppII,

j'avais bien senti que c'était un truc du genre mais je suis null en oppération binaire.

A+