ACCESS 2003のフォーム抽出について

質問

こんにちは、ACCESS2003を使ってスーパーマーケットの商品売り上げ管理を作っています。

テーブル名：売上管理Ｔ
　　　　　（売上日．店舗名．商品名．価格．売上個数．売上合計．割引率）

上記のテーブルをクリエを使って私やパソコンに詳しい人は抽出する事は可能ですが、
パソコンがあまり詳しくない方にも操作出来るようにしたいのです。

そこで、クリエの抽出条件の所に（"条件を入れてね。”とか”店舗店は？”）などダブルコーテーションで括りポップアップで入力出来るようにしました。

クリエ名：売上検索C
売上日　：BETWEEN関数で期間を指定
店舗名　：上野店、新宿店、渋谷店、品川店、
商品名　：とんかつ、コロッケ、アジフライ、から揚げ、など
価格　　：単価
売上個数：数量
売上合計：価格＊売上個数
割引率　：バーゲンや閉店間際の割引を、３０％～７０％設定
　（割引販売分は別途テーブルを作成予定。））

しかし、操作する人に、
”最初に店舗名、なんて入れたか忘れる。”、”表が小さくて見ずらい”、”紙又はCSV出力できないか？”
と言われてしまいました。

そこで、フォームを作成、フォームで表示.印刷しようと思い上記のクリエを基本に作ろうと思いました。
いままで、フォームで抽出条件等を作った事がなく、本屋等を見て廻ったのですが
大半の本が、フォームで新規入力するものばかりで私の意にするものがありませんでした。

ネットを参考に作ってみたのですが、どうもわかりません。
どなたか、構文例を用いて教えてくださいませんか？
ちなみにフォームを以下のように作成しようと思っています。

フォーム名：売上検索Ｆ

＜抽出条件＞
売上期間　：　”Ａ期間”　～　”B期間”←（売上日）
店舗名　　：　”＊＊店”　　　　　　　 ←（リストボックスorコンボボックスにする予定）
商品名　　：　”とんかつ”　　　　　　 ←（ここは手入力orコンボボックスにする予定）
価格　　　：　”値段”　　　　　　　　 ←（３００円以上の商品を検索する時に使う）
売上個数　：　”個数”　　　　　　　 　←（１００個以上売れた商品を検索する時に使う）
売上合計　：　”売上合計金額”　　　　 ←（販売期間中、１万円以上売れた商品の検索する時に使う）
割引率　　：　”＊＊％””　　　　　　 ←（特売時、割引率を３０％以上を検索する時に使う。レ点で有効、無効を設定したい。）

＜検索結果表示例＞
売上期間　：　”Ａ期間”　～　”B期間”←（表示のみ）
店舗名　　：　”＊＊店”　　　　　　　 ←（表示のみ）
商品名　　：　”とんかつ”　　　　　　 ←（表示のみ）
価格　　　：　”値段”　　　　　　　　 ←（表示のみ）
売上個数　：　”個数”　　　　　　　 　←（表示のみ）
売上合計　：　”売上合計”　　　　　　 ←（表示のみ）
割引率　　：　”＊＊％””　　　　　　 ←（有効の場合は割引率を表示、無効の場合は０％と表示）

　売上日　：　店舗名　：　商品名　：　価格　：　売上個数　：　売上合計　：割引率
　□□□　　　□□□　　　□□□　　　□□□　　□□□　　　　□□□　　　□□□
　△△△　　　△△△　　　△△△　　　△△△　　△△△　　　　△△△　　　△△△
　□□□　　　□□□　　　□□□　　　□□□　　□□□　　　　□□□　　　□□□
　△△△　　　△△△　　　△△△　　　△△△　　△△△　　　　△△△　　　△△△

この抽出条件の内、１箇所でも入力できていれば”テーブル名：売上管理Ｔ”から抽出するようにしたいんです。
素人の考え方ですいませんが、お知恵を貸してください。よろしくお願いします。

回答No.1

psgrade · ベストアンサー

