0

キーワードを検索するコードを使用してアクセスで作成した検索フォームがあり、結果を含むテーブルを作成します。

Like"*"&[FORMS]![Search_Form]![KW_Text]&"*"

これは基本的に、入力したキーワードを読み取り、一致する結果を引き出すように指示します。複数の単語を入力できるようにしたいと思います。すべてのデータを含むテーブルには、データの各ビットに対して複数のキーワードがあり、すべてコンマで区切られています。したがって、Manager と入力すると、Manager という単語が含まれるすべての結果が返されます。Manager、Supervisor と入力して、マネージャーのすべての結果とスーパーバイザーのすべての結果を返すようにしたいと考えています。

4

2 に答える 2

0

私はこのコードを使用します。スペースで区切られた文字列の間に OR を作成します。この処理された文字列をクエリ定義に入れます

Function CreateOr(MyCriteria As String, MyField As String) As String

Dim MyChar As String
Dim MyUniqueCriteria As String
Dim MyFinalCriteria As String
Dim I, j As Integer

j = 0
For I = 1 To Len(MyCriteria)
   MyChar = Mid(MyCriteria, I, 1)

   If MyChar = " " Then

        If j = 0 Then
             MyFinalCriteria = MyFinalCriteria & MyField & "=" & MyUniqueCriteria
        Else
             MyFinalCriteria = MyFinalCriteria & " or " & MyField & "=" & MyUniqueCriteria
        End If

        MyUniqueCriteria = ""
        j = j + 1
   Else
        MyUniqueCriteria = MyUniqueCriteria & MyChar
   End If

Next

CreateOr = MyFinalCriteria

End Function

それがあなたを助けることを願っています

于 2013-04-12T14:41:14.667 に答える