主表所属子表间切换

张岚夜　发表于：2012-10-15 14:00:18 　

复制

若一个主表有多个子表，在第一次展开的时候系统会提示确定一个子表，如果想切换成别的子表怎么办？

Top

西出阳关无故人发表于：2012-10-15 16:16:34

主窗体：合同子窗体

子窗体：子表

Frame5：用于选择不同的子表。

********

Private Sub Frame5_AfterUpdate()
Dim B
B = Me.合同子窗体!合同编号
Select Case Frame5.Value
Case 1
    Me.合同子窗体!子表.SourceObject = "表.合同明细"
Case 2
    Me.合同子窗体!子表.SourceObject = "查询.合同入库清单"
Case 3
    Me.合同子窗体!子表.SourceObject = "表.合同付款"
   Case 4
    Me.合同子窗体!子表.SourceObject = "表.合同备忘"
   Case 5
    Me.合同子窗体!子表.SourceObject = ""
End Select
    Me.合同子窗体!子表.LinkMasterFields = "合同编号"
    Me.合同子窗体!子表.LinkChildFields = "合同编号"
    'Me.合同子窗体!子表.Form.RecordsetType = 2
    Me.Refresh
End Sub

Top

张岚夜发表于：2012-10-16 08:57:20

非常感谢！！！

Top

米兰发表于：2012-12-08 21:49:06

学习，谢谢

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

主表所属子表间切换