複数条件で抽出後結果をフォームに表示する方法

2013/07/04 15:37

このQ&Aのポイント

フォーム上で指定した「客先名」と「納入日」を条件にデータを抽出し、結果をフォームに表示したい。
コードにエラーが発生し、プロシージャの外では無効というエラーメッセージが表示されている。
「納入日」は指定した範囲で結果を抽出したい。テキストボックス名は「txt客先名」、「min年月日」、「max年月日」。

複数条件で抽出後結果をフォームに表示する方法

フォーム上で「客先名」と「納入日」を指定して、その指定したものだけを表示したいと思い、下記のURL参考にさせていただき、自分で必要と思われる箇所を変更してみたのですが、「コンパイルエラー：プロシージャの外では無効です」とでて、うまくいきません。私の知識不足でどこがどう悪いのかわからないので、どうかお助けください。参考URL：http://hatenachips.blog34.fc2.com/blog-entry-129.html ※「納入日」はたとえば「2013/05/01～2013/05/20」というふうに範囲指定したいです。 ※作ったテキストボックス名は　txt客先名、min年月日、max年月日　で、抽出したいフィールド名は「客先名」と「納入日」です。 ↓URLを参考に自分なりに書き換えてみたコード Private Sub cmdFilter_Click() Dim strFilter As String, strExp As String, aryOpe As Variant If Not IsDate(Me.min年月日) Then MsgBox "日付ではありません。" Me.min年月日.SetFocus Exit Sub End If If Not IsDate(Me.max年月日) Then MsgBox "日付ではありません。" Me.max年月日.SetFocus Exit Sub End If If Not IsNull(Me.txt客先名) Then strFilter = strFilter & " AND 客先名 Like '*" & Me.txt客先名 & "*'" End If If Not IsNull(Me.min年月日) Then strFilter = strFilter & " AND 納入日 >= #" & Nz(Me.min年月日) & "#" End If If Not IsNull(Me.max年月日) Then strFilter = strFilter & " AND 納入日 <= #" & Nz(Me.max年月日) & "#" End If Me.Filter = Mid(strFilter, 3) If strFilter = "" Then Me.FilterOn = False Else Me.FilterOn = True End If End Sub Private Sub cmdFilterOff_Click() Me.Filter = "" Me.FilterOn = False Me.txt客先名 = Null Me.min年月日 = Null Me.max年月日 = Null End Sub 以上、よろしくおねがいします。

mogu11mogu
お礼率100% (5/5)

オフィス系ソフト
回答数4
ありがとう数4

みんなの回答 （4）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

tsubuyuki
ベストアンサー率45% (699/1545)

2013/07/05 02:02 回答No.4

＃３さんが模範解答をくださっていますので、私からは蛇足的に解説。まったくの蛇足ですから、回答としての役には立てないものと思われます。フィルタ条件（strFilter）に文字列を代入していく行からです。まず・・[txt客先名]が空白じゃなかったら、（この時点では変数は空白ですから）変数strFilterには" AND 客先名 Like '*" & Me.txt客先名 & "*'"と代入されますね。以下、二つの項目も同様ですね。ここが理解できていないと先に進めないので、しっかりコードを読み解きましょう。で、これ（strFilter）をフィルタに渡してやるのですが、この時の変数の中身は" AND 客先名 Like '*" & Me.txt客先名 & "*' AND （以下省略）" です。フィルタ条件の冒頭に「AND」があるとフィルタがうまく機能しないので、これを省くために「ＭＩＤ関数」を使います。　　ＭＩＤ（文字列,開始位置[,文字数]）と言う形で「指定した「文字列」の「開始文字位置」から後ろ（何文字分）を返す」関数です。（文字数を省略すると、開始位置以降全てを返してきますので、今回は省略可能です。）コレを使うことによって、strFilterの中身を "客先名 Like '*" & Me.txt客先名 & "*' AND （以下省略）" と言う風に「フィルタが認識してくれる条件」に書き換えてやっているわけです。おそらく、勘違いなさっているのだと思います。ご提示のコード中の　　Me.Filter = Mid(strFilter, 3) の「３」は、フィルタ条件が「３個ありますよ」の「３」ではなく、「３文字目から後ろを引っ張りなさい」の「３」なのですね。なので、フィルタ条件が"ND 客先名 Like '*" & Me.txt客先名 & "*' AND （以下省略）" と言う、アクセスにとってわからない文字列を指定してしまっているので、エラーが返ってきてしまった・・・ということですね。（リンク先の元コードの条件項目は「６個」でしたもんね。　書き換えたくなる気持ちは何となくわかります。）ＭＩＤ関数は（エクセルでも使えますし）、かなり便利に使える関数の一つです。覚えておいて損は無いですよ。以上、参考までに。

