人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile


●質問者: Gafu
●カテゴリ:コンピュータ 学習・教育
✍キーワード:サイト ダメ ファイル ユーザー 地域
○ 状態 :終了
└ 回答数 : 6/6件

▽最新の回答へ

6 ● reehle
●15ポイント

http://www.hatena.ne.jp/

はてな

先ほどの回答と、今までの質問を読んでみて、ちょこっと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

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

◎質問者からの返答

うーん…いろいろ調べたのですが、クエリだけでやれる方法があるらしいのですが、、

http://www2.moug.net/cgi-bin/technic.cgi?acopr+TI04010014

なんですけど、何も入力しなかった場合には全文検索対象になりますけど何か入力した場合にはどうやって条件つければいいのか…謎

何も入力が入ってなかったら、全部ヒット

何か入っていた場合にはそれを条件として検索

こんな感じに作りたいのです


6-6件表示/6件
4.前5件|次の5件6.
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