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

roych

没有出错，只是你没理解true的含义罢了。

roych

真主 发表于 2014-12-8 21:40
roych兄，你是说的那里？我说的是

这段代码执行后，结果不对！

就是这里啊。点选之后，子窗体1的值就是ture，也就是-1，那么再传递到主窗体时也是-1，对应的子窗体2的u没有-1的值，自然是找不到记录的了。

roych

真主 发表于 2014-12-9 13:03
可能你没仔细看，表2中的U中有-1的相关记录，所有这才是我才想不通的地方

不是啊。两个条件同时成立的记录并不存在。

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就知道了。
……错误的地方太多了，懒得吐槽了。