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

marlsq

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

marlsq

成功解决！谢谢老师！

fine88888888

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

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

fine88888888

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