こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

VBAでのj検索

Access2000のVBAで18つのチェックボタンでフィールドを選択し、1つのテキストボックスに文字列を入力して検索ボタンで検索するプログラムを以下のような記述の仕方で作成しました。

Private Sub 条件検索_Click()

Dim stFilter As String
Dim stDocName As String

If 特定検索 = 1 Then
stDocName = "メイン"
stFilter = "フィールド名1='" & テキストボックス名 & "'"

DoCmd.OpenForm stDocName, , , stFilter

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



上記のような記述で上手くいかないので、部分一致で検索
出来る方法を教えていただけませんでしょうか。

よろしくお願い致します。

投稿日時 - 2005-04-09 11:49:37

QNo.1320510

暇なときに回答ください

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

試していないんで間違っていたらすみません。

stFilter = "フィールド名1='" & テキストボックス名 & "'"
の部分を

stFilter = "フィールド名1='*" & テキストボックス名 & "*'"

というようにテキストボックスの文字列の前後に『*』(アスタリスク)をつけるようにしてはどうでしょう?

投稿日時 - 2005-04-11 17:36:38

あなたにオススメの質問