■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□

　　　　ＡＣＣＥＳＳで作るシリーズ　　【会計ソフト編】

　　　　発　行　：　Yoshihisa Fukuda　　　　　　　　　　2001. 1.27　Vol.41

■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－


＝＝　◇　第４章　年度更新　　　　　＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

今回は年度更新の元入金の集計サブルーチンの作成です。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
４－１　年度更新
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
４－１－２　モジュール作成
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
元入金の集計サブルーチンを作成します。

【モジュール作成手順】
１．[モジュール]タブで前回作成した[CommonSub]モジュールを選択し、[デザイン]
　　ボタンを押してモジュールウィンドウを開きます。
２．カーソルを一番下（前回作成したSubKamokuZanCalc()の下）に移動し、
　　Function MotoireCalc()　と入力しエンターキーを押下します。
３．すると１行空いて　End Function　と表示されます。
　　この中に元入金集計のプログラムを記述します。
４．以下のコードを　Function MotoireCalc()　と　End Function　の間に記述
　　します。

　　Dim ACC_DB As Database
　　Dim Kamo_T As Recordset
　　Dim Env_T As Recordset
　　Dim FindStr As String
　　Dim TotalSisan As Currency
　　Dim TotalFusai As Currency
　　
　　Set ACC_DB = CurrentDb
　　Set Kamo_T = ACC_DB.OpenRecordset("KamokuTable", dbOpenDynaset)
　　Set Env_T = ACC_DB.OpenRecordset("EnvironTable")
　　
　　TotalSisan = DSum("ZanDaka", "KamokuTable", "KamokuKind = 1")
　　TotalFusai = DSum("ZanDaka", "KamokuTable", "KamokuKind = 2")
　　
　　Env_T.MoveFirst

　　FindStr = "KamokuID = " & Env_T.Fields("MotoireKamoID").Value
　　Kamo_T.FindFirst (FindStr)
　　Kamo_T.Edit
　　Kamo_T.Fields("ZanDaka").Value = TotalSisan - TotalFusai
　　Kamo_T.Update

　　Env_T.Close
　　Kamo_T.Close
　　ACC_DB.Close

５．モジュールを上書き保存します。

【解説】

まず、プログラムの解説の前に、元入金の計算方法を考えましょう。
通常、翌期首の元入金の計算式は以下のようになります。

(翌期首の元入金)　＝　(期末の元入金)　＋　(青色申告特別控除前の所得金額)
　　　　　　　　　＋　(事業主借)　－　(事業主貸)

または、

(翌期首の元入金)　＝　(翌期首の資産総額)　－　(翌期首の負債総額)

見るからに下の式の方が簡単ですね。
そこで、この会計ソフトでは、下の式を用います。
即ち、今回作成する元入金の集計サブルーチンは、前々回に作成した勘定科目の残高
集計サブルーチンを呼んだ後に呼ばれる様にします。

それではプログラムの解説です。

１．まず、最初から６行は変数の宣言です。
２．８行目はデータベースのオープン、９行目は科目テーブルのオープン、１０行目
　　は環境テーブルのオープンを行っています。
３．１２行目は勘定科目テーブルの資産科目の残高の合計を計算しています。
４．１３行目は勘定科目テーブルの負債科目の残高の合計を計算しています。
５．１５行目は環境テーブルのカレントレコードを先頭レコードに移動しています。
６．１７行目は科目テーブルのカレントレコードを元入金科目にするため、環境テー
　　ブルに設定してある元入金科目ＩＤを用いて検索条件を指定しています。
７．１８行目は１７行目で作成した検索条件でカレントレコードを移動しています。
　　これにより科目テーブルのカレントレコードは元入金科目のレコードになります。
８．１９行目は科目テーブルのデータをEditメソッドを用いて更新（残高を更新）で
　　きるようにしています。
９．２０行目で科目テーブルの残高フィールドに元入金を計算して代入しています。
10．２１行目で科目テーブルにデータを更新しています。
11．２３行目で環境テーブル、２４行目で勘定科目テーブル、２５行目でデータベー
　　スをクローズしています。

以上で、元入金の集計サブルーチンは完成です。
次回は仕訳データ削除と年度のカウントアップを行います。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
◆◇　Ｑ＆Ａコーナー　　　　◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇

　今回はありません。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□

◇ ACCESSで作るシリーズ　【会計ソフト編】
◇ 発　行　元　　：Yoshihisa Fukuda（福田　義久）
◇ ご意見・ご要望
　 ご質問等　　　：y.fukuda@ro.bekkoame.ne.jp

◇ このメールマガジンは、インターネットの本屋さん『まぐまぐ』を利用して発行
　 しています。（まぐまぐID:0000030446)
◇ バックナンバー：http://www.bekkoame.ne.jp/ro/y.fukuda/
◇ 登録・解除　　：http://www.bekkoame.ne.jp/ro/y.fukuda/

　Copyright(C) 2000-2001 Yoshihisa Fukuda All rights reserved.

◇転載について
　このメールマガジンの無断転載などは、一切禁止です。
　転載をご希望の方は、事前にメールで連絡をください。
◇免責
　このメールマガジン及びホームページの内容による、いかなる損害、障害などに
　関して発行者は一切の責任を負いません。
　掲載広告についても同様です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□