メールマガジン【アクセスで作るシリーズ】
バックナンバー 【会計ソフト編】 Vol.44
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
ＡＣＣＥＳＳで作るシリーズ 【会計ソフト編】
発 行 ： Yoshihisa Fukuda 2001. 2. 24 Vol.44
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＝＝ ◇ 第４章 年度更新 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
今回はVol.43で作成した繰越データ作成サブルーチンの解説です。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
４－１ 年度更新
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
４－１－２ モジュール作成
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
繰越データ作成のサブルーチンを作成します。
【解説】
Vol.43 ではサブルーチンを２つ作成しました。
各サブルーチンの解説の前に、２つのサブルーチンの概要と関連を説明しておきま
しょう。
まず、CreateStartData サブルーチンでは、勘定科目と補助科目のそれぞれについて、
全データを処理するため、テーブルの先頭からデータが無くなるまでループして処理
をさせる、いわゆる全体の処理の流れを行っています。
そして、BalanceJournalSet サブルーチンは、与えられたパラメータの情報で、仕訳
テーブルに対して、追加、更新、削除の処理を行います。
BalanceJournalSet のパラメータは
Function BalanceJournalSet(KamokuID As Integer, _
SubKamoID As Integer, _
KamokuKind As Integer, _
Balance As Currency, _
AccountYear As Integer)
で最初の第１パラメータが科目ID、第２パラメータが補助科目ID、第３パラメータが
科目種別、第４パラメータが金額、第５パラメータが会計年度です。
具体的には、与えられた勘定科目、補助科目の繰越データの有無により、仕訳データ
の追加、更新、削除を判断し、仕訳データを作成します。
作成する繰越の仕訳データは、相手科目の科目IDが１（私が作成したサンプル科目
テーブルを使用する場合）で、伝票日付が会計年度の１月１日で作成されます。
では、個々のサブルーチンを見ていきましょう。
・CreateStartData
１．まず、最初から６行は変数の宣言です。
２．８行目はデータベースのオープン、９～１２行目で使用する各テーブルのオー
プンを行っています。
３．１４行目は基本テーブルのカレントレコードを先頭へ、１５行目は科目テーブ
ルのカレントレコードを先頭へそれぞれ移動しています。
４．１６行目から２４行目のWhile文で科目テーブルを全て処理します。
５．１７～２１行目はサブルーチンの呼び出しです。
BalanceJournalSet と言うサブルーチンを呼び出しています。
BalanceJournalSet と言うサブルーチンは、この後解説しますが、簡単に言う
とパラメータの情報から仕訳データを作成し、仕訳テーブルに追加・更新する
サブルーチンです。
６．２３行目は科目テーブルのカレントレコードを次のレコードへ移動しています。
７．２５行目からは、科目テーブルで行った事を補助科目テーブルに対して、
まったく同様の処理を行っています。
８．３６～３９行目は、使用したテーブルをクローズ、４０行目はデータベースを
クローズしています。
・BalanceJournalSet
１．最初から３行は変数の宣言です。
２．５～７行目は処理するデータの科目種別が資産、負債、資本以外ならこのサブ
ルーチンを抜ける（何も処理しない）と言う意味です。
３．９行目はデータベースのオープン、１０行目は仕訳テーブルのオープンを
行っています。
４．１２行目で処理するデータの科目種別が負債か資産、資本かにより振り分けて
います。
これは、資産、資本と負債で勘定科目の貸借属性が異なるからです。
５．１３・１４行目と１６・１７行目は検索条件の設定を行っています。
処理する勘定科目の繰越データが無ければ追加、既にある場合、修正又は削除
を行うためです。
６．１９行目で５．で指定した検索条件で仕訳テーブルを検索しています。
７．２０行目で、繰越データが無ければ追加、既にある場合、修正又は削除の振り
分けをしています。
８．２１行目は繰越データが無い場合で、その場合仕訳テーブルにデータを追加
するため、AddNewメソッドで追加できる様にします。
９．２３行目からは既に繰越データが存在した場合で、その場合、繰越が無ければ
繰越データを削除、あれば修正という振り分けを行います。
10．２４～２８行目は既にある繰越データを削除する処理で、削除した後は、この
サブルーチンを終了します。
11．３０行目は既にある繰越データをEditメソッドで更新できるようにしています。
12．３３行目からはパラメータの値を仕訳テーブルに設定し書き込みを行っていま
す。
13．３５行目は、仕訳データに勘定科目を設定するのに、科目種別で貸借の判別を
行っています。
14．４８行目はUpdateメソッドを用いて実際に仕訳テーブルにデータを更新して
います。
15．５０行目で仕訳テーブルをクローズ、５１行目でデータベースをクローズして
います。
以上で、繰越データ作成は終了です。
これで、基本的な部分は全て作成されました。
まだ、充分な機能とは言えないまでも、一応最低限の事は出来ると思います。
次回からは、拡張機能としてこれまで作成してきた会計ソフトを改良しましょう。
そこで、プログラムの何処をどう変えれば、どの様になるかなど、実験的にやる中で
皆さんは、よりアクセスの知識が身に付けばと思います。
言うなれば、今まではアクセスを勉強するための教材を作成してきた訳で、これから
その教材を用いて勉強していく感じです。
次回からは、皆さんから一番要望が強かった、「どうしてこうなるの？」を中心に
やっていきましょう。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
◆◇ Ｑ＆Ａコーナー ◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
今回はありません。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
◇ 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.
◇転載について
このメールマガジンの無断転載などは、一切禁止です。
転載をご希望の方は、事前にメールで連絡をください。
◇免責
このメールマガジン及びホームページの内容による、いかなる損害、障害などに
関して発行者は一切の責任を負いません。
掲載広告についても同様です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
ＡＣＣＥＳＳで作るシリーズ 【会計ソフト編】
発 行 ： Yoshihisa Fukuda 2001. 2. 24 Vol.44
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＝＝ ◇ 第４章 年度更新 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
今回はVol.43で作成した繰越データ作成サブルーチンの解説です。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
４－１ 年度更新
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
４－１－２ モジュール作成
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
繰越データ作成のサブルーチンを作成します。
【解説】
Vol.43 ではサブルーチンを２つ作成しました。
各サブルーチンの解説の前に、２つのサブルーチンの概要と関連を説明しておきま
しょう。
まず、CreateStartData サブルーチンでは、勘定科目と補助科目のそれぞれについて、
全データを処理するため、テーブルの先頭からデータが無くなるまでループして処理
をさせる、いわゆる全体の処理の流れを行っています。
そして、BalanceJournalSet サブルーチンは、与えられたパラメータの情報で、仕訳
テーブルに対して、追加、更新、削除の処理を行います。
BalanceJournalSet のパラメータは
Function BalanceJournalSet(KamokuID As Integer, _
SubKamoID As Integer, _
KamokuKind As Integer, _
Balance As Currency, _
AccountYear As Integer)
で最初の第１パラメータが科目ID、第２パラメータが補助科目ID、第３パラメータが
科目種別、第４パラメータが金額、第５パラメータが会計年度です。
具体的には、与えられた勘定科目、補助科目の繰越データの有無により、仕訳データ
の追加、更新、削除を判断し、仕訳データを作成します。
作成する繰越の仕訳データは、相手科目の科目IDが１（私が作成したサンプル科目
テーブルを使用する場合）で、伝票日付が会計年度の１月１日で作成されます。
では、個々のサブルーチンを見ていきましょう。
・CreateStartData
１．まず、最初から６行は変数の宣言です。
２．８行目はデータベースのオープン、９～１２行目で使用する各テーブルのオー
プンを行っています。
３．１４行目は基本テーブルのカレントレコードを先頭へ、１５行目は科目テーブ
ルのカレントレコードを先頭へそれぞれ移動しています。
４．１６行目から２４行目のWhile文で科目テーブルを全て処理します。
５．１７～２１行目はサブルーチンの呼び出しです。
BalanceJournalSet と言うサブルーチンを呼び出しています。
BalanceJournalSet と言うサブルーチンは、この後解説しますが、簡単に言う
とパラメータの情報から仕訳データを作成し、仕訳テーブルに追加・更新する
サブルーチンです。
６．２３行目は科目テーブルのカレントレコードを次のレコードへ移動しています。
７．２５行目からは、科目テーブルで行った事を補助科目テーブルに対して、
まったく同様の処理を行っています。
８．３６～３９行目は、使用したテーブルをクローズ、４０行目はデータベースを
クローズしています。
・BalanceJournalSet
１．最初から３行は変数の宣言です。
２．５～７行目は処理するデータの科目種別が資産、負債、資本以外ならこのサブ
ルーチンを抜ける（何も処理しない）と言う意味です。
３．９行目はデータベースのオープン、１０行目は仕訳テーブルのオープンを
行っています。
４．１２行目で処理するデータの科目種別が負債か資産、資本かにより振り分けて
います。
これは、資産、資本と負債で勘定科目の貸借属性が異なるからです。
５．１３・１４行目と１６・１７行目は検索条件の設定を行っています。
処理する勘定科目の繰越データが無ければ追加、既にある場合、修正又は削除
を行うためです。
６．１９行目で５．で指定した検索条件で仕訳テーブルを検索しています。
７．２０行目で、繰越データが無ければ追加、既にある場合、修正又は削除の振り
分けをしています。
８．２１行目は繰越データが無い場合で、その場合仕訳テーブルにデータを追加
するため、AddNewメソッドで追加できる様にします。
９．２３行目からは既に繰越データが存在した場合で、その場合、繰越が無ければ
繰越データを削除、あれば修正という振り分けを行います。
10．２４～２８行目は既にある繰越データを削除する処理で、削除した後は、この
サブルーチンを終了します。
11．３０行目は既にある繰越データをEditメソッドで更新できるようにしています。
12．３３行目からはパラメータの値を仕訳テーブルに設定し書き込みを行っていま
す。
13．３５行目は、仕訳データに勘定科目を設定するのに、科目種別で貸借の判別を
行っています。
14．４８行目はUpdateメソッドを用いて実際に仕訳テーブルにデータを更新して
います。
15．５０行目で仕訳テーブルをクローズ、５１行目でデータベースをクローズして
います。
以上で、繰越データ作成は終了です。
これで、基本的な部分は全て作成されました。
まだ、充分な機能とは言えないまでも、一応最低限の事は出来ると思います。
次回からは、拡張機能としてこれまで作成してきた会計ソフトを改良しましょう。
そこで、プログラムの何処をどう変えれば、どの様になるかなど、実験的にやる中で
皆さんは、よりアクセスの知識が身に付けばと思います。
言うなれば、今まではアクセスを勉強するための教材を作成してきた訳で、これから
その教材を用いて勉強していく感じです。
次回からは、皆さんから一番要望が強かった、「どうしてこうなるの？」を中心に
やっていきましょう。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
◆◇ Ｑ＆Ａコーナー ◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
今回はありません。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
◇ 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.
◇転載について
このメールマガジンの無断転載などは、一切禁止です。
転載をご希望の方は、事前にメールで連絡をください。
◇免責
このメールマガジン及びホームページの内容による、いかなる損害、障害などに
関して発行者は一切の責任を負いません。
掲載広告についても同様です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□