Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Create a relation

Sub exaRelations()     Dim db As Database     Dim rel As Relation     Dim fld As Field           Set db = CurrentDb     Set rel = db.CreateRelation("PublisherRegions", "PUBLISHERS", "SALESREGIONS")     rel.Attributes = dbRelationUpdateCascade     Set fld = rel.CreateField("PubID")     fld.ForeignName = "PubID"     rel.Fields.Append fld     db.Relations.Append rel End Sub