もし、納品明細の変更や追加があった場合、消費税の金額が変わります。
そのときの対応の仕方です。
最初にメインフォームの方に、その納品書の消費税の明細が登録されている納品明細の
ID（主キー）の数字を入力します。それが①
これで納品書の消費税の明細がどこの納品明細テーブルのレコードかわかるようになります。
最初のIF関数で消費税のない場合を規定し、ある場合（Else）以下のコードを追加します。
If DCount(“*”, “納品明細”, “納品書NO=” & Me!納品書NO & “” & ” and ” & “商品CD=’9999′”) = 0 Then
rs.AddNew
rs!納品書NO = Me!納品書NO
rs!納品ID = DMax(“納品ID”, “納品明細”, “納品書NO=” & Me!納品書NO & “”)
rs!商品CD = 9999
rs!部門 = 99
rs!商品名 = “消費税”
rs!納品金額 = Me!テキスト40
rs.Update
Me!消費税NO = DMax(“ID”, “納品明細”, “納品書NO=” & Me!納品書NO & “”) ①
Else
If Me!消費税NO <> 0 Then
rs.Find “ID=” & Me!消費税NO & “”
rs!納品金額 = Me!テキスト40
rs.Update
End If
End If
もし、消費税NOが初期値の0でないとき、つまりすでに消費税のレコードが登録されている場合は、
その明細のIDをFindで探して、そのIDの明細に更新された消費税の金額を上書きします。
このような形で伝票毎の消費税を明細としてレコードに保存します。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
最近経営計画が作れるツールを求め、T○Cもありかなとも思いましたが
コストが結構かかるので、自分で作ろうかと思います。
昨日Accessでいろいろと試しましたが、Excelの方がいいのかなと思案中です。
本日も最後までお読みいただきありがとうございます。
