C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[1]: フィルターであいまい検索がしたい

分類:[.NET 全般]　

テーブルに”薬品名”フィールドを作りフォームでテキストボックスにより薬品名のあいまい検索が
したいのですがVBAでの記述方法がわかりません。

フォームでの検索テキストボックス名は「検索」です。

下記の感じになると思うのですが間違ってるところ教えてください

Private Sub 検索_AfterUpdate()
Me.Filter = "薬品名 Like '" & *Me![検索]* & "'"
Me.FilterOn = True
End Sub

■No38655 (ゆみさん) に返信
> テーブルに”薬品名”フィールドを作りフォームでテキストボックスにより薬品名のあいまい検索が
> したいのですがVBAでの記述方法がわかりません。
>
> フォームでの検索テキストボックス名は「検索」です。
>
> 下記の感じになると思うのですが間違ってるところ教えてください
>
> Private Sub 検索_AfterUpdate()
> Me.Filter = "薬品名 Like '" & *Me![検索]* & "'"
> Me.FilterOn = True
> End Sub

Me.Filter = "薬品名 Like '" & *Me![検索]* & "'"
↓
Me.Filter = "薬品名 Like '*" & Me![検索] & "*'"

分類は、「.NET 全般」ではないですね、かといってAccessは無いし、「その他の言語」なんだろうか･･･

2009/07/22(Wed) 22:22:55 編集(投稿者)

■No38655 (ゆみさん) に返信
> テーブルに”薬品名”フィールドを作りフォームでテキストボックスにより薬品名のあいまい検索が
> したいのですがVBAでの記述方法がわかりません。
http://www.accessclub.jp/bbs3/wforum.cgi?no=145548&reno=no&oya=145548&mode=msgview&page=0
かな?

> Me.Filter = "薬品名 Like '" & *Me![検索]* & "'"
　Me.Filter = "薬品名 Like '*" & Me![検索].Value & "*'"
などと記述すれば、とりあえずコンパイルは通るようになるかと思います。

ただし、特殊文字(* や ' など)の制御は別途組み込む必要がありますので、
そうした文字の入力を許可している場合、エスケープ処理の組み込みも行ってください。

たとえば[検索]の内容が「SQL*Plus」だった場合、『OracleのSQL*Plusツール』にはヒットするべきですが、
『SQLPlus.exe』や『SQL≠Plus』にはヒットすべきではありませんよね。

■No38655 (ゆみさん) に返信
> 薬品名のあいまい検索
>
ここで言っている「あいまい検索」というのは、「部分一致検索」という意味であってますか？

「英語の大文字と小文字を区別しない」とか「ひらがなとカタカナを区別しない」とか「全角と半角を区別しない」とか、そういう意味は混じってたりしませんか？
# ゆみさんはそれでよくても、ゆみさんにそれをお願いした人もそう思ってるとは限らないし

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[1]: フィルターであいまい検索がしたい

過去ログには書き込み不可