Display Relationship Name so I can drop it

[Alan Rose]

Hi I need to find the name of a relationship between two fields in different
tables in access, so I can drop the relationship (constraint). How do i find
out the name of a relationship? Access seems to only display the link in a
relationship diagram, it gives me no name. I have to use SQL to drop the
relationship I cant use access because it nopt available at remote site. Can
you display the relationship table for instance. Thanks.

 

[John W. Vinson/MVP]

Hi I need to find the name of a relationship between two fields in different
tables in access, so I can drop the relationship (constraint). How do i find
out the name of a relationship? Access seems to only display the link in a
relationship diagram, it gives me no name. I have to use SQL to drop the
relationship I cant use access because it nopt available at remote site. Can
you display the relationship table for instance. Thanks.

Should be able to adapt this:

Sub ShowAllRelations()
Dim db As DAO.Database
Dim rel As Relation
Dim fld As Field
Set db = CurrentDb
For Each rel In db.Relations
Debug.Print "Relation "; rel.Name, rel.Table, rel.ForeignTable,
Hex(rel.Attributes)
For Each fld In rel.Fields
Debug.Print fld.Name; " linked to "; fld.ForeignName
Next fld
Next rel
End Sub

Obviously you can pass the table and foreigntable names as
parameters...

 

[Alan Rose]

Many thanks John

Should be able to adapt this:

Sub ShowAllRelations()
Dim db As DAO.Database
Dim rel As Relation
Dim fld As Field
Set db = CurrentDb
For Each rel In db.Relations
Debug.Print "Relation "; rel.Name, rel.Table, rel.ForeignTable,
Hex(rel.Attributes)
For Each fld In rel.Fields
Debug.Print fld.Name; " linked to "; fld.ForeignName
Next fld
Next rel
End Sub

Obviously you can pass the table and foreigntable names as
parameters...

 

[Alan Rose]

Sorry. New to these groups and had no idea what one i should be in. Wont
happen again. cheers