平台保存按钮时编译错误：变量未定义。代码如下，请赐教

Form_frm02  产能基础  窗体里的代码

Option Compare Database
 Option Explicit
 Private mclsQuery           As GeneralQuery
 Private mdctPermissionList  As Collection

Private Sub Form_Open(Cancel As Integer)
     Set mdctPermissionList = LoadPermissions("02 产能基础", Me)
     If Not mdctPermissionList("<Access Module>") Then
         Exit Sub
     End If
     ApplyTheme Me
     On Error Resume Next
     Me.btnAdd.Enabled = mdctPermissionList("新增")
     Me.btnEdit.Enabled = mdctPermissionList("编辑")
     Me.btnDelete.Enabled = mdctPermissionList("删除")
     Me.btnImport.Enabled = mdctPermissionList("导入")
     Me.btnExport.Enabled = mdctPermissionList("导出")
 End Sub

Private Sub Form_Load()
     On Error GoTo ErrorHandler

    LoadIcon Me.btnAdd_Image, "add.ico"
     LoadIcon Me.btnEdit_Image, "edit.ico"
     LoadIcon Me.btnDelete_Image, "delete.ico"
     LoadIcon Me.btnImport_Image, "import.ico"
     LoadIcon Me.btnExport_Image, "export.ico"
     LoadIcon Me.btnClose_Image, "db cancel.ico"

    Set mclsQuery = New GeneralQuery
     With mclsQuery
         .QueryForm = Me.sfrQuickQuery.Form
         .DataForm = Me.sfrList.Form
         .ClearFields
         .AddAllFields
         .FieldName = "工厂"
     End With
     Me.Recalc

ExitHere:
     Exit Sub

ErrorHandler:
     RDPErrorHandler Me.Name & ": Sub Form_Load()"
     Resume ExitHere
 End Sub

Public Sub RefreshDataList()
     Me.TimerInterval = 200
 End Sub

Private Sub Form_Timer()
     RequeryDataObject Me.sfrList
     If mclsQuery Is Nothing Then
         Call Form_Load
     Else
         mclsQuery.DataForm = Me.sfrList.Form
     End If
     Me.TimerInterval = 0
 End Sub

Private Sub Form_Resize()
     On Error Resume Next
     Dim lngHeight As Long

    Me.sfrQuickQuery.Width = Me.InsideWidth - Me.sfrQuickQuery.Left
     Me.sfrList.Width = Me.InsideWidth - Me.sfrList.Left
     lngHeight = Me.InsideHeight
     lngHeight = lngHeight - Me.Section(acHeader).Height - Me.Section(acFooter).Height
     Me.sfrList.Height = lngHeight - Me.sfrList.Top
 End Sub

Private Sub btnAdd_Click()
     On Error GoTo ErrorHandler

    DoCmd.OpenForm Me.Name & "_Edit", DataMode:=acFormAdd

ExitHere:
     Exit Sub

ErrorHandler:
     Select Case Err.Number
     Case errOpenActionWasCanceled, errOperationCanceledByUser
     Case Else
         RDPErrorHandler Me.Name & ": Sub btnAdd_Click()"
     End Select
     Resume ExitHere
 End Sub

Public Sub btnEdit_Click()
     On Error GoTo ErrorHandler

    If Me.sfrList.Form.CurrentRecord < 1 Then
         Exit Sub
     End If

    Me.sfrList.SetFocus
     RunCommand acCmdSelectRecord
     DoCmd.OpenForm FormName:=Me.Name & "_Edit", _
                    DataMode:=IIf(Me.btnEdit.Enabled, acFormEdit, acFormReadOnly), _
                    OpenArgs:=Me.sfrList![工厂]

ExitHere:
     Exit Sub

ErrorHandler:
     Select Case Err.Number
     Case errOpenActionWasCanceled, errOperationCanceledByUser
     Case Else
         RDPErrorHandler Me.Name & ": Sub btnEdit_Click()"
     End Select
     Resume ExitHere
 End Sub

Public Sub btnDelete_Click()
     On Error GoTo ErrorHandler
     Dim strMsg      As String

    If Me.sfrList.Form.CurrentRecord < 1 Then
         Exit Sub
     End If

    Me.sfrList.SetFocus
     RunCommand acCmdSelectRecord

    strMsg = "确定要刪除吗？"
     If MsgBoxEx(strMsg, vbQuestion + vbOKCancel) = vbCancel Then
         Exit Sub
     End If
     DAORunSQL "DELETE FROM [02 产能基础表] WHERE [工厂]=" & SQLText(Me.sfrList![工厂])
     Me.RefreshDataList
     Me.btnDelete.SetFocus

ExitHere:
     Exit Sub

ErrorHandler:
     RDPErrorHandler Me.Name & ": Sub btnDelete_Click()"
     Resume ExitHere
 End Sub

Public Sub btnImport_Click()
     On Error Resume Next
     ImportFromExcel "02 产能基础表"
     RequeryDataObject Me.sfrList
     mclsQuery.DataForm = Me.sfrList.Form
 End Sub

Public Sub btnExport_Click()
     On Error Resume Next

    If Me.sfrList.Form.CurrentRecord < 1 Then
         Exit Sub
     End If

    Me.sfrList.SetFocus
     ExportToExcel Me.sfrList.Form.Caption
 End Sub

Public Sub btnClose_Click()
     On Error Resume Next
     DoCmd.Close acForm, Me.Name, acSaveNo
     Me.Parent!sfrChild.SourceObject = "SysFrmMain_HomePage"
 End Sub