lister et effacer une relation entre 2 tables dans une base extern

Bonjour,

Sub essai()
Dim Db As DAO.Database
Dim NomBase As String
Dim MaRelation As Relation

NomBase = "C:NomDeLaBase.mdb"
Set Db = DBEngine.Workspaces(0).OpenDatabase(NomBase)
For Each MaRelation In Db.Relations
Debug.Print MaRelation.Name
Next MaRelation
Set Db = Nothing
End Sub


Pour supprimer
Db.Relations.Delete MaRelation

--
Gilbert


"michel_bdx" <michelbdx@discussions.microsoft.com> a écrit dans le message
de news: 9F7BF87C-38DC-4204-936C-C05F334A920B@microsoft.com...

bonjour

quel est le code en access 2000 pour
lister les relations entre les tables d'une base de données externe
supprimer une relation entre 2 tables d'une base de données externe

merci
michel