主题：条件打开窗口

Dim Filter As String
With e.Form.Controls("姓名")
    If .Value IsNot Nothing Then
        Filter = "姓名 = '" & .Value & "'"
    End If
End With
If Filter  > "" Then
    Tables("表A").Filter = Filter

End If

请指点代码错在哪?谢谢!