明細毎に原価と粗利を計算する②

Pocket

明細毎に複数の原価を集計するために、まずはデータを入れるテーブルを作成します。

最初にメインフォームとなるテーブル。

とりあえず見積明細の見積明細NOが入れるだけです。

次に原価明細を入れるテーブル。

これは必要に応じて項目を作ってください。必要になるのはメインフォームと
サブフォームの関係にしたいので、見積明細NOは必須のフィールドです。

この二つのテーブルを基にフォームを二つ作り、原価明細の方をサブフォームで
とします。連結するのは見積明細NOです。

あとは見積書フォームを開いて、見積明細のコマンドボタンのプロパティの
イベントタブのクリック時に次のVBAコードを入れます。

Private Sub コマンド7_Click()
Me.Refresh
DoCmd.OpenForm “F見積接続”
Forms!F見積接続!見積明細NO = Forms!F見積書.F見積明細!見積明細ID
End Sub

コマンドボタンをクリックしたタイミングでT見積接続に現在参照している
見積明細NOがレコードとして入ります。

あとは明細をひたすら打っていきます。

とりあえずこれで見積明細とその原価明細が繋がりました。

========================================
人生初のダイエット(糖質制限)が3週間経ちました。
その間、米、パン、麺類はほぼほぼ食べず、主食は豆腐と化しました。
コンビニ行っても買えるものは、コーヒーとゆで卵とナッツだけ。。
世の中糖質で溢れてますね。というか糖質しかない!!
食事が面倒です泣

本日も最後までお読みいただきありがとうございます。