教程中的问题请指教

各位老师，我在按照教程学习的时候，在做到修改窗体的时候出现如下错误：

代码如下：

Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)

If IsNull(Me.ygxm) Then

MsgBox "请输入员工姓名!", vbCritical, "提示："

Me.ygxm.SetFocus

Exit Sub

End If

Me.Refresh

DoCmd.Echo False

Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"

DoCmd.Echo True

 '触发子窗体计时器事件

Forms!usysfrmMain!frmChild.Form.TimerInterval = 300

DoCmd.Close acForm, "frmyg_child_Edit"

End Sub