Function 模块函数frm.setfocus运行时2449错误

Function 模块函数frm.setfocus运行时2449错误,function,vba,ms-access,setfocus,Function,Vba,Ms Access,Setfocus,我有一个函数问题,它导致frm.setfocus行上出现“运行时错误2449,表达式中存在无效方法”。所引用的表单是一个子表单,是否有人可以帮助解决此错误 功能是: Function NewItemsSaveAfter(frm As Form) If frm.Parent.PartSaveYesNo = "Yes" Then varCurrRec = frm.CurrentRecord frm.Parent.Form.Refresh frm.SetFocus D

我有一个函数问题,它导致frm.setfocus行上出现“运行时错误2449,表达式中存在无效方法”。所引用的表单是一个子表单,是否有人可以帮助解决此错误

功能是:

Function NewItemsSaveAfter(frm As Form)

If frm.Parent.PartSaveYesNo = "Yes" Then
    varCurrRec = frm.CurrentRecord
    frm.Parent.Form.Refresh
    frm.SetFocus
    DoCmd.GoToRecord , , acGoTo, varCurrRec
Else
End If

End Function

将焦点设置为包含子窗体的子控件。

谢谢您的评论,请原谅我的无知,但我该怎么做?单击子窗体的边框(在主窗体中显示时),您将获得包含子窗体的控件的名称(例如
subX
)(在属性中)。然后使用
ParentForm.subX.SetFocus
cheers,这对我不起作用,因为可以从不同的子窗体调用模块函数,所以我确实需要使用“frm”变量。