主题：窗口控件代码提示出错

我有窗口控件TextChanged代码：
Dim Filter As String
With e.Form.Controls("日图号")
    If .Value IsNot Nothing Then
        Filter = "图号 = '" & .Value & "'"
Tables("产品目录").Filter = Filter '筛选
    End If
End With
With e.Form.Controls("日工序序号")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "工序_序号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("日工艺序号")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "工艺_序号 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("产品工艺").Filter = Filter '筛选
    Tables("审核工时_Table3").Filter = Filter '筛选
End If

怎么在打开窗口时会提示：


此主题相关图片如下：1111.gif