(1)部品ID
(2)日付
(3)入庫か出庫
以上3つを検索したいのですがどうすればいいでしょうか?
(1)の部品IDはリストBOXの一覧から選択し、選択したものをテキストBOXに表示させるという形で作成しました。
(2)の日付はテキストBOXに手入力という形です。
(3)の入庫か出庫はコンボBOXで選択するという形です。
検索ボタンを作成してクエリの更新をかけて表示したいと思うのですが、3つの条件のうちその時により、全ての検索条件を入力しなくても1つでも条件を入力するとその条件が表示させるようにさせたいのです。
あと、何も条件を入力せず、検索ボタンを押すと全てのデータが表示させれるようにもしたいのです。
どのようなコードを記述すればいいでしょうか?
よろしくおねがいします
No.5ベストアンサー
- 回答日時:
>”このオブジェクトに値を代入することはできません”と表示され・・
失礼しました。フィルターのセットで最後が足りませんでした。あと[このオブジェクトに値を代入・・]のメッセージは抽出等で間違った指定方法をしているという事なのですが・・。
多分日付の抽出の仕方だと思いますので日付抽出のセットを少し変えましたのでメインフォーム上のボタンCmd1のクリック時のイベントを下記に変更してみてください。
Private Sub Cmd1_Click()
Dim MyCriteria As String
MyCriteria = "日付 ="
If IsNull(Text2) Then
MyCriteria = MyCriteria & True
ElseIf Not IsNull(Text2) Then
MyCriteria = MyCriteria & "#" & Me!Text2 & "#"
Else
End If
strfilter = MyCriteria
strfilter = strfilter & " And 部品ID Like '*" & Me.Text1.Value & "*' And 区分 Like '*" & Me.Cmb1.Value & "*'"
Forms!フォーム名!サブフォーム名.Form.Filter = strfilter
Forms!フォーム名!サブフォーム名.Form.FilterOn = True
Forms!フォーム名!サブフォーム名.Requery
End Sub
メインフォーム上のテキストボックスやコンボの値をサブフォームのフィルターに代入するときはMe!Text1の指定で良さそうなので上記でサブフォームにフィルターをかけられます。(試したらフィルターかけられました。)
これでどうでしょう。
No.4
- 回答日時:
>抽出条件をサブフォームに表示したいという記述を忘れていました
抽出条件をサブフォームの抽出条件に代入すれば行けるかと思いますが。
strFilter = "部品ID Like '*" & Me.Text1.Value & "*' And MyCriteria And 区分 Like '*" & Me.Cmb1.Value"
Me.Filter = strFilter
Me.FilterOn = True
Me.Filter・Me.FilterOnは自分のFilterのセットとなりますのでこの部分を
Forms!フォーム名!サブフォーム名.Form.Filter = strFilter
Forms!フォーム名!サブフォーム名.Form.FilterOn = True
Forms!フォーム名!サブフォーム名.Requery
としてみてください。
抽出部分も
strFilter = "部品ID Like '*" & [Forms]![フォーム名]![Me.Text1].Value & "*' And MyCriteria And 区分 Like '*" & [Forms]![フォーム名]![Cmb1].Value"
にすれば行けるはずですが。
何度も質問に答えてくださってありがとうございます。
デバックがでるんです・・・
”このオブジェクトに値を代入することはできません”と表示され、Me.Filter = strFilterが黄色にマーカーされます。
O_cyan様の回答をそのままコピーしているのでスペルミスではないと思うのですが・・・。
お時間があればまたよろしくおねがいします
No.3
- 回答日時:
>ACCESSの勉強法やお勧めの本・サイトなど教えていただければありがたいのですが
勉強法といっても特にはないのですが私は自分で考えた処理が動くかどうかSQLでもモジュールでも取りあえず試してみる事にしています。ダメならどこがダメなのか究明する。頭の中で考えた物を記述する感じですが・・。
そのためにはある程度の関数の記述の仕方と関数の概要が分かる本ですかね?
Accessで使う私の持っている本はMicrosoftのAccess開発者用のアプリケーションマニュアルとVB開発者用マニュアルの厚さ3Cmくらいの分厚い本くらいですね。あまり読みませんが・・。^_^;
本は関数の便利な使い方みたいな物が多く載っている方が良いと思います。
サイトは結構いろいろあると思いますが一概にどこが良いとは言えません。
すいませんあくまで主観です。
No.2
- 回答日時:
フォームフィルタを使わないとすれば、クエリを作成するのが良いと思います。
データ一覧を参照するのが目的ならば、選択クエリを作成して抽出ボタンなどを押した際にクエリを実行させればよいと思います。
何か他の目的があるのならば、追加クエリなどで一旦テーブルにデータを入れたほうが良いかもしれません。
クエリを作成する前に、抽出条件をきっちり決めなくてはいけません。
出庫・入庫は必ずどちらかが選択されているものとしても、部品IDと日付が両方入力されている場合の抽出条件をANDにするかORにするかによって、クエリの作り方が少し違います。
直接質問には関係ないですけれど、日付を選ぶのには ActiveXのカレンダーコントロールや、DatePickerなどが便利ですよ。 (クエリを実行させる際に抽出条件によってエラーが起きないよう考えておく必要があります。)
回答ありがとうございます。
クエリでも出来るのですね。勉強になります。
紹介して頂いたActiveXのカレンダーも使ってみます。
ありがとうございました
No.1
- 回答日時:
簡単に処理したいのであれば
Filterを使ってやれば出来ます。
部品IDを選択し表示するテキストボックスをText1、日付を入力するコントロールをText2、入庫か出庫をCmb1としてテーブルのフィールド名を区分、検索ボタンをCmd1とした場合。
Cmd1ボタンのクリック時イベントに
Private Sub Cmd1_Click()
Dim MyCriteria As String
MyCriteria = "日付 ="
If IsNull(Text2) Then
MyCriteria = MyCriteria & True
ElseIf Not IsNull(Text2) Then
MyCriteria = MyCriteria & "#" & Me!Text2 & "#"
Else
End If
strFilter = "部品ID Like '*" & Me.Text1.Value & "*' And MyCriteria And 区分 Like '*" & Me.Cmb1.Value"
Me.Filter = strFilter
Me.FilterOn = True
End Sub
としてフォームにFilterをかければ出来ます。
または
クエリのWhere句で抽出条件に同様となる記述をしないと出来ません。
この回答への補足
早速試してみましたができません(>_<)
抽出条件をサブフォームに表示したいという記述を忘れていました。
また回答いただけるとありがたいです。よろしくおねがいします。
回答ありがとうございます。
早速試してみます。
O_cyan様には本当にいつも助けられています。
もしよければACCESSの勉強法や、お勧めの本・サイトなど教えていただければありがたいのですが・・・。
またお時間のある時よろしくお願いします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Access(アクセス) Access 複数条件検索の設定が上手く行きません 1 2022/07/22 20:37
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- JavaScript セレクトを全て選択されていないと、文字によるエラーメッセージを表示させるコードを調べています 2 2023/06/22 15:48
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- 迷惑メール・スパム gmailの過去のメールを一括削除する方法について 3 2023/04/19 05:27
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Excel(エクセル) Excel フィルタ後のコピー貼付けと可視セルの関係について 3 2023/02/07 16:42
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
フォームに複数の検索機能をつける方法
Access(アクセス)
-
Access 複数条件検索の設定が上手く行きません
Access(アクセス)
-
アクセスのfilter、複数条件の記述方法を教えてください。
Access(アクセス)
-
-
4
Accessフォームでの複数条件検索
Excel(エクセル)
-
5
ACCESS検索★ある文字を複数のフィールドの中から検索したい
その他(コンピューター・テクノロジー)
-
6
Accessクエリ 複数フィールドを対象に空白の場合は全件表示したい
Access(アクセス)
-
7
アクセスのフォームのビューが表示されないのですが、
その他(データベース)
-
8
ACCESSのフォームからデータの追加ができない
その他(データベース)
-
9
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
10
ACCESSのクエリで抽出条件「または」は9個までしかかけませんよね…
Access(アクセス)
-
11
Access サブフォームでの選択行の取得
その他(データベース)
-
12
accessで該当するレコードがない場合
その他(プログラミング・Web制作)
-
13
accessvba 複数条件でFilterをしたい
Access(アクセス)
-
14
クエリで出来た表にチェックボックスを追加する
その他(Microsoft Office)
-
15
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
16
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
17
検索フォームで空白を抽出したい
Access(アクセス)
-
18
accessでフィールド追加のあとフォームに反映されない
Access(アクセス)
-
19
アクセスVBAのMe!と[ ]
Access(アクセス)
-
20
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスのフォームにカンマ区...
-
SQL*Loader
-
ACCESS2003 でクエリの抽出条件...
-
Access2000で文字列中の半角ス...
-
ACCESS マクロで検索に...
-
where条件式であいまい検索がし...
-
Accessでの電話番号下4桁での検...
-
パススルークエリの動的パラメ...
-
Accessの検索フォームで。
-
アクセスでの検索回数and 検索...
-
Access テキストボックスとlik...
-
Accessのフォームで、当該デー...
-
年月日を持つテーブルから年月...
-
複数条件検索について
-
Access レポート印刷するときに...
-
データベースのINT型項目にNULL...
-
passwordが入れられません・・・・
-
YahooのIDがロックされてしまい...
-
アクセスでテキストボックスの...
-
ACCESS フォームをそのまま印刷...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SQL*Loader
-
検索フォームで空白を抽出したい
-
年月日を持つテーブルから年月...
-
Access2000で文字列中の半角ス...
-
VBAからクエリのパラメータを設...
-
Accessのフォームで、空欄のレ...
-
access 検索フォームで検索が...
-
AccessにてExcelファイル名にパ...
-
アクセス マクロのメッセージ...
-
複数条件検索について
-
Access2007のサブフォームのReq...
-
アクセスのフォームにカンマ区...
-
ACCESS2003 でクエリの抽出条件...
-
ACCESS マクロで検索に...
-
ACCESSのフォーム上で複数検索...
-
Accessの検索フォームで。
-
Access テキストボックスとlik...
-
パススルークエリの動的パラメ...
-
DBソフト ACCESS:検索フォー...
-
Accessでの電話番号下4桁での検...
おすすめ情報