Access VBA 複数検索方法(初心者)

質問

下記の様に検索すると、
"テキスト名称"と"テキスト分類"の2つのテキストボックスを使用して検索ですが、
1つのテキストボックス"テキストA"で両方(名称・分類)又は2つ以上を検索させるには、どのようにしたら良いでしょうか？
＜テキストボックス1つでテーブル全部を検索したい＞
ご教授お願い致します。（Access2000）

Private Sub コマンド17_Click()
Dim st As String
If Not IsNull(Me.テキスト名称) Then
st = st & " AND 名称 like'*" & Me.テキスト名称 & "*'"
End If
If Not IsNull(Me.テキスト分類) Then
st = st & " AND 分類 like '*" & Me.テキスト分類 & "*'"
End If
st = Mid(st, 6)
DoCmd.OpenReport "レポート", acViewPreview, , st
End Sub

回答No.1

a3453a

ME.テキスト名称　という名前で１項目だけつくり
オール数字ならテキスト分類としての選択ロジック
そうでなければテキスト名称で選択という
ＩＦ条件で可能だと思います
---------------------------------------------
ＶＢＡ記述ではなくても
選択クエリーで抽出する手段もありますね
---------------------------------------
選択クエリーの選択指定欄へ（当該のフイールドで）
[FORMS]![フォーム名]![フォームでの項目定義名]
とすれば、入力値と同じ値のレコードのみ抽出できます
----------------------------------------
複数のＯＲ条件なら
選択クエリーにて条件指定行を１段ずらして記載すれば
いいです（その時はテキスト分類フイールドのところで）
-----------------------------------------
あいまい検索指定なら、選択クエリーの抽出条件式を
LIKE "*" & [FORMS]![フォーム名]![フォームでの項目定義名] & "*"
とします

お礼

有難うございます。
クエリの方法参考になりました。
失礼致しました、テーブルではなくレポートから検索させたいでした。
出来ればコードのみで処理したいです。初心者の為、コード例を記入していただけると助かります。