Функция модуля frm.setfocus время выполнения 2449 ошибка

Question

У меня проблема с функцией, которая вызывает "RunTime error 2449, Недопустимый метод в выражении" в строке frm.setfocus. Упомянутая форма является подчиненной, пожалуйста, кто-нибудь может помочь с этой ошибкой?

Функция:

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

Answer 1

Установите фокус на дочерний элемент управления, содержащий подчиненную форму.