メールマガジン【アクセスで作るシリーズ】
バックナンバー 【会計ソフト編】 Vol.45
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
ＡＣＣＥＳＳで作るシリーズ 【会計ソフト編】
発 行 ： Yoshihisa Fukuda 2001. 3. 3 Vol.45
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
読者の皆さん、ごめんなさい。
前回のVol.44で次回からは拡張機能と書いたのですが、年度更新で肝心の作成した
サブルーチンを呼び出す所がまだでした。
ボタンの作成まではやりましたので、今回はボタンのイベントプロシージャにで、
呼び出す部分をやります。
＝＝ ◇ 第４章 年度更新 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
４－１ 年度更新
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
４－１－１ フォーム作成（続き）
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
１．データベースウィンドウの[フォーム]タブで[YearUpdateForm]を選択し、デザイ
ンウィンドウで開きます。
２．Vol.38で作成した年度更新の実行ボタン[ExecBtn]を選択し、以下の手順で
[クリック時]プロパティのモジュールウィンドウを開きます。
（１）実行ボタンを選択し[クリック時]プロパティにカーソルを移動します。
（２）右側にある[▼]をクリックし、[イベントプロシージャ]を選択します。
（３）右端の[...]ボタンをクリックするとモジュールウィンドウが開きます。
３．Private Sub ExecBtn_Click() と End Sub の間に以下のコードを記述します。
Private Sub ExecBtn_Click()
If MsgBox("年度更新を行います。" & Chr(13) & _
"年度更新を行うとデータを今の状態に復元する事はできません。" & Chr(13) & _
"必ずバックアップを取って下さい。" & Chr(13) & _
"準備はよろしいですか？", vbYesNo, "警告") = vbNo Then
MsgBox "年度更新を中断します"
Exit Sub
End If
Call KamokuZanCalc
Call SubKamokuZanCalc
Call MotoireCalc
Call SiwakeDelete
Call AddAccYear
Call CreateStartData
MsgBox "年度更新が終了しました"
End Sub
４．プログラムが書けたらモジュールウィンドウを閉じて、フォームを保存します。
【注記】
年度更新は、勘定科目、補助科目の期首残高を更新したり、仕訳データを削除、
作成したりするため、データを年度更新前に戻す事が容易ではありません。
そのため、メッセージ等を表示し、充分注意を促すようにしましょう。
また、バックアップは会計ソフトのＭＤＢをエクスプローラ等でコピーしておくと
良いでしょう。
今度こそ、年度更新の完成です。
次回からは、拡張機能に入ります。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
◆◇ Ｑ＆Ａコーナー ◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
今回はありません。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
◇ 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. 3. 3 Vol.45
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
読者の皆さん、ごめんなさい。
前回のVol.44で次回からは拡張機能と書いたのですが、年度更新で肝心の作成した
サブルーチンを呼び出す所がまだでした。
ボタンの作成まではやりましたので、今回はボタンのイベントプロシージャにで、
呼び出す部分をやります。
＝＝ ◇ 第４章 年度更新 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
４－１ 年度更新
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
４－１－１ フォーム作成（続き）
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
１．データベースウィンドウの[フォーム]タブで[YearUpdateForm]を選択し、デザイ
ンウィンドウで開きます。
２．Vol.38で作成した年度更新の実行ボタン[ExecBtn]を選択し、以下の手順で
[クリック時]プロパティのモジュールウィンドウを開きます。
（１）実行ボタンを選択し[クリック時]プロパティにカーソルを移動します。
（２）右側にある[▼]をクリックし、[イベントプロシージャ]を選択します。
（３）右端の[...]ボタンをクリックするとモジュールウィンドウが開きます。
３．Private Sub ExecBtn_Click() と End Sub の間に以下のコードを記述します。
Private Sub ExecBtn_Click()
If MsgBox("年度更新を行います。" & Chr(13) & _
"年度更新を行うとデータを今の状態に復元する事はできません。" & Chr(13) & _
"必ずバックアップを取って下さい。" & Chr(13) & _
"準備はよろしいですか？", vbYesNo, "警告") = vbNo Then
MsgBox "年度更新を中断します"
Exit Sub
End If
Call KamokuZanCalc
Call SubKamokuZanCalc
Call MotoireCalc
Call SiwakeDelete
Call AddAccYear
Call CreateStartData
MsgBox "年度更新が終了しました"
End Sub
４．プログラムが書けたらモジュールウィンドウを閉じて、フォームを保存します。
【注記】
年度更新は、勘定科目、補助科目の期首残高を更新したり、仕訳データを削除、
作成したりするため、データを年度更新前に戻す事が容易ではありません。
そのため、メッセージ等を表示し、充分注意を促すようにしましょう。
また、バックアップは会計ソフトのＭＤＢをエクスプローラ等でコピーしておくと
良いでしょう。
今度こそ、年度更新の完成です。
次回からは、拡張機能に入ります。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
◆◇ Ｑ＆Ａコーナー ◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
今回はありません。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
◇ 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.
◇転載について
このメールマガジンの無断転載などは、一切禁止です。
転載をご希望の方は、事前にメールで連絡をください。
◇免責
このメールマガジン及びホームページの内容による、いかなる損害、障害などに
関して発行者は一切の責任を負いません。
掲載広告についても同様です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□