明細に集計行を追加する②

Pocket

下の図のようにフォームで入力した見積書を印刷します。

こんな感じで小計行を明細行の最後に付けます。

このやり方は、印刷用に別のテーブルを用意して、一度そちらに印刷する明細の
レコードをコピーします。
まずは最初にレコードをコピーするテーブルを作ります。

こんな感じで、明細テーブルをコピーして、テーブルの構造のみをコピーします。

次に印刷の指示をかけるたびに、印刷用のレコードをいったんすべて削除します。
その削除クエリを作ります。

クエリデザインの削除をクリックして、見積明細印刷用テーブルを選択し、全レコード「*」を
フィールドに設定します。

削除したら印刷したい明細をレコードに追加します。

追加したいレコードはフォームで表示されている見積書NOの見積明細です。
抽出する見積書NOは、抽出条件で

[forms]![見積書メイン]![見積書NO]

と指定します。

次に、小計を見積明細印刷用テーブルに追加します。
図のように追加クエリを設定します。

見積書NOについては、
式3: [Forms]![見積書メイン]![見積書NO]
と指定します。

この3つのクエリを実行すると見積明細に小計が表示されます。

印刷ボタンを押したときに、次のコードを追加します。
DoCmd.OpenQuery “Q見積明細印刷用削除”
DoCmd.OpenQuery “Q明細追加”
DoCmd.OpenQuery “見積印刷小計追加”
クエリを実行する順番は必ずこの順番で実行してください。

========================================
先日フルマラソンを2年ぶりに走ってきました。
結果は3時間11分42秒で自己ベストを21秒更新しました!
西風が常に強く吹く劣悪なコンディションでしたが、その状況での自己ベストは
自信になります。サブスリー目指してまだまだ頑張ります。

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