フォームを「売上管理T」をレコードソースとする表形式のフォームを作成し、そのフォームヘッダ部分に抽出条件を指定するコンボボックス、抽出実行コマンドボタンを配置します。抽出実行ボタンがクリックされたら、Where構文を作成し、フォームのフィルタープロパティーに設定（Me.Filter=MyCriteria）、フィルターを実行（Me.FilterOn=True）とするとフォームに抽出されたレコードのみが表示されます。
これをＶＢＡで抽出実行コマンドボタンのクリック時イベントに記述して行く必要が在ります。
例えば、以下のようになります。

Private Sub MyFilterSet()
Dim MyCriteria As String　'Where構文を設定する文字型変数

If Me.FilterOn Then Me.FilterOn = False

If IsNull(Me![店舗名]) Then
MyCriteria = ""
Else
MyCriteria = "店舗名='" & Me.店舗名 & "'"　'完全一致で検索する場合
'MyCriteria = "店舗名 Like '*" & Me.店舗名 & "*'" '店舗名の一部入力で検索する場合は、このように含むもので検索するように設定します。
End If

If IsNull(Me![商品名]) Then
Else
If MyCriteria <> "" Then
MyCriteria = MyCriteria & " And "
End If
MyCriteria = MyCriteria & "商品名='" & Me.商品名 & "'"
End If

If IsNull(Me![価格]) Then
Else
If MyCriteria <> "" Then
MyCriteria = MyCriteria & " And "
End If
MyCriteria = MyCriteria & "価格 >= " & Me![価格] '価格を数値で指定してそれ以上のもので検索
End If

If IsNull(Me![売上個数]) Then
Else
If MyCriteria <> "" Then
MyCriteria = MyCriteria & " And "
End If
MyCriteria = MyCriteria & "売上個数 >= " & Me![売上個数] '売上個数を数値で指定してそれ以上のもので検索
End If

If IsNull(Me![売上合計]) Then
Else
If MyCriteria <> "" Then
MyCriteria = MyCriteria & " And "
End If
MyCriteria = MyCriteria & "売上合計 >= " & Me![売上合計] '売上合計を数値で指定してそれ以上のもので検索
End If

.
If IsNull(Me.売上期間開始年月日) And IsNull(Me.売上期間終了年月日) Then
ElseIf Not IsNull(Me.売上期間開始年月日) And IsNull(Me.売上期間終了年月日) Then
If MyCriteria <> "" Then
MyCriteria = MyCriteria & " And "
End If
MyCriteria = MyCriteria & "[売上日]>=#" & Me.売上期間開始年月日 & "#"
ElseIf IsNull(Me.売上期間開始年月日) And Not IsNull(Me.売上期間終了年月日) Then
If MyCriteria <> "" Then
MyCriteria = MyCriteria & " And "
End If
MyCriteria = MyCriteria & "[売上日]<=#" & Me.売上期間終了年月日 & "#"
Else
If MyCriteria <> "" Then
MyCriteria = MyCriteria & " And "
End If
MyCriteria = MyCriteria & "[売上日]>=#" & Me.売上期間開始年月日 & "# And [売上日]<=#" & [Me.売上期間終了年月日 & "#"
End If

Me.Filter = MyCriteria　'フィルタプロパティに抽出条件を設定
Me.FilterOn = True　　　　'抽出実行
End Sub
抽出実行コマンドボタンのクリック時イベントに
Call MyFilterSet
と記述します。
別にクリアボタンを作成して、クリック時イベントに次のように記載すれば、クリックすると選択解除され、全レコードが表示されます。

Me![店舗名] = Null
Me![商品名] = Null
Me![価格] = Null
Me![売上個数] = Null
Me![売上期間開始年月日] = Null
Me![売上期間終了年月日] = Null
Call MyFilterSet

不明点があれば、お知らせ下さい。

お礼

お礼が遅れてすいません。
例題を挙げて頂き、大変参考になりました。

じっくり、コードを読ませていただいて、フムフムと考えるばかりです。
今回はありがとうございました。

回答No.2

psgrade

回答の補足です。
抽出条件設定のテキストボックス名として、テーブルのフィールド名と同じ名前を指定しましたが、これですとレコードのデータを表示するテキストボックス名と重複してしまいますので、抽出条件設定用のテキストボックス名は、フィールド名＋"選択"等名前を変更してください。
ＶＢＡで使用した名称は、変更する必要があります。