Access (一般機能)

Accessの一般機能に関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 11 Home : Access 2019)
伝票番号作成のコードについてです
投稿日時: 22/03/24 11:56:54
投稿者: miyama2305

2つのテーブルがあります
1つは、T入力伝票明細(一般仕訳)です
フイールドは以下です。
日付-----/伝票番号/借方科目/借方金額/貸方科目/貸方金額/摘要
2021/1/20/------1/現金-----/----1000/----売上/----1000/現金売上
2021/1/21/------2/仕入-----/----2000/----現金/----2000/現金仕入
2021/1/22/------5/消耗品---/-----200/----現金/-----200/備品
2021/1/23/------8/雑費-----/-----100/----現金/-----100/雑貨
2つは、T入力伝票明細サブ(原価仕訳)です
日付-----/伝票番号/借方科目/借方金額/貸方科目/貸方金額/摘要
2021/1/20/-------3/未成工事/----300/----買掛金/----300/1月分
2021/1/21/-------4/未成工事/----200/----買掛金/----200/原材料
2021/1/22/-------6/未成工事/-----20/----買掛金/-----20/N建設
2021/1/23/-------7/未成工事/-----50/----買掛金/-----50/K産業
伝票番号は重複しません。
 
新たに3つ目のテーブルを作成します。
T原価共通費明細(共通費の按分仕訳)です
日付-----/伝票番号/借方科目--/借方金額/----貸方科目/貸方金額/摘要
2021/1/31/-------9/法定福利費/------30/----未成工事/------30/月共通費配布
2021/1/31/------10/福利厚生費/------10/----未成工事/------10/月共通費配布
2021/1/31/------11/修繕費----/------15/----未成工事/------15/月共通費配布
2021/1/31/------12/燃料費----/------25/----未成工事/------25/月共通費配布
 
お願いしたいのは、3つ目のテーブルの伝票番号の設定方法です。
クエリを使用してT原価共通費明細を作成します。
伝票番号は重複不可ですので、
クエリフイールドの伝票番号の、コードを指導いただきたいと
思います。
Format(DMax("伝票番号", "T入力伝票明細サブ"))
Format(DMax("伝票番号", "T入力伝票明細"))
を比較して
T入力伝票明細の伝票番号が多ければ
伝票番号: Format(DMax("伝票番号", "T入力伝票明細") + 1)
T入力伝票明細サブの伝票番号が多ければ
伝票番号: Format(DMax("伝票番号", "T入力伝票明細サブ") + 1)
のように作成したいとおもいます。
ご指導お願いします。
 
最終的には3つのテーブルを結合します。
 
 
 
 
 
 

回答
投稿日時: 22/03/24 13:12:21
投稿者: よろずや

クエリを1つ作りましょう。
クエリの中身はSQL文です。
 
Q伝票番号:
SELECT 伝票番号 FROM T原価共通費明細
UNION ALL SELECT 伝票番号 FROM T入力伝票明細
UNION ALL SELECT 伝票番号 FROM T入力伝票明細サブ;
 
その上で、
 
伝票番号: Format(DMax("伝票番号", "Q伝票番号") + 1)
 
でいいのでは。

回答
投稿日時: 22/03/24 17:02:28
投稿者: Suzu

そもそも、テーブル構造は全て同じですよね。
 
であれば、全部同じテーブルに入れて フィールドを1つ追加し
その追加したフィールド の値にて
・一般仕訳
・原価仕訳
・共通費の按分仕訳
を判別できる様にし
必要に応じて、クエリで抽出すればどうでしょう。

トピックに返信