求助：用代码设定子窗体与主窗体之间的关链字段,并实现参照完整性、级联更新和删除？

linjingdr

如题：
我设计了一个主窗体，命名为A窗
子窗体命名为childform,用me.childform.sourceobject来改变子窗体的数据源。(不是recordsource)
请问能不能用代码设定子窗体与主窗体之间的关链字段,并实现参照完整性、级联更新和删除？(不是在关系中设定)
如果能，请帮我做个实例好吗？

小小白菜

你的库表都是空的，得有数据才有下手的地方

roych

1. Private Sub Label14_Click()
   
2.     Dim rel As Relation
   
3. '修改表间关系之前，应先取消窗体对表的绑定
   
4.     Me.ChildFORM.SourceObject = ""
   
5.     Me.Form.RecordSource = ""
   
6. '如果已建立关系则先删除关系
   
7.     For Each rel In CurrentDb.Relations
   
8.         If rel.Name = "MyRel" Then
   
9.             CurrentDb.Relations.Delete rel.Name
   
10.             Exit For
    
11.         End If
    
12.     Next
    
13.    
    
14.     With CurrentDb
    
15. '新建关系
    
16.         Set rel = .CreateRelation("MyRel", "AAF就诊记录A", "AAF颗粒剂处方A", dbRelationDeleteCascade + dbRelationUpdateCascade)
    
17.         With rel
    
18. '创建关系的主键
    
19.             .Fields.Append rel.CreateField("ID")
    
20. '创建关系的外键
    
21.             .Fields("ID").ForeignName = "ID"
    
22.         End With
    
23. '创建关系
    
24.         .Relations.Append rel
    
25.         .Close
    
26.     End With
    
27. '更新窗体
    
28.     Me.ChildFORM.SourceObject = "AAF常用语BC"
    
29.     Me.Form.RecordSource = "AAF就诊记录A"
    
30.     MsgBox "关系创建完毕"
    
31. End Sub

复制代码

详见附件的窗体【AAF就诊记录AC】：


附上关系属性的常量说明：

名称	值	说明
dbRelationDeleteCascade	4096	级联删除
dbRelationDontEnforce	2	不实施关系（无参照完整性）
dbRelationInherited	4	关系存在于包含两个链接表的数据库中
dbRelationLeft	16777216	仅适用于 Microsoft Access。在设计视图中，将"左联接"显示为默认的联接类型。
dbRelationRight	33554432	仅适用于 Microsoft Access。在设计视图中，将"右联接"显示为默认的联接类型。
dbRelationUnique	1	一对一关系
dbRelationUpdateCascade	256	级联更新

linjingdr

非常感谢!下载了，慢慢学习