お世話になります。
初めて質問させていただきます。
下記のように、作家さんへ支払った原稿料の明細を、
作家別、さらに支払日別にグループ化し、
各支払日のグループフッターで計算した源泉所得税を
作家のグループフッターで合計したいのですが、計算されません。
=============『詳細』
作家 書籍名 支払日 原稿料
=============『支払日グループフッター』
="原稿料計"__原稿料合計 ←=Sum([原稿料])
="源泉税"__源泉税 ←=[原稿料計]*0.1
=============『作家グループフッター』
="原稿料総計"__原稿料合計 ←=Sum([原稿料])
="源泉税総計"__源泉税合計 ←=Sum([源泉税])
以前に似た質問をされた方がいらしたのですが
その際の解決方法を試してみてもうまくいきませんでした。
試してみたのは、下記の方法です。
作家グループフッターのフォーマット時イベントプロシージャに
書き込みました。
----------------
Private Sub グループフッター
Tmp = Tmp + Me.源泉税
Me.源泉税総計 = Tmp
-----------------
この方法だと、源泉税総計の欄に、最後の支払日グループの
源泉税の額だけがが表示されてしまいました。
つたない説明で申し訳ありませんが
どなたか分かる方がいらっしゃいましたら
よろしくお願いします。
No.3ベストアンサー
- 回答日時:
>各支払日のグループフッターで計算した源泉所得税を
>作家のグループフッターで合計したいのですが、計算されません。
結局は、原稿料総計*0.1になるのでは?
元のテーブルのデータから集計できるので、
支払日のグループフッターの集計を利用する必要はないかも。
=============『作家グループフッター』
="原稿料総計"__原稿料合計 ←=Sum([原稿料])
="源泉税総計"__源泉税合計 ←=Sum([原稿料])*0.1
>作家グループフッターのフォーマット時イベントプロシージャ
念のため、このイベントに関する注意点。
このイベントプロシージャは複数回呼ばれる可能性があります。
FormatCountプロパティのヘルプをご覧下さい。
ヘルプには、FormatCount プロパティで何回呼ばれたか調べられる
様なことが書いてありますが、たまに不可解な現象が発生します。
http://www.penhagi.com/access/ota2003/3133.htm
このイベントプロシージャの、呼ばれる順序や回数を、
把握するのは難しいです。
下記のような処理で、正しく計算できる場合が多いですが、
私自身は信用していないので、この方法は使いません。(^^;
Dim Tmp As Variant
Private Sub 作家グループフッター_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then
Me.源泉税総計 = Tmp
Tmp = 0
End If
End Sub
Private Sub 支払日グループフッター_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then
Tmp = Tmp + Nz(Me.源泉税)
End If
End Sub
No.4
- 回答日時:
#1です。
> 結局は、原稿料総計*0.1になるのでは
数学的にはそうだと思いますが、円未満切り捨てを考えると
合計値の0.1だと微妙に異なることもあり得ます。
> このイベントプロシージャは複数回呼ばれる可能性があります。
確かにそうですね。
基本的に源泉徴収は書籍別、日別に算出されるべきものと考えられるので、
いっそのこと、原稿料テーブルからクエリを作成し、
このクエリで、Int(原稿料*0.1)の源泉税額フィールドを作りだし、
このクエリをレポートのレコードソースとしたうえで、
この源泉税額を各グループフッタで合計させた方が安全かも...
皆様早速のご回答本当にありがとうございます。
おかげさまで正しく計算することができました!
vizzarさんのご回答のとおりやってみたところ、
作家グループフッターだけが次のページになった際、
正しく計算されませんでした。
そこでvenzouさんのご回答とおりやってみたところ、上記の現象も出ず正しく計算されました。
やはり
> このイベントプロシージャは複数回呼ばれる可能性があります。
が関係しているのでしょうか。
また源泉税の算出の方法ですが、私の説明が足りずに申し訳ございません。
支払日ごとに算出するのですが、その際支払金額が100万円を超えている場合は、100万円に対しては0.1、100万円を越える部分には0.2を
かけることになっています。
そのため作家グループフッターの原稿料合計に0.1を掛けるわけにはいきませんでした。
お二人とも本当にありがとうございました。
No.1
- 回答日時:
> この方法だと、源泉税総計の欄に、最後の支払日グループの
> 源泉税の額だけがが表示されてしまいました。
それは当たり前です。
各日付のグループフッタで積算していないからです。
1.変数Tempをレポートの定義部で宣言する。
2.日別のレポートフッタのフォーマット時イベントプロシージャに、
Tmp = Tmp + Me.源泉税
3.作家別のレポートフッタのフォーマット時イベントプロシージャに、
Me.源泉税総計 = Tmp
Tmp = 0
で、如何でしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
運送会社が商品を破損してしま...
-
エクセルで課税、非課税を自動...
-
経理です。車検の時の勘定科目...
-
公文書公開に伴うコピー料金等
-
被課税とは
-
田を貸した場合の消費税について
-
自動車部品を個人輸入した際の...
-
消費税の区分について
-
建設業者が工事保険をもらった...
-
友人からお金を貰う。
-
収入印紙は、必要ないのかな?
-
演奏活動報酬の確定申告について
-
生活保護は廃止すべきでは? ※...
-
保育料と所得割課税額について
-
ビールの関税(日本入国時)
-
使用貸借契約の印紙税
-
写真の支払いの場合、消費税は...
-
380円の税込は何円ですか?
-
宝くじ当選金の預け先はどこが...
-
アマチュア団体の出演謝礼に税...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
だれか税作文みせてくれる人い...
-
運送会社が商品を破損してしま...
-
※高校生の税に関する作文です。...
-
消費税の区分について
-
経理です。車検の時の勘定科目...
-
公文書公開に伴うコピー料金等
-
建設業の「安全協力費」の会計...
-
収入印紙は、必要ないのかな?
-
自動車部品を個人輸入した際の...
-
市役所と消費税
-
建設業者が工事保険をもらった...
-
アマチュア団体の出演謝礼に税...
-
印紙税額を求める関数
-
エクセルで課税、非課税を自動...
-
消費税計算で誤差が生じるのは...
-
被課税とは
-
レシートで消費税率の間違いを発見
-
使用貸借契約の印紙税
-
JPYで表記されている金額について
-
DIY 小屋の登記と固定資産税
おすすめ情報