前提・実現したいこと
経費の計算で、消費税を抜いた金額で入力していく画面があります。
データシートの部分はサブフォーム
小計などのラベルがある部分はメインフォーム
サブフォームにて、
税抜金額(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
'集計条件分岐処理 '非課税選択時処理 If txt_CHK_ZEI = False Then 'チェックボックスが☑でない時 '税抜金額 txt_sum1 = Sum([KINGAKU]) '消費税額 txt_sum2 = Sum([KINGAKU] * 0.08) Else '非課税額 txt_sum4 = Sum([KINGAKU]) End If '総額処理 txt_sum3 = Sum(txt_sum1 + txt_sum2 + txt_sum4)
上記の処理はやりたいと思っていることです。
非課税選択チェックボックスにチェックが入っているかどうかで
条件を分岐するというのを構想しています。
サブフォームの税抜金額、消費税額、総額、非課税金額のコントロールソースにどう書けばいいか分からないということと、
上記以外のやり方としてやるのであれば、コードビルダーでどう書けばいいか分からないので悩んでいます。
補足情報(FW/ツールのバージョンなど)
Window10、ACCESS2016
まだ回答がついていません
会員登録して回答してみよう