急いでます！Access2000で検索機能をつけたいのですがサンプルファイルが存在しているサイトはないでしょうか？検索機能とは、テーブルの中に「氏名」「年齢」「地域」などが存在していて、その中から３０歳以上を検索！とかけると３０歳以上の物だけ表示してくれる機能です。この３０歳以上という指定はユーザーが指定することが出来ます。また氏名も検索できて、含まれる文字列から検索できる。例えば「田中太郎」とあった場合に「太郎」と検索かけたらヒットするという感じがいいです。私が見つけた良いサンプルが存在しているサイトがあり、http://www.melma.com/mag/26/m00034126/a00000123.htmlで、サンプルはhttp://www.ken3.org/vba/lzh/vba093.lzhです。このサンプルがかなり近いのですが、数字を任意にユーザーが決められないことと、文字検索が無いことです。。。要らない回答は、サンプルが存在しないサイトです。あとAccess2000以外のサンプルはダメです。大変厳しい条件ですがお願いします。

とりあえず急いでいるということですので、

このサンプルのPointフィールドを年齢と仮定して、

クエリ「Q_顧客情報」をデザインビューで開き、

pointフィールドの抽出条件を　>=[検索したい年齢は？]

氏名フィールドの抽出条件を　Like ”*” & [検索したい氏名は？] & ”*”

と設定して保存します。

Q_顧客情報クエリ実行時に、「検索したい年齢は？」「検索したい氏名は？」はと聞いてくるので、ユーザーが条件を指定するとできます。

Q_顧客情報クエリは、フォームtestmainの「クエリの実行、元データ確認」をクリックしても同様に実行されます。

もし、詳細がわからなければ、こちらでおたずねになると、さらに詳しく教えていただけると思います。

こちらの方法でどうでしょうか

帳票フォームのデータをフィルタするのには、

docmd.applyfilter が便利です

複数条件を組み合わせる必要がある場合は、

VBA などで、条件文を生成してあげる必要があります

詳しくは、ACCESS2000 のHELPを、applyfilter で検索してみてください

これでどうでしょうか？

URLはダミーです。

kamicha1さんの回答にある

Like ”*” & [検索したい氏名は？] & ”*”

ここを

Like ”*” & [Forms]![フォーム名]![入力ボックス名] & ”*”

に変えてみてください。

すると入力された値で検索されると思います。

※フォーム名：メニューのフォーム名

　入力ボックス名：入力するテキストボックス名

上記ＵＲＬが参考になるかもしれませんが、「メニューの右側に入力ボックスを追加してそこに書き込んだ」ということですので、フォーム名がtestmain、年齢入力ボックス名がTextBox1、氏名入力ボックスがTextBox2とした場合、クエリ「Q_顧客情報」をデザインビューで開き、

pointフィールドの抽出条件を　>=[Forms]![testmain]![テキスト1]

氏名フィールドの抽出条件を　Like ”*” & [Forms]![testmain]![テキスト2] & ”*”

と設定して保存すると、できます。

IIf関数を使用すればできます。

IIf関数の仕様は

IIf(条件式, 条件式が真, 条件式が偽)

となっていますので、pointの場合、

>=IIf([Forms]![testmain]![テキスト1] Is Null,-99999,[Forms]![testmain]![テキスト1])

このようにすれば、テキスト1が空白（NULL）の場合、-99999より大きいpointが対象となります。

（-99999の値は、全てが対象となるように適当な値に変更してください。）

また、氏名のほうは

Like ”*” & [Forms]![testmain]![テキスト2] & ”*”

これでテキスト2に入力された値で検索しますし、

空白の場合は全て対象となります。

これでいかがでしょうか？

　先ほどの回答と、今までの質問を読んでみて、ちょこっとVBで書いてみました

以下の内容で、一応、入力のある項目だけが抽出条件に反応するようになるはずです

テーブルやフォームの構造が分からないので、適当につくってますので、もし役に立たないようでしたら、ポイント結構ですので・・・

このやり方だと、フォームに入力した値を元に集計するので、ボタンをクリックしたときに、検索条件を聞いてこなくなります。

なんとか、MDB を送信できたらいいんですけどね。

Option Explicit

Option Compare Database

Private Sub btn実行_Click()

Dim STR As String

Dim CNT As Integer

STR = ””

CNT = 0

If Trim(Me![txt氏名]) <> ”” Then

STR = ”(氏名 Like ’%” & Trim(Me![txt氏名]) & ”%’)”

CNT = CNT + 1

End If

If Trim(Me![txt年齢]) <> ”” Then

If IsNumeric(Me![txt年齢]) = True Then

If CNT <> 0 Then

STR = STR & ” and ”

End If

STR = STR & ”(年齢>=” & Trim(Me![txt年齢]) & ”)”

CNT = CNT + 1

End If

End If

If Trim(Me![txt地域]) <> ”” Then

If CNT <> 0 Then

STR = STR & ” and ”

End If

STR = STR & ”(地域=’” & Trim(Me![txt地域]) & ”’)”

End If

If STR = ”” Then

DoCmd.ShowAllRecords

Else

DoCmd.ApplyFilter , STR

End If

End Sub

って、ソースだけ送っても、ダメかもしれないと思い始めた・・・ううむ