Creating a One-to-Many Relationship : Relationship « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Relationship

Creating a One-to-Many Relationship

 
Sub CreateTblRelation()
   Dim cat As New ADOX.Catalog
   Dim fKey As New ADOX.Key

   On Error GoTo ErrorHandle

   cat.ActiveConnection = CurrentProject.Connection

   With fKey
      .Name = "fkPubId"
      .Type = adKeyForeign
      .RelatedTable = "Employee"
      .Columns.Append "EmpId"
      .Columns("Id").RelatedColumn = "PubId"
   End With
   cat.Tables("java2sTable").Keys.Append fKey
   MsgBox "Relationship was created."

   Set cat = Nothing
   Exit Sub

ErrorHandle:
   cat.Tables("java2sTable").Keys.Delete "fkPubId"
   Resume
End Sub

 

Related examples in the same category