Re: How can I change the Relationships default name

I use a little script in my PDMs.  It gives you quite a bit of control.  Here's a snippet. It lost format on paste.

Sub ShowProperties(package)   ' Get the Tables collection 

Dim ModelTables   Dim ModelColumns 

Set ModelTables = package.Tables   '

For each table   Dim noTable   Dim tbl   Dim bShortcutClosed   Dim Desc   Dim col   

For Each tbl In ModelTables   Set ModelColumns = tbl.Columns       

Dim Keys         Dim key

-- I use the Key names in the computed names       

Set Keys = tbl.Keys       

For Each key in Keys

     key.ConstraintName = Key.Name                 

For Each col in ModelColumns

-- You can use extended attributes to customize more.  I set my default constraint tames here too.

col.SetExtendedAttribute "SqlServer.ExtDeftConstName", "DF_" + Replace(col.Table.Code, "_", "") + "_" + Replace(col.Name, "_", "")             col.CheckConstraintName = "CKC_" + Replace(col.Table.Code, "_", "") + "_" + Replace(col.Name, "_", "")

-- The Constraints

   Dim ModelRefs   Dim ref   Set ModelRefs = package.References 

For Each ref in ModelRefs       ref.ForeignKeyConstraintName = "FK_" + Replace(ref.ChildTable.Code, "_", "") + "_" + Replace(ref.ForeignKeyColumnList, "_", "")       ref.Name = ref.ForeignKeyConstraintName       ref.Code = ref.ForeignKeyConstraintName

  Next     End Sub