主题：窗口中点击两次按钮过滤才能起作用

 销售主界面有个“修改订单”按钮，代码是这样的：
Forms("订单修改").open
If Forms("销售主界面").opened AndAlso Tables("销售主界面_Table2").current IsNot Nothing Then
    Tables("销售订单").Filter = "订单号 = '" &  Tables("销售主界面_Table2").Current("订单号") & "'"
Else
    Tables("销售订单").Filter = " "
End If

每次要点击两次按钮Filter 才起作用，什么问题？

1 

2 

后面没有信息显示了 

点击第二次filter有作用时： 

1 

2 

后面无信息显示 

销售主界面_Table2 没有记录的时候，点击修改按钮msgbox显示： 

1 

True 

false

好像是正常的

补充：销售主界面窗口类型是主窗口，订单修改窗口类型是模式窗口。