部分一致での検索方法

質問

Access2000のVBAで3つのオプションボタンでフィールドを選択し、1つのテキストボックス(オプションテキスト)に文字列を入力して検索ボタンで検索するプログラムを以下のような記述の仕方で作成しました。
完全一致した場合は問題なく表示されるのですが、できればテキストボックスに入力した文字列が部分一致した場合でも表示させるようにしたいのですが、どうすればよいかがわからないので教えてください。

Private Sub オプション検索_Click()
Dim stFilter As String
Dim stDocName As String

If 特定検索 = 1 Then
stDocName = "フォーム名"
　　stFilter = "フィールド名１='" & テキストボックス名 & "'"
DoCmd.OpenForm stDocName, , ,

ElseIf 特定検索 = 2 Then
stDocName = "フォーム名"
stFilter = "フィールド名２='" & テキストボックス名 & "'"
DoCmd.OpenForm stDocName, , , stFilter

ElseIf 特定検索 = 3 Then
stDocName = "IPForm"
stFilter = "フィールド名３='" & テキストボックス名 & "'"
DoCmd.OpenForm stDocName, , , stFilterOn

End If

End Sub

回答No.1

software · ベストアンサー

１．条件入力のフォームに非表示属性のテキストボックスを３つ作成します。（例　非表示１、非表示２、非表示３）
２．検索ボタンのＶＢＡを修正します。
Private Sub オプション検索_Click()
Dim stDocName As String
stDocName = "フォーム名"
Me.非表示１ = Null
Me.非表示２ = Null
Me.非表示３ = Null
If 特定検索 = 1 Then
Me.非表示１ = Me.テキストボックス名
ElseIf 特定検索 = 2 Then
Me.非表示２ = Me.テキストボックス名
ElseIf 特定検索 = 3 Then
Me.非表示３ = Me.テキストボックス名
End If
DoCmd.OpenForm stDocName
End Sub
３．検索結果を表示するフォームのレコードソースを修正します。（"＃＃＃"は入力条件のフォーム名）
フィールド名１の抽出条件に
Like ("*" & [Forms]![＃＃＃]![非表示１] & "*")
フィールド名２の抽出条件に
Like ("*" & [Forms]![＃＃＃]![非表示２] & "*")
フィールド名３の抽出条件に
Like ("*" & [Forms]![＃＃＃]![非表示３] & "*")

これで出来ると思います。
Like分の最初の"*"を外せば、後方一致になります。

補足

ご回答ありがとうございます。

できれば、今のままのフォームを使用したいと思っています。１つのテキストボックスで上記のような仕様にするここは可能でしょうか？

あと、検索ボタンのほかにリセットボタンを追加して
リセットをクリックするとテキストボックスの内容が
リセットする方法はご存知でしょうか？

以上、よろしくお願い致します。

回答No.2

software

＃１です。
追加するテキストボックスは非表示属性にするため、見た目は元のフォームと変わりませんがまずいのでしょうか？

テキストボックスを追加しない方法を示します。

検索結果を表示するフォームのレコードソースを修正します。
　説明のための条件仮定
　　・条件入力のフォーム名を[フォーム名]とする。
　　・オプションボタンを設定しているフレーム名を[フレーム名]とする。
　　・オプションボタンの値をそれぞれ１，２，３とする。

フィールド名１の抽出条件に
Like (IIf([Forms]![フォーム名]![フレーム名]=1,"*" & [Forms]![フォーム名]![テキストボックス名] & "*","*"))

フィールド名２の抽出条件に
Like (IIf([Forms]![フォーム名]![フレーム名]=2,"*" & [Forms]![フォーム名]![テキストボックス名] & "*","*"))

フィールド名３の抽出条件に
Like (IIf([Forms]![フォーム名]![フレーム名]=3,"*" & [Forms]![フォーム名]![テキストボックス名] & "*","*"))

リセットボタンはClickのイベントに以下の命令を指定します。
Me.テキストボックス名 = Null
Me.フレーム名 = 1 （オプションボタンも特定のところにリセットしたい場合）

先ほどの回答の最後の文章は、「後方一致」ではなく「前方一致」の誤りでした。

お礼

ご回答ありがとうございます。

下記の補足ですが、当方の勘違いでした。
うまく検索することができました。

本当にありがとうございました。