2009/04/08
Access 実践入門 第８３号
-------------------------------------------
Access 実践入門 第８３号 (2009.4.8)
-------------------------------------------
こんにちは、Access実践入門の佐藤です。
日曜日に、お花見に行って来ました。
いい天気で、暑いくらいでした。
良い季節になりましたね〜
家でパソコンなんか、してる場合じゃないですが・・
【１】収支報告書１
【２】収支報告書２
【３】次回予告
【４】編集後記
---------------------------------------------------------------------
【１】収支報告書１
---------------------------------------------------------------------
収支報告書の印刷は、日付の範囲を指定して、
その期間の収入と費用の科目合計を印刷するものです。
決算書のようなものです。
「fo帳簿一覧表」で収支報告書のボタンをクリックすると、
「fo収支報告書指定」が開くようになっています。
この指定フォームは、
「fo収支明細指定」をコピーしてくれば
ほとんどそのまま使えます。
開始ボタンの「フォーカス喪失時」に次のように書いています。
If IsNull([始め]) Then
MsgBox ("日付を入力して下さい。")
DoCmd.CancelEvent
DoCmd.GoToControl "始め"
Exit Sub
End If
If IsNull([終わり]) Then
MsgBox ("日付を入力して下さい。")
DoCmd.CancelEvent
DoCmd.GoToControl "終わり"
Exit Sub
End If
If IsDate([始め]) = 0 Then
MsgBox "日付の入力が間違っています。", , ""
DoCmd.CancelEvent
DoCmd.GoToControl "始め"
Exit Sub
End If
If IsDate([終わり]) = 0 Then
MsgBox "日付の入力が間違っています。", , ""
DoCmd.CancelEvent
DoCmd.GoToControl "終わり"
Exit Sub
End If
[日付始め] = DateValue([始め])
[日付終わり] = DateValue([終わり])
この部分は、「fo収支明細指定」のままで使えます
変更の必要無しです。
開始ボタンの「クリック時」が少し変わるだけです。
If IsNull(DSum("[収入額]", "qu収支報告指定残高")) Then
Form_fo収支報告指定!繰越残高 = DLookup("[締切残高]", "ta基本情報",
"[通し番号]=1")
Else
Form_fo収支報告指定!繰越残高 = DLookup("[締切残高]", "ta基本情報",
"[通し番号]=1") + DSum("[収入額]", "qu収支報告指定残高") - DSum("[費用額]",
"qu収支報告指定残高")
End If
DoCmd.OpenReport "re収支報告", acViewPreview
計算しているクエリの名前と指定フォームの名前を変更するだけです。
そのクエリ「qu収支報告指定残高」も
明細に使っているクエリ「qu収支明細指定残高」を
コピーして、
抽出条件のフォーム名を変更するだけです。
コントロール名は同じですから、とても簡単です。
このように、指定フォームを別のものにも
使えるようにしておくと便利です。
指定フォームでは、
コントロール名を
「始め」「終わり」のようにしています。
これを
「収支明細始め」「収支明細終わり」のようにしていたら、
別のフォームで使いにくいです
指定フォームというのは、だいたい似たような形が多いので、
コピーして使えるような工夫をしておきます。
【２】収支報告書２
---------------------------------------------------------------------
レポート「re収支報告」のレコードソースは
「qu収支報告」です
デザインを見てください。
上に表示されている、テーブルの中に、クエリも含まれています。
テーブルだけを繋いで、クエリを作って処理できない場合に
このようなクエリを作ります。
（この場合はテーブルだけでもできるのですが、できない場合もありますので・・）
ここでは、まず
クエリ「qu収支報告集計」を作成します
これは、集計クエリです。
日付の範囲で抽出して、
科目毎の合計を計算したものです。
次に、クエリ「qu収支報告」を作ります。
「qu収支報告集計」と科目名を表示させるために、２つテーブルを繋いでいます
収入科目番号、費用科目番号を並び替えると
うまく、収入の若い番号から表示されるようになります。
レポートは、単純なものです。
ただ、各科目の番号は、９９の場合は印字されないようにしています
=IIf([費用科目番号]="99","",[費用科目番号])
【３】次回予告
---------------------------------------------------------------------
次回は、予算実績表 です。
【４】編集後記
---------------------------------------------------------------------
最近、どこ行っても、皆さん忙しそうです。
不況と言われていますが、仕事をしている人は、
仕事が増えたり、いろいろ新しい事に挑戦したりと
頑張っておられますね〜
春になりましたし、何か新しい事を始めてみたいですね。
何か、夢中になれるような、楽しい事はないでしょうか。
とりあえず、健康のために、歩こうか・・・・
---------------------------------------------------------------------
最近は、パソコンで映画を観ることもできますが、
動画のパソコン講座も、あるんですよ。
マウスが動いて、画面が変わって、
音声での解説を聞きながら、その動きを見て、
ソフトの勉強ができるようになっています。
初めてのソフトの勉強には、いいかもしれません。
興味のある方は、こちらをご覧下さい。
動画講座のご案内 : http://www.msactry.com/douga/
=====================================================================
【Access実践入門】
ホームページ : http://www.msactry.com/
メルマガ用サンプルプログラム
: http://www.msactry.com/mag2/201/index.htm
参考書「Access実践入門」のダウンロード（ＰＤＦファイル）
: http://www.msactry.com/down00/downrepo.htm
=====================================================================
【動画講座のご案内】
http://www.msactry.com/douga/
【その他オフィス関連の教材紹介】
http://www.msactry.com/kyex/
=====================================================================
【発行システム】『まぐまぐ！』 http://www.mag2.com/
配信中止はこちらから http://www.mag2.com/m/0000229312.html
=====================================================================
