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

我有窗口控件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

产品工艺表是窗口绑定表，加载视图有图号列，点击几次提示窗口确定，窗口显示正常，功能也正常，其中有不提示的时候，所以搞不懂是怎么回事

我这样写，窗口编辑器都关不了，Tables("审核工时_产品工艺").
请教C版应该怎样写，谢谢

窗口名称是：审核工时，窗口表绑定产品工艺，默认类型：非副本

我把表类型设为副本，调用窗口表名称用Tables("审核工时_Table2").搞定

日图号是TextBox控件，还有两个类似的控件，及日工序序号和日工艺序号，都是绑定到日报表，并且日报表也有窗口Tables，是非副本类型绑定表，3个控件的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
改了以后有几次没有提示，我还以为搞定了，后来又出现提示了

明天我抽时间做一个示范文件看看，但我担心做的示范文件可能不会提示，因我现在的也是有时候提示，也有时候不会提示，有提示的时候，点击确定，窗口又能正常显示，功能也正常，也就是能达到我的使用要求，就是在有提示时需要多点几次确定按钮。