请问如何在子窗体中执行主窗体的Form_Current事件？

roych

1. Public Sub ZAQ()
   
2. Dim rst As DAO.Recordset
   
3. If [Forms]![主窗体]![Text4] = -1 Then
   
4.     [Forms]![主窗体]![子窗体2].Visible = True
   
5. Else
   
6.     [Forms]![主窗体]![子窗体2].Visible = False
   
7. End If
   
8. 
   
9. Set rst = CurrentDb.OpenRecordset("SELECT * FROM 表2 WHERE 对应表1=" & Forms!主窗体!编号 & " AND u=" & Forms!主窗体!Text4)
   
10. Set [Forms]![主窗体]![子窗体2].Form.Recordset = rst
    
11. End Sub
    

复制代码

1、就源文件来看，变量问题未搞清楚。——具体请参考代码中的SQL语句。这是最基础的问题，希望楼主能够脚踏实地地先把基础夯实了再去考虑那些花里胡哨的效果。
2、数据源确实是更新了，但问题是：窗体2的记录集来源未更新（这与非绑定的子窗体控件指定窗体来源不同）。——这一点可以先按你的原附件，不绑定窗体2的记录集试试，再debug.Print就知道了。
……错误的地方太多了，懒得吐槽了。

真主

roych 发表于 2014-12-9 15:09
1、就源文件来看，变量问题未搞清楚。——具体请参考代码中的SQL语句。这是最基础的问题，希望楼主能够 ...

哈哈，谢谢大师出手，要是大师肯收我为徒就好了，只是不知道大师怕不怕被气坏

phch163

好像学习