我有一个名为[frmTestsMain]的无界形式,其中包含3个子表单:
我想要的是:
我编写了如下代码并且没有问题如果我直接打开[frmTestsMain]。
Private Sub TestMGroup_Click()
Forms![frmTestsMain]![frmTSGroupList].Form.Filter = "TestMGroup =" & Me.ID
Forms![frmTestsMain]![frmTSGroupList].Form.FilterOn = True
End Sub
和
Private Sub TestSGroup_Click()
Forms![frmTestsMain]![frmTestsList].Form.Filter = "TestSGroup =" & Me.ID
Forms![frmTestsMain]![frmTestsList].Form.FilterOn = True
End Sub
但是当我从导航表单中包含[frmTestsMain]并且有一个min时,我得到一个错误。
我尝试修改代码如下,但我遇到了同样的问题
Private Sub TestMGroup_Click()
Forms![frmMain]![NaviTests]![frmTestsMain]![frmTSGroupList].Form.Filter = "TestMGroup =" & Me.ID
Forms![frmMain]![NaviTests]![frmTestsMain]![frmTSGroupList].Form.FilterOn = True
End Sub
你能帮帮我吗?
感谢
答案 0 :(得分:0)
我找到了解决方案,感谢所有帮助我弄明白的人们
Private Sub TestMGroup_Click()
Forms![frmMain]![NavigationSubform].Form![frmTSGroupList].Form.Filter = "TestMGroup =" & Me.ID
Forms![frmMain]![NavigationSubform].Form![frmTSGroupList].Form.FilterOn = True
End Sub
由于