MS Accessでユーザー入力に基づいてカスタムフィルターを作成する方法

Question

私は、多くのコントロールを持つフォームを持っています。私は、検索条件として任意のフィールド値を使用してフォーム上の任意のレコードを検索することができますカスタムフィルタを作成したいと思います。たとえば ：などのユーザーIDを使用してレコードを検索することができますかグレードを使用して検索することができ、

私は今のfollwingコードをwriitenています

Private Sub CmdFind_Click() 
    Dim filterStr As String 
    Dim strWhere As String 

     filterStr = InputBox("Enter your filter criteria") 
     strWhere = "[SalesOrderNumber] = '" & filterStr & "' " 

     Me.Filter = strWhere 
     Me.FilterOn = True 

     End Sub 

しかし、これは唯一の「SalesOrderNumber」を検索します。他の値を使って検索する機能も欲しい。 ご協力いただければ幸いです。ありがとうございます

Answer 1

私は理解できます。複数のフィールドを検索したい。そのあなたが使用してよい場合OR句で

：

Private Sub CmdFind_Click() 

    Dim filterStr As String 
     filterStr = InputBox("Enter your filter criteria") 

    Dim filters(0 To 2) As String 
     filters(0) = BuildCriteria("SalesOrderNumber", dbText, filterStr) 
     filters(1) = BuildCriteria("UserPhoneNumber", dbText, filterStr) 
     filters(2) = BuildCriteria("Comments", dbText, filterStr) 

    Me.Filter = Join(filters, " OR ") 
    Me.FilterOn = True 

End Sub