MS Access将级联到空约束设置为现有表

MS Access将级联到空约束设置为现有表

我必须等待八个小时才能发布此信息…

使用视觉基本模块

'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上找到的功能