2009/02/25
Access 実践入門 第７８号
-------------------------------------------
Access 実践入門 第７８号 (2009.2.25)
-------------------------------------------
こんにちは、Access実践入門の佐藤です。
雨の日が多いですね〜
雨の日は、比較的暖かいです。
このまま春になってくれれば、いいのですが・・・・
【１】費用別明細印刷１
【２】費用別明細印刷２
【３】次回予告
【４】編集後記
---------------------------------------------------------------------
【１】費用別明細印刷１
---------------------------------------------------------------------
費用明細の印刷は、日付の範囲と費用科目を指定して、
その明細を印刷するものです。
科目の元帳みたいなものです。
「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([終わり])
If IsNull([指定科目]) Then
MsgBox ("科目を指定して下さい。")
DoCmd.CancelEvent
DoCmd.GoToControl "指定科目"
Exit Sub
End If
まず、IsNull関数を使って、日付の始めと終わりに
日付が入力されているかどうか、調べる。
次に、IsDate関数を使って、入力された日付が
正しいものがどうか調べる。
次に、両方の日付を、抽出条件に使う隠しテキストボックスに
値を代入しておきます。
最後に、科目が指定されているかどうか調べる。
指定科目のチェックが、隠しテキストボックスの
値代入の前でも同じことです。
２つの日付をわざわざ隠した、テキストボックスに
代入していますが、これは、無くても処理できます。
クエリの抽出条件に、DateValue関数を使って、
書いても同じことです。
ただ、日付が正しいかどうかの、チェックは必要です。
プログラムのスタイルを、自分が使いやすいように作って
それを、どのプログラムでも、同じように使えばいいと思います。
【２】費用別明細印刷２
---------------------------------------------------------------------
費用科目の選択コンボでは、
「更新後処理」に
Me![指定科目名] = Me![指定科目].Column(1)
があります。
これは、非連結のテキストボックスでは、お決まりのものです。
指定項目に正しく入力されているのが確認されたら。
開始ボタンの「クリック時」に進むことになります
開始ボタンの「クリック時」に次のように書いています。
DoCmd.OpenReport "re費用別明細", acViewPreview
レポートを開きます。
レポートのレコードソースは、
「qu費用別明細」です。
内容は、
処理日付、費用科目番号に抽出条件を入れたものです。
レポートも簡単です。
特に何もありません。
過去に作った、使えそうなレポートを
コピーして、項目やレコードソースを変更したものです。
いきなり、レポートのプレビュー画面を開くのではなく、
画面で確認できれば、より実務的ではあります。
プレビュー画面より、フォームで確認する方が、見やすいですから。
【３】次回予告
---------------------------------------------------------------------
次回は、収支明細印刷 です。
【４】編集後記
---------------------------------------------------------------------
Access2007がリリースされて、もうかなり経ちましたが、
実際に使われている人は多いのでしょうかね〜
私、2007は使いにくいので、使っていないのです。
これから、Accessを使う方は、2003を手に入れるのは難しいですから
2007しか購入できない状態ですから、良いも悪いもないでしょうけど・・・
2003は期間が長かったですし、持っている人は多いでしょうね。
そろそろ2007も、少しずつ使わないと駄目かも。
と考えています。
---------------------------------------------------------------------
みなさんは、アフィリエイトってご存じでしょうか？
ブログやサイトから、広告収入等を得る手法ですが、
佐藤も、以前から少しずつやってるのです。
なかなか、面白いんですよ
興味のある方は、こちらをご覧下さい。
アフィリエイトの勧め : http://www.msactry.com/aff/
=====================================================================
【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/kyex/index.htm
=====================================================================
【発行システム】『まぐまぐ！』 http://www.mag2.com/
配信中止はこちらから http://www.mag2.com/m/0000229312.html
=====================================================================
