主题：[求助]

e.Sender.Filter = ""

Dim Filter As String

With e.Form.Controls("TextBox1")

    If .Value IsNot Nothing Then

        Filter = "'*" & .Value & "*'"

    End If

End With

If Filter > "" Then

    Tables("快易通資料").Filter = "車牌號碼 Like " & Filter & " Or 公司客戶名稱 Like " & Filter & " Or 工作單號 Like " & Filter & " Or 安裝員地點 Like " & Filter

End If

此主题相关图片如下：错误窗.jpg