Office中国论坛/Access中国论坛

标题: 请问如何在子窗体中执行主窗体的Form_Current事件？ [打印本页]

作者: 真主 时间: 2014-12-6 21:38
标题: 请问如何在子窗体中执行主窗体的Form_Current事件？
本帖最后由真主于 2014-12-6 21:40 编辑

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

作者: tmtony 时间: 2014-12-6 22:39
1.将主窗体的form_current 改为 public,然后引用
2.将form_current 内容写到公共函数中

作者: xjb_test 时间: 2014-12-6 23:12
王站，可否提供个小示例看看

作者: 真主 时间: 2014-12-7 11:47
通过王站的指点，在子窗体中执行主窗体的事件可以了，但数据源更新不对，烦请王站帮忙看看

作者: roych 时间: 2014-12-8 13:35
没有出错，只是你没理解true的含义罢了。

作者: 真主 时间: 2014-12-8 21:40

roych 发表于 2014-12-8 13:35
没有出错，只是你没理解true的含义罢了。

roych兄，你是说的那里？我说的是

[Forms]![主窗体]![子窗体2].Form.RecordSource = "SELECT * FROM 表2 WHERE 对应表1=Forms!主窗体!编号 AND u=Forms!主窗体!Text4"

复制代码

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

作者: roych 时间: 2014-12-9 09:09

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

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

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

作者: 真主 时间: 2014-12-9 13:03

roych 发表于 2014-12-9 09:09
就是这里啊。点选之后，子窗体1的值就是ture，也就是-1，那么再传递到主窗体时也是-1，对应的子窗体2的u ...

可能你没仔细看，表2中的U中有-1的相关记录，所有这才是我才想不通的地方

作者: roych 时间: 2014-12-9 13:26

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

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

作者: 真主 时间: 2014-12-9 14:12

roych 发表于 2014-12-9 13:26
不是啊。两个条件同时成立的记录并不存在。

[attach]55198[/attach]
表2中有主窗体的对应数据，但就是在子窗体2中出不来

作者: roych 时间: 2014-12-9 15:09

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

复制代码

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

作者: 真主 时间: 2014-12-10 13:23

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

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

作者: phch163 时间: 2021-3-14 20:10
好像学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)