Discussion :

[popofpopof]

bonjour,

je souhaite supprimer toute les relance entre toute mes tables j'ai trouvé ce codes

Code :

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

1
2
3
4
5
6
7
8
Function xDropRelations()
Dim Rel As Relation
    For Each Rel In CurrentDb.Relations
        Debug.Print "effacement de la relation [" & Rel.Table & "]![" & Rel.Fields(0).name & "] -=-> _
                         & "[" & Rel.ForeignTable & "]![" & Rel.Fields(0).ForeignName & "]"
        CurrentDb.Relations.Delete Rel.name
    Next Rel
End Function

par contre quand je le lance il me dis :
erreur d'exécution 3033 :
vous n'avez pas l'autorisation requise pour utiliser l'objet "Msysnavpanegrooups". demander l'autorisation requise a votre administrateur systeme ou à la personne ayant crée cet objet.

Hors c'est une base avec juste des tables sans droit dessus

pouvez vous m'aidé?

merci

[tee_grandbois]

bonjour,

Hors Or c'est une base avec juste des tables sans droit dessus

oui mais tu n'as pas l'autorisation de faire des modifications sur les tables système qui ont aussi des relations entre elles.
Teste le début du nom avant de supprimer la relation :

Code :

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

If Left(Rel.Table, 4) <> "MSys" Then CurrentDb.Relations.Delete Rel.name

[popofpopof]

super merci beaucoup sa fonctionne