前提・実現したいこと
経費の計算で、消費税を抜いた金額で入力していく画面があります。
データシートの部分はサブフォーム
小計などのラベルがある部分はメインフォーム
サブフォームにて、
税抜金額(txt_sum1)、消費税(txt_sum2)、総額(txt_sum3)、非課税金額(txt_sum4)
の項目にそれぞれ条件に応じて値を入れたい。
メインフォームにて、txt_sum〇の箇所を変え、小計、消費税、総計、非課税
それぞれ以下のコントロールソースにより出力している。
=IIf(Not IsError([sub_trntbl_meisai]![txt_sum1]),[sub_trntbl_meisai]![txt_sum1],Null)
コントロールソースにコードを記載するやり方、コードビルダーで処理を記載するやり方、どちらでも良いので良い方法をご教授願います。
該当のテーブル
該当のサブフォーム
税抜金額
名前 txt_sum1 コントロールソース =Sum([KINGAKU])
消費税額
名前 txt_sum2 コントロールソース =Sum([KINGAKU]*0.08)
総額
名前 txt_sum3 コントロールソース 非連結
非課税金額
名前 txt_sum4 コントロールソース =Sum([KINGAKU])
非課税選択チェックボックスのコントロールソース
CHK_ZEI
金額のコントロールソース=CLng(Nz([txt_TANKA],0))*CLng(Nz([txt_SURYO],0))
試したこと
VBA
1'集計条件分岐処理 2 3 '非課税選択時処理 4 If txt_CHK_ZEI = False Then 'チェックボックスが☑でない時 5 '税抜金額 6 txt_sum1 = Sum([KINGAKU]) 7 '消費税額 8 txt_sum2 = Sum([KINGAKU] * 0.08) 9 Else 10 '非課税額 11 txt_sum4 = Sum([KINGAKU]) 12 End If 13 14 '総額処理 15 txt_sum3 = Sum(txt_sum1 + txt_sum2 + txt_sum4)
上記の処理はやりたいと思っていることです。
非課税選択チェックボックスにチェックが入っているかどうかで
条件を分岐するというのを構想しています。
サブフォームの税抜金額、消費税額、総額、非課税金額のコントロールソースにどう書けばいいか分からないということと、
上記以外のやり方としてやるのであれば、コードビルダーでどう書けばいいか分からないので悩んでいます。
補足情報(FW/ツールのバージョンなど)
Window10、ACCESS2016
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/05/24 07:14
2018/05/24 07:24
2018/05/24 07:25 編集
2018/05/24 07:33
2018/05/24 07:36
2018/05/25 05:05
2018/05/25 05:24
2018/05/25 05:30