打印本文   关闭窗口

用VBA代码建立表间字段的关系

作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:54:33  文章录入：杜斌  责任编辑：杜斌

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

打印本文   关闭窗口