- 締切済み
【Access VBA】過去時点での在庫検索
山田 太郎（@f_a_007）の回答
- 山田 太郎（@f_a_007）
- ベストアンサー率20% (955/4574)
【補足】IsNull()を利用するかしないか？ これは、好みと趣味の問題です。 Len([fieldname] & "") で長さ=0 なら”偽"、長さ＞0なら”真”。で、空値かどうかを判定できます。が、Access には IsNull 関数が用意されています。添付図のように、どちらを利用しても同じ結果が得られます。まあ、Empty値のチェックではISNull()が通用しないので、私は、Len(XXX & "")で一貫していますが、全く、これは好みと趣味の問題です。
関連するQ&A
- Access:検索フォーム
Access:検索フォーム クエリを基に作成したフォームで「日付２」が変動する検索フォームを作りたいのですが上手く動作しません。 不足などを教えてください； Access2007/WinXP クエリ名 q_出席一覧絞込 １）フィールド名 日付１ クエリ条件 >#2010/01/01# （2010/1/1以降） ２）フィールド名 日付２ クエリ条件 （[Forms]![出席者絞込]![検索日]に入力した日付以降の日付） フォーム名：出席者絞込 帳票フォーム １）テキストボックス名：検索日 定型入力： 0000/00/00;0;* 非連結 ２）ボタン名：検索ボタン1 クリック時イベントプロシージャ： Private Sub 検索ボタン1_Click() Me.Requery End Sub また、フォーム上で元テーブル「出席一覧」のフィールド「単価」の修正機能を加えたい状態です。 （クエリにも「単価」は呼び込んであります） クエリ元のフォーム上で修正＞ボタンクリック時にRequeryを記入、という考えでいいのでしょうか？ 参考になるサイトなどあればご紹介ください。
- ベストアンサー
- Visual Basic
- 【Access】複数フィールドを対象とする検索
Access上で「検索ボタン」をクリックすると、 「データ」フォームのフィールド１、フィールド2、フィールド3のいずれかに「検索条件1」の語を含み、かつ、フィールド4、フィールド5、フィールド６のいずれかに「検索条件2」の語を含むレコードを抽出できるようにしたいと思います。 検索条件はテキストボックスに入力するようにしており、テキストボックス名は「検索条件1」、「検索条件2」となっています。 以下のコードでやってみたのですが、「実行時エラー13、型が一致しません」というエラーが出てうまく抽出できません。 Private Sub 検索ボタン_Click() Dim filter1 As String filter1 = "フィールド1 like '*" & Me!検索条件1 & "*' or フィールド2 like '*" & Me!検索条件1 & "*' orフィールド3 like '*" & Me!検索条件1 & "*'" And " フィールド4 like '*" & Me!検索条件2 & "*' or フィールド5 like '*" & Me!検索条件2 & "*' orフィールド6 like '*" & Me!検索条件2 & "*'" DoCmd.OpenForm "データ", acNormal Forms!データ!.filter = filter1 Forms!データ!.FilterOn = True End Sub 「検索条件1,2」のテキストボックスがあるフォーム上の「検索ボタン」をクリックすると、 「データ」フォームが開き、検索をかけるという流れをイメージして作成 しています。 どなたか正しい記述を教えていただけませんでしょうか。 よろしくお願いいたします。
- ベストアンサー
- Access（アクセス）
- ACCESSでクエリーを使った検索
VBAを使えば簡単にできるのですが、事情があり、クエリーのみで行わなければいけません。 フォームに入力された情報を元に検索できるクエリを作成しました。 通常でしたらクエリのフィールド名の下の抽出条件に Forms![F_検索]![検索条件1] とすればいいのですが、これが複数の条件を設定した場合はすべての条件を入力しないと、検索結果が出ないことから 以下のように変更しました。 フィールド名の抽出条件には何も書かず、別に式として IIf(IsNull(Forms![F_検索]![検索条件１],True,[フィールド１]=[Forms!]![F_検索]![検索条件１])) と入力しそこの抽出条件に「True」と入力しました。 これで何も入力されてない場合は全件が表示されるようになりました。 通常の検索はこれでいいのですが疑問点が2点あります。 １．期間を抽出する場合はどうしたらいいのか？ IIf(IsNull(Forms![F_検索]![検索条件１],True,[フィールド１]=Between [Forms!]![F_検索]![検索条件１] and [Forms!]![F_検索]![検索条件２])) とかしてみましたがダメでした。 ２．あいまい検索をするにはどうしたらいいのか？ IIf(IsNull(Forms![F_検索]![検索条件１],True,[フィールド１]=Like [Forms!]![F_検索]![検索条件１])) なんてしてみましたがだめでした。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ＜access クエリのあいまい検索＞
＜access クエリのあいまい検索＞ こんにちわ。以前，クエリについて質問した者です。（前回質問番号：6003331） 引き続き，質問です。 前回はクエリでのあいまい検索の式についての質問でした。 今回は同じクエリで追加として別のフィールドでも同時にあいまい検索を行いたいと思っています。 名前，住所，連絡先等がある住所録があります。 クエリを使って，任意の文字検索をするように設定しています。 前回ここで教えて頂き，「京都」と入れたら，「京都市」も「京都群」もヒットするようになりました。 今回は同時に他のフィールドの検索値が入っていたら，それも一緒に表示させるようにしたいのです。 具体的には下記のとおりです。 １）住所のフィールドに「京都」が含まれている人，かつ，「田中」という文字を含む人を検索 ２）単に「田中」という文字を含む人を検索 現在の入力値は下記のとおりです。 ご指導お願いします。 ■今，入力されていること フィールド：IIf(IsNull([forms]![frm条件検索]![住所名]),True,[住所名] Like "*" & [forms]![frm条件検索]![住所名] & "*") テーブル・並び替え＝空欄 表示：チェックが入っています。 抽出条件：true
- ベストアンサー
- その他MS Office製品
- accessのnot検索
access2000で テーブル[日付]（yyyy/mm/ddで入力されています） [内容]（なんでも。空白の場合もあります） フォーム 「日付」（yyyy/mm/ddのみ入力可能にしています） 「NGword」（どんな文字でも入力できます） という項目を作成し・・・ １、クエリでフォームの「日付」に入力したものかつ ２、フォームの「NGWord」を含まないレコードのみを抽出したいのですがうまくいきません。 「日付」「NGword」が空白の場合は入力された条件のみ適用させたいです。 （「日付」・「NGWord」が両方空の場合は全レコード抽出したいです） クエリを作成して・・・ [日付]の抽出条件を like "*" & forms![フォーム名]![日付] & "*" で [内容]の抽出条件を (not like "*" & forms![フォーム名]![NGword] & "*") or (is null) で設定したのですがうまくいきませんでした・・・泣 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- SQLで、過去で一番大きい日付のレコード抽出
MySQLを使っています。 同じ商品のレコードが複数あります。 その多数のレコード中に、日付項目があります。そこから、 １）指定日に、２）一番近い過去の日の１件の、３）全商品のレコード、を抽出するには、 どのようなSQL文を書けばよいでしょうか？ １．過去に複数ある日付の中から、指定日に、一番近いレコード。 レコードの例） 指定日＝2015-07-01 商品ID 日付 1 2015-10-11 ・・・未来 ⇒ 抽出せず 1 2015-08-02 ・・・未来 ⇒ 抽出せず 1 2015-07-01 ・・・指定日 ⇒ 抽出せず 1 2015-07-01 ・・・指定日 ⇒ 抽出せず 1 2014-01-01 ・・・過去 ⇒ 抽出せず 1 2015-06-03 ・・・過去 ⇒ 抽出したい★★ 2 2015-10-11 ・・・未来 ⇒ 抽出せず 2 2015-08-02 ・・・未来 ⇒ 抽出せず 2 2015-07-01 ・・・指定日 ⇒ 抽出せず 2 2014-01-01 ・・・過去 ⇒ 抽出せず 2 2015-06-03 ・・・過去 ⇒ 抽出したい ★★
- ベストアンサー
- MySQL
- アクセスVBAで検索条件にFormatは使えませんか？
前に同じような質問をしたのですが解決できないので再度お願いします。 アクセス2000で、あるテーブルの日付型フィールドデータを検索条件に抽出する方法なのですが、 rs.find "Format([売上日付],'yyyymm')='200309'" とするとエラー（引数の型が になります。 Formatを使ったこのような書き方はできないのでしょうか？ rs.Open "売上TB", cn, adOpenKeyset, adLockOptimistic rs.MoveFirst rs.Filter = "Format([売上日付],'yyyymm')='200309'" とFilterを使っても駄目なんです
- 締切済み
- オフィス系ソフト
- フォームからクエリの抽出期間を指定するにあたって
フォームのテキストボックス（開始日付,終了日付）に入力された期間内の レコードをクエリで抽出するために、以下のような抽出条件を設定しています。 Between [Forms]![フォーム1]![from date] And [Forms]![フォーム1]![終了日付] ここまでは問題なく出来ています。 ですが、例えばテキストボックスに何も入力していないときに、 全ての期間から全件表示させるような方法はありませんでしょうか？ IIf(IsNull([Forms]![フォーム1]![開始日付]),True,～ というような形で、IIfとIsNullの組み合わせも考えたのですが、 日付は直接フィールドでは無く抽出条件のため、 Trueより後が設定できずに悩んでおります。 出来ればVBAは使いたくないのですが、 何か良い方法はありませんでしょうか？
- ベストアンサー
- オフィス系ソフト
- (access )任意の数字以上でクエリ抽出したい
フォーム上にテキストボックスと、サブフォームのクエリを配置しております テキストボックス（textbox1）に数字を入力し、その数字以上のフィールドを抽出したいのですが、上手く行きません 現在クエリの抽出条件に以下の式を入力していますが、レコードが一切表示されません。 （抽出はできますが） >=([Forms]![フォーム名]![textbox1]) どなたかご教授お願い致します
- ベストアンサー
- その他MS Office製品
- ACCESS＿検索
はじめまして ACCESS二日目の初心者です 検索についてなのですが、例えば住所録で「氏名」、「住所」、「会社名」等、複数のテキストボックスがある検索フォームで条件を入力し、検索ボタンを押すと該当するレコードを一覧表示するにはどうしたらよいのでしょう？ 視覚的にあらわすと 「氏名」 「住所」 「会社名」 「検索実行ボタン」 という感じです 誰かわかる方教えてください 宜しくお願いします
- ベストアンサー
- その他(データベース)
お礼
f_a_007さん、ご丁寧に回答いただき誠にありがとうございました。 無事抽出することができました。 大変勉強になりました。