明細を入力したときに、その合計を見積の明細に反映させます。
仕組みは「閉じる」のコマンドボタンを押したときに次の
VBAコードを入力します。
Private Sub コマンド7_Click()
Me.Refresh
Forms!F見積書.F見積明細!見積原価 = Forms!F見積接続.F見積詳細!テキスト11
DoCmd.Close acForm, “F見積接続”
End Sub
閉じるを押すたびに見積原価の値を更新していきます。
明細を追加していくと、当然何行かになっていきます。
明細毎の粗利は出ても、最終的には伝票毎の粗利はどうか、確認できるようにします。
明細の見積金額と見積原価をサブフォームで計算し、その値をメインフォームに
反映させます。
売上金額 =[F見積明細].[Form]![テキスト24]
見積原価 =[F見積明細].[Form]![テキスト25]
あとは四則演算を使って粗利と粗利率を計算します。
このような感じで明細毎の粗利率を計算し、最後に伝票毎の粗利を計算できる
ようにします。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
コロナも落ち着いてきて、今度の日曜日にフルマラソンを走ります。
ほぼ3年ぶりのフル。30キロまでしか練習で走っていないので不安はあります。
今回はサブスリーは狙わず、手堅く自己新更新目指して前半ゆっくり入ります。
最後までお読みいただきありがとうございます。
