![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Access2003です。
1.サブフォームにフィルターをかけてレコードを抽出
(フォームフッターで合計値を計算するフィールドを用意しておく)
2.その合計値を利用した計算結果をカレントレコードのフィールドに自動入力
これを1つのプロシージャで行いたいのですが、うまくいきません。
1と2を分けるとうまくいきます。何か方法はありますでしょうか。
具体的に…
サブフォームのカレントレコードの[西暦]フィールドにある値と同じ値が入っているレコードを抽出。
抽出されたレコードの合計をフォームフッターで算出。([原価合計][受注高合計])
[カレントレコードの売上高]=[(カレントレコードの)原価]/[原価合計]*[受注高合計]
※全体の原価に占めるカレントレコード原価の割合で、売上高を算出します。
これを一括処理しようとすると、フィルター後の[原価合計][受注合計]の算出が間に合わないのか、「0で除算しました」とエラーが出ます。
フィルターをかけるのと、売上高を求めるのを別々のプロシージャに分けて順に実行するとちゃんと算出できます。
一括でやりたいのですが、良い方法はありますか?
宜しくお願いします。
※前回もAccessの質問をさせていただきましたが、お礼を入力する前にベストアンサーを決定してしまったため、お礼ができませんでした。回答者の皆さんその節はありがとうございました!
No.2ベストアンサー
- 回答日時:
DSumで集計する方法ですが、
> サブフォームのカレントレコードの[西暦]フィールドにある値と同じ値が入っているレコードを抽出。
これですが、どのようにしていますか。
Filterプロパティに抽出条件を設定してるのなら、それを利用できます。
DSum("原価","テーブル名",Me.Filter)
で原価合計を求められます。
あるいは、
DSum("原価","テーブル名","西暦=" & Me.西暦)
でもいいでしょう。
タイマーを使う場合は、
タイマー間隔 は 0 に設定しておいて、
タイマー時のイベントプロシージャは、
Private Sub Form_Timer()
Me.TimerInterval = 0
2.の処理
End Sub
で、1.の処理の最後で、タイマー間隔を設定します。
Private コマンド1_Click()
1.の処理
Me.TimerInterval = 500
End If
遅くなりました!本日、出勤して内容確認・実行しました。
教えていただいた通り、Dsum関数で条件を付けて抽出・合計することで、
一旦フィルターをかけて抽出するプログラムも、
フォームフッターで合計するテキストボックスも必要なくなり、
大変スッキリとしたプログラムができました。
実際には抽出条件が複数ありAndで繋げる際に、Andも" "で囲む事に気付かず苦戦して御礼が遅くなってしまいました。
= DSum("工事費", "T金額", "営業番号 ='" & Me.営業番号 & "'And 種別 ='" & Me.種別 & "'and 西暦 =" & Me.西暦)
妥協なく、しかもスッキリ気持ちの良い処理ができました。
本当にありがとうございます!感謝しています。
No.3
- 回答日時:
メインフォームからサブフォームのボックスを参照することは出来ませんが
サブフォームからマインフォームのボックスを参照できます。
サブフォームのイベントで
Me.Parent!原価合計 = SUM(原価)
Me.Parent!受注高合計 =SUM(受注高)
Me.Parent 初めて知りました。
子から親を参照する時に使うのですね。
今回はDsumで条件を指定して抽出・合計することで解決しました。
考えていただいてありがとうございます。
Me.parent、今後生かせそうです。
No.1
- 回答日時:
> 1.サブフォームにフィルターをかけてレコードを抽出
> (フォームフッターで合計値を計算するフィールドを用意しておく)
> 2.その合計値を利用した計算結果をカレントレコードのフィールドに自動入力
これは私もはまったことがあります。
1.の後で Requery や Recalc をかけてみてもうまく行かなかったです。
最終的には、フォームフッターの合計値を参照するのをやめて、DSum関数で合計値を求めました。
フッターにあるのに別に集計するのは無駄のような気がしますが、しょうがないですね。
フッターを参照するなら、1. の実行後、タイマーイベントを使って時間をおいて、2.を実行するという方法もありますが、これもいまいちですね。
ご回答ありがとうございます!
同じ経験をされた方がいて嬉しいです。
Dsum関数に挑戦中ですが、フォームで抽出したレコードをDSumで合計するやり方がわかりません。
Dsum式の中で、テーブルから参照して抽出条件を設定しなおさないといけませんか?
例を教えていただけないでしょうか。
又はタイマーイベントの方法を教えてください。
sleep を使うと良いですか。
質問ばかりですいません。宜しくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
"I love you" をかっこよく翻訳してみてください
あなたが考えるいちばんかっこいい "I love you"の訳を教えてください。
-
フィルタ後のフォームの件数の取得の仕方
Access(アクセス)
-
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
クロス集計クエリの結果をテーブルにしたい
Access(アクセス)
-
-
4
access マクロでのフィルタの解除の方法
Access(アクセス)
-
5
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
6
アクセスで『0の値以外』を表示する方法
Access(アクセス)
-
7
Accessの条件付き書式設定で、複数の条件が一致した時の書式を設定したい
その他(Microsoft Office)
-
8
iif関数で3つ以上条件を抽出したい場合
IT・エンジニアリング
-
9
AccessフォームのDcount複数条件
その他(Microsoft Office)
-
10
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
11
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
12
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
13
Accessのサブフォームから値を参照する方法について
その他(データベース)
-
14
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
15
「#エラー」の回避
Access(アクセス)
-
16
ACCESSでコンボボックスにSQLで抽出した値を表示したい
その他(データベース)
-
17
ACCESS クエリ→フォーム フィルターをかけたデータのみエクスポートしたい
Excel(エクセル)
-
18
ACCESSのサブフォームからメインフォームへの移動
Access(アクセス)
-
19
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
20
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access 「このレコードを保存す...
-
新規レコード行を非表示にしたい
-
Access:フォームプロパティ「...
-
レコードを保存するコード ア...
-
テーブルの上書き保存は
-
Accessでチェックボックスで抽...
-
ACCESS起動時に所定フォームを...
-
Access データのないフォーム...
-
アクセスのフォームで立ち上げ...
-
Accessで一件の新規レコードの...
-
フィルタ後のフォームの件数の...
-
Accessでレコードの保存をせず...
-
アクセス データの競合を非表...
-
YahooのIDがロックされてしまい...
-
Access レポート印刷するときに...
-
passwordが入れられません・・・・
-
ACCESS フォームをそのまま印刷...
-
フォームの高さを数値で指定し...
-
アクセスでテキストボックスの...
-
アクセスで特定のレコードのみ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レコードを保存するコード ア...
-
アクセスでフォームビューがみ...
-
新規レコード行を非表示にしたい
-
ACCESSでフォームを使って、テ...
-
フィルタ後のフォームの件数の...
-
レコード削除時に(サブ)フォー...
-
Accessで上の行を自動でコピー...
-
ACCESS起動時に所定フォームを...
-
Access:フォームプロパティ「...
-
アクセスの自動保存解除はでき...
-
AccessVBA RecordSourceのリセ...
-
Accessでレコードの保存をせず...
-
Accessでのデータ消滅に...
-
Accessでフォーム上に 直前の...
-
Access2010、値を入力したら自...
-
ACCESSフォームのリストボック...
-
Access レコード移動時イベント...
-
Access 「このレコードを保存す...
-
アクセス 前レコード内容を、...
-
Access 帳票フォームでカレント...
おすすめ情報