我必须等待八个小时才能发布此信息…
使用视觉基本模块
'Define the bit value for the relation Attributes.Public Const dbRelationCascadeNull As Long = &H2000Public Function MakeRel() 'Purpose: Create a Cascade-to-Null relation using DAO. Dim db As DAO.Database Dim rel As DAO.Relation Dim fld As DAO.Field Set db = CurrentDb() 'Arguments for CreateRelation(): any unique name, primary table, related table, attributes. Set rel = db.CreateRelation("membre_bands", "bands", "membres", dbRelationCascadeNull) Set fld = rel.CreateField("ID") 'The field from the primary table. fld.ForeignName = "band"'Matching field from the related table. rel.Fields.Append fld 'Add the field to the relation's Fields collection. db.Relations.Append rel 'Add the relation to the database. 'Report and clean up. Debug.Print rel.Attributes Set db = NothingEnd Function然后调用MakeRel函数
在http://allenbrowne.com/ser-64.html上找到的功能
