MSysRelationships - Access 97 *RESOLVED*

[Ephesians]

How do I change/delete this object through code. I need to change the permissions in order to access this object first of all. Ok so I've manually done that but this database still considers itself read-only. I need to copy the relationships from one database to another but this object is really frustrating me.

Thanks

[Ephesians]

Don't worry about it. I took care of it myself.

Public Sub CopyRelations()
Dim dBase As Database, dBase2 As Database
Dim tmpRelation As Relation, newrel As Relation
Dim fld As Field, newfld As Field
 
Set dBase = CurrentDb
Set dBase2 = OpenDatabase(strFileLocation)
 
 
For Each tmpRelation In dBase.Relations
     Set newrel = dBase2.CreateRelation(tmpRelation.Name, tmpRelation.Table, tmpRelation.ForeignTable, tmpRelation.Attributes)
     
     For Each fld In tmpRelation.Fields
          Set newfld = newrel.CreateField(fld.Name)
          newfld.ForeignName = fld.ForeignName
          newrel.Fields.Append newfld
     Next
     dBase2.Relations.Append newrel
Next
 
End Sub