Sub CreateRelationX()
Dim relNew As Relation
With CurrentDb
Set relNew = .CreateRelation("表2表1ID编号", "表2", "表1", dbRelationDontEnforce + dbRelationUnique) 'dbRelationUnique)表示一对一
relNew.Fields.Append relNew.CreateField("ID")
relNew.Fields!ID.ForeignName = "编号"
.Relations.Append relNew
.Close
End With
End Sub
责任编辑：小草