質問者

お礼 2013/07/05 11:21

回答ありがとうございます。 m3_maki様の回答の補足説明、大変助かりました。ご指摘のとおり、「3」はフィルタ条件の数だと勝手に思っていました。mid関数の意味がやっとわかりました。 VBAと関数をきちんと基礎から勉強したいと思います。ちなみに、「客先名」も客先コードを設定したルックアップを使って入力し、客先の名前を表示していたことにいまさらながら気づき、というか理解し、コードを下記のように変えてみたらおかげさまでやりたいことができるようになりました。本当に助かりました。ありがとうございました。 ↓書き換えたコード Private Sub cmdFilter_Click() Dim strFilter As String, strExp As String, aryOpe As Variant If Not IsDate(Me.min年月日) Then MsgBox "日付ではありません。" Me.min年月日.SetFocus Exit Sub End If If Not IsDate(Me.max年月日) Then MsgBox "日付ではありません。" Me.max年月日.SetFocus Exit Sub End If If Not IsNull(Me.txt客先コード) Then strFilter = " AND " & BuildCriteria("客先名", _ dbLong, Me.txt客先コード) End If If Not IsNull(Me.min年月日) Then strFilter = strFilter & " AND 納入日 >= #" & Nz(Me.min年月日) & "#" End If If Not IsNull(Me.max年月日) Then strFilter = strFilter & " AND 納入日 <= #" & Nz(Me.max年月日) & "#" End If Me.Filter = Mid(strFilter, 6) If strFilter = "" Then Me.FilterOn = False Else Me.FilterOn = True End If End Sub Private Sub cmdFilterOff_Click() Me.Filter = "" Me.FilterOn = False Me.txt客先コード = Null Me.min年月日 = Null Me.max年月日 = Null End Sub

ログインすると、全ての回答が全文表示されます。

その他の回答 (3)

m3_maki
ベストアンサー率64% (298/463)

2013/07/04 21:26 回答No.3

> 今度は「実行時エラー'2448'　このオブジェクトに値を代入することができません」とメッセージが出て、Me.Filter = Mid(strFilter, 3)の行が黄色くなってしまいました。 Me.Filter = Mid(strFilter, 6) ですね。

質問者

お礼 2013/07/05 11:10

回答ありがとうございます。 Me.Filter = Mid(strFilter, 6) に書き換え、なおかつ「客先名」はルックアップでコード選択して表示していたことにいまさらながら気づき、コード入力で検索することにしたら、条件を指定した結果を表示することができました。ありがとうございました。

ログインすると、全ての回答が全文表示されます。

MSZ006
ベストアンサー率38% (390/1011)

2013/07/04 18:58 回答No.2

14行目あたりに、　　strFilter = strFilter & " AND 客先名 Like '*" & Me.txt客先名 & "*'" という行がありますが、これを、　　strFilter = "AND 客先名 Like '*" & Me.txt客先名 & "*'" としてみたらどうでしょうか？（全然自信はありませんが・・・）

質問者

お礼 2013/07/04 19:26

再びありがとうございます。ご指摘のように変えてみましたが、残念ながら同じ結果でした… ちなみに、このフォームは選択クエリから作成しているのですが、テーブルから作成したフォームではないということが影響したりしているのでしょうか？聞いてばかりですみません。本当に自分の知識の無さが情けないです。 VBAがなんたるかを勉強するために現在参考書を注文している最中です。

ログインすると、全ての回答が全文表示されます。

MSZ006
ベストアンサー率38% (390/1011)

2013/07/04 16:15 回答No.1

＞プロシージャの外では無効ですということは、ご質問のコード自体に問題があるのではなくて、プロシージャの外に何かゴミ？がありませんか？（Sub ～ End Subに囲まれた部分以外に何か不必要な記述がありませんか？）

質問者

お礼 2013/07/04 16:59

回答ありがとうございます。よく見てみたのですが、特に不必要な記述というものが見当たりません。また、「抽出」のコマンドボタンをクリックしたときは「Private Sub cmdFilter_Click()」の部分が、「抽出解除」のコマンドボタンをクリックしたときは「Private Sub cmdFilterOff_Click()」の部分が黄色くなります。これはなにか関係あるでしょうか？

質問者

補足 2013/07/04 20:05

すみません。いろいろ見てみたらほかのモジュールに不要な記述がありました。なので、コンパイルエラーはでなくなりました。ありがとうございます！ですが、次なる問題が出てきまして、今度は「実行時エラー'2448'　このオブジェクトに値を代入することができません」とメッセージが出て、Me.Filter = Mid(strFilter, 3)の行が黄色くなってしまいました。

ログインすると、全ての回答が全文表示されます。