双击子窗体中的某字段，达到隐藏该子窗体。求助！（已解决）

marlsq · 发表于 2011-10-20 15:37:06

本帖最后由 marlsq 于 2011-10-20 21:20 编辑

期望达到效果：双击子窗体中字段（PR）后，让该子窗体隐藏。
问题：
我把隐藏子窗体的代码放在“隐藏”按钮中能正常执行，但放到在双击PR字段的事件中却没有效果。
请高手帮帮忙！

fine88888888 · 发表于 2011-10-20 15:55:54

先把焦点移出，再执行隐藏代码。

marlsq · 发表于 2011-10-20 15:58:56

我不会写转移焦点的代码，试过不成功。请老师教我！

fine88888888 · 发表于 2011-10-20 17:14:37

Private Sub PR_DblClick(Cancel As Integer)
Dim frm1 As Form
On Error Resume Next
Form_R1采购控制中心.R1子窗体1.SetFocus
Forms("R1采购控制中心").Controls("R1子窗体2").Form.Visible = False
Set frm1 = Forms("R1采购控制中心").Controls("R1子窗体1").Form
frm1.Filter = "合同订单号='" & Me![合同订单号] & "'"
frm1.FilterOn = True

End Sub
你懂得~~~~

marlsq · 发表于 2011-10-20 21:20:38

成功解决！谢谢老师！

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 双击子窗体中的某字段，达到隐藏该子窗体。求助！（已解决）

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)