[5分]出现编译错误：方法或成员未找到

在”frm采购订单_Edit“窗体的加载事件中 加了代码Dim rstUser As Object
08
     Set rstUser = OpenADORecordset("SELECT Sys_Users.Nickname FROM Sys_Users", adLockReadOnly)
09
     Set Me.经办人.Recordset = rstUser
10
     Set Me.制单人.Recordset = rstUser
 '------要添加的代码 开始----
29
        If IsLoaded("SysFrmMain") = True Then
30
            Me.制单人 = Forms!SysFrmMain.Nickname    '该昵称在SysFrmMain窗体,所以必须让SysFrmMain窗体处于打开状态
31
        End If
32
        Me.采购日期 = Date    '也可以直接在控件属性中设置
33
        Me.制单时间 = Date    '也可以直接在控件属性中设置
34
        Me.供应商ID.SetFocus    '这样一打开,就直接定位到选择供应商
35
        '------要添加的代码 结束----