メールマガジン【アクセスで作るシリーズ】
バックナンバー 【会計ソフト編】 Vol.24
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
ＡＣＣＥＳＳで作るシリーズ 【会計ソフト編】
発 行 ： Yoshihisa Fukuda 2000.09.16 Vol.24
（訂正版）
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
先程、手違いで間違った原稿を発行してしまいました。
最初の方は破棄して、この訂正版と差し替えて下さい。
今回は、総勘定元帳のレポート作成の続きです。
＝＝ ◇ 第３章 帳票 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
３－１ 総勘定元帳
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
３－１－４ レポート作成（続き）
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
１．残高の計算に必要な科目種別のフィールドを追加します。
（１）ツールバーのテキストボックスを選択し、ページヘッダーの右上辺りを
クリックしてテキストボックスを追加します。（このフィールドは見えなく
するので位置は適当で構いません）
（２）作成したテキストボックスを選択し、以下のプロパティを設定しましょう。
名前 ・・・ KamokuKind
コントロールソース ・・・ =DLookUp("KamokuKind","KamokuTable",
"KamokuID = " & [Forms]![MotoCyoRepForm]![KamokuCombo])
可視 ・・・ いいえ
※ コントロールソースは１行にして入力します。
余計なラベルは削除しましょう。
２．残高フィールドを作成しましょう。
（１）ツールバーのテキストボックスを選択し、貸方金額[KasiAmount]の右側で
クリックしてテキストボックスを追加します。
（２）同じ要領で貸方消費税[KasiTax]の右側にもテキストボックスを追加します。
（３）貸方金額の右側に作成した金額残高テキストボックスを選択し、以下の
プロパティを設定しましょう。
名前 ・・・ ZanAmount
コントロールソース ・・・ =IIf([KamokuKind]=1 Or [KamokuKind]=5,
nz([KariAmount],0)-nz([KasiAmount],0),nz([KasiAmount],0)-nz([KariAmount],0))
書式 ・・・ 通貨
集計実行 ・・・ 全体
（４）貸方消費税の右側に作成した消費税残高テキストボックスを選択し、以下の
プロパティを設定しましょう。
名前 ・・・ ZanTax
コントロールソース ・・・ =IIf([KamokuKind]=1 Or [KamokuKind]=5,
nz([KariTax],0)-nz([KasiTax],0),nz([KasiTax],0)-nz([KariTax],0))
書式 ・・・ 通貨
集計実行 ・・・ 全体
※ コントロールソースは１行にして入力します。
余計なラベルは削除しましょう。
３．DenpyoDateフッターのレイアウトを整えましょう。
（１）[合計]というラベルを削除しましょう。
（２）ウィザードで作成されたDenpyoDateフッターの１行目には、伝票日付と
レコード数が表示されるテキストボックス（[テキスト2]）があります。
この[コントロールソース]プロパティを以下のように修正します。
=Format$([DenpyoDate],"m月"" 計""")
サイズも全角文字で５文字くらいにしましょう。
（３）４つの合計のコントロール（[KariAmountの合計][KasiAmountの合計]
[KariTaxの合計][KasiTaxの合計]）のレイアウトを整えます。
DenpyoDateフッターのレイアウト
-----------------------------------------------------------------------
[F1 ][F2 ][F4 ]
[F3 ][F5 ]
-----------------------------------------------------------------------
F1:（２）の[テキスト2]
F2:[KariAmountの合計] F3:[KariTaxの合計]
F4:[KasiAmountの合計] F5:[KasiTaxの合計]
４．レポートフッターのレイアウトを整えましょう。
（１）[総計]というラベルを[累計]としましょう。
（２）４つの合計のコントロール（[KariAmount総合計][KasiAmount総合計]
[KariTax総合計][KasiTax総合計]）のレイアウトを整えます。
（３）残高の累計のフィールドを追加します。
[KasiAmount総合計]の右側に、テキストボックスを追加し以下の
プロパティを設定しましょう。
名前 ・・・ ZanAmount総合計
コントロールソース ・・・ =IIf([KamokuKind]=1 Or [KamokuKind]=5,
Sum(nz([KariAmount],0)-nz([KasiAmount],0)),Sum(nz([KasiAmount],0)
-nz([KariAmount],0)))
書式 ・・・ 通貨
[KasiTax総合計]の右側にも、テキストボックスを追加し以下のプロパティ
を設定しましょう。
名前 ・・・ ZanTax総合計
コントロールソース ・・・ =IIf([KamokuKind]=1 Or [KamokuKind]=5,
Sum(nz([KariTax],0)-nz([KasiTax],0)),Sum(nz([KasiTax],0)
-nz([KariTax],0)))
書式 ・・・ 通貨
※ コントロールソースは１行にして入力します。
余計なラベルは削除しましょう。
レポートフッターのレイアウト
-----------------------------------------------------------------------
累計 [F1 ][F3 ][F5 ]
[F2 ][F4 ][F6 ]
-----------------------------------------------------------------------
F1:[KariAmount総合計] F2:[KariTax総合計]
F3:[KasiAmount総合計] F4:[KasiTax総合計]
F5:[ZanAmount総合計] F6:[ZanTax総合計]
５．このままでも、一応総勘定元帳として出力可能ですが、少し体裁を整えましょう。
まず、総勘定元帳のタイトルですが、今はレポートヘッダーにあるため、最初の
１ページ目にしか出力されません。
各ページにタイトルが出力される様に、タイトルをページヘッダーに移動しま
しょう。
また、罫線を入れると見易くなります。
市販の会計ソフトやサンプルを参考にして下さい。
※ 市販の会計ソフトは購入しなくても、カタログとかで帳票のレイアウトを見る
事が出来ます。
６．月が変わる時に改ページしたい場合。
総勘定元帳を月毎に改ページさせたい場合、DenpyoDateヘッダーを選択し、
[改ページ]プロパティを[カレント セクションの前]にすると月毎に改ページ
されます。
※ サンプルは改ページしない様になっています。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
以上で、総勘定元帳のレポートが完成です。
次回は総勘定元帳の印刷指示フォームからのレポートを呼び出しの作成です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
◆◇ ワンポイントコーナー ◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
【ページ設定】
レポートを作成する時、一番気にする点は、レイアウトでしょう。
用紙サイズや縦置きか横置きかを考えて設計する訳ですが、込み入った帳票など
では、出来るだけ用紙を有効に使いたくものです。
レポートのレイアウトを考える時、まず最初にやることは余白のサイズを決めて
実際に印刷できる範囲を決定します。
特に込み入った帳票の場合、できるだけ余白を少なくして文字サイズなどは小さく
せず、見易い帳票にしたいものです。
余白の設定はレポートのデザインウィンドウでメニューの[ファイル]-[ページ設定]
を選択すると、設定できます。
考え方としては、A4用紙の場合、横21cm、縦29.7cmなので、そこから余白を引いた
部分が印刷可能領域となります。
例えば、左余白2cm、右余白1cmとすると横幅は18cmまで使用する事ができます。
レポートのデザインウィンドウでレポート全体を選び、[幅]プロパティを18cmと
しておきます。
もし、18cmを越えた場合、次ページに出力されてしまうので、必ずこの18cmの中に
収まるようにレイアウトを考えます。
また、余白で注意が必要なのは、プリンタの機種により指定できる余白の最小値が
異なる点です。
指定した余白の値が、そのプリンタの範囲外の場合、やはりページを、はみ出して
しまいます。
従って余白の値を決める際は、使用する可能性があるプリンタの中で、指定できる
余白の最小値が一番大きいプリンタを基準に決定する事が望ましいでしょう。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
◆◇ 訂正とお詫び ◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
Vol.21の２．のサブルーチンでWhile文の中に間違いがありましたので
訂正いたします。
正しくは以下のようになります。
While Siwake_T.EOF = False
Motocyo_T.AddNew
※M("MotocyoID").Value = MotocyoNo
※M("DenpyoNo").Value = ※S("DenpyoNo").Value
※M("DenpyoDate").Value = ※S("DenpyoDate").Value
If ※S("KariKamoID").Value = CInt(Me![KamokuCombo]) Then
※M("KamokuID").Value = ※S("KariKamoID").Value
※M("AiteKamokuID").Value = ※S("KasiKamoID").Value
※M("SubKamokuID").Value = ※S("KariSubKamoID").Value
※M("AiteSubKamokuID").Value = ※S("KasiSubKamoID").Value
※M("KariAmount").Value = ※S("KariAmount").Value
※M("KariTax").Value = ※S("KariTax").Value
※M("KasiAmount").Value = Null
※M("KasiTax").Value = Null
Else
※M("KamokuID").Value = ※S("KasiKamoID").Value
※M("AiteKamokuID").Value = ※S("KariKamoID").Value
※M("SubKamokuID").Value = ※S("KasiSubKamoID").Value
※M("AiteSubKamokuID").Value = ※S("KariSubKamoID").Value
※M("KariAmount").Value = Null
※M("KariTax").Value = Null
※M("KasiAmount").Value = ※S("KasiAmount").Value
※M("KasiTax").Value = ※S("KasiTax").Value
End If
※M("TekiyoUp").Value = ※S("TekiyoUp").Value
※M("TekiyoDown").Value = ※S("TekiyoDown").Value
Motocyo_T.Update
Siwake_T.MoveNext
MotocyoNo = MotocyoNo + 1
Wend
ここに訂正し、お詫び申し上げます。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
◇ 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 Yoshihisa Fukuda All rights reserved.
◇転載について
このメールマガジンの無断転載などは、一切禁止です。
転載をご希望の方は、事前にメールで連絡をください。
◇免責
このメールマガジン及びホームページの内容による、いかなる損害、障害などに
関して発行者は一切の責任を負いません。
掲載広告についても同様です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
ＡＣＣＥＳＳで作るシリーズ 【会計ソフト編】
発 行 ： Yoshihisa Fukuda 2000.09.16 Vol.24
（訂正版）
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
先程、手違いで間違った原稿を発行してしまいました。
最初の方は破棄して、この訂正版と差し替えて下さい。
今回は、総勘定元帳のレポート作成の続きです。
＝＝ ◇ 第３章 帳票 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
３－１ 総勘定元帳
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
３－１－４ レポート作成（続き）
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
１．残高の計算に必要な科目種別のフィールドを追加します。
（１）ツールバーのテキストボックスを選択し、ページヘッダーの右上辺りを
クリックしてテキストボックスを追加します。（このフィールドは見えなく
するので位置は適当で構いません）
（２）作成したテキストボックスを選択し、以下のプロパティを設定しましょう。
名前 ・・・ KamokuKind
コントロールソース ・・・ =DLookUp("KamokuKind","KamokuTable",
"KamokuID = " & [Forms]![MotoCyoRepForm]![KamokuCombo])
可視 ・・・ いいえ
※ コントロールソースは１行にして入力します。
余計なラベルは削除しましょう。
２．残高フィールドを作成しましょう。
（１）ツールバーのテキストボックスを選択し、貸方金額[KasiAmount]の右側で
クリックしてテキストボックスを追加します。
（２）同じ要領で貸方消費税[KasiTax]の右側にもテキストボックスを追加します。
（３）貸方金額の右側に作成した金額残高テキストボックスを選択し、以下の
プロパティを設定しましょう。
名前 ・・・ ZanAmount
コントロールソース ・・・ =IIf([KamokuKind]=1 Or [KamokuKind]=5,
nz([KariAmount],0)-nz([KasiAmount],0),nz([KasiAmount],0)-nz([KariAmount],0))
書式 ・・・ 通貨
集計実行 ・・・ 全体
（４）貸方消費税の右側に作成した消費税残高テキストボックスを選択し、以下の
プロパティを設定しましょう。
名前 ・・・ ZanTax
コントロールソース ・・・ =IIf([KamokuKind]=1 Or [KamokuKind]=5,
nz([KariTax],0)-nz([KasiTax],0),nz([KasiTax],0)-nz([KariTax],0))
書式 ・・・ 通貨
集計実行 ・・・ 全体
※ コントロールソースは１行にして入力します。
余計なラベルは削除しましょう。
３．DenpyoDateフッターのレイアウトを整えましょう。
（１）[合計]というラベルを削除しましょう。
（２）ウィザードで作成されたDenpyoDateフッターの１行目には、伝票日付と
レコード数が表示されるテキストボックス（[テキスト2]）があります。
この[コントロールソース]プロパティを以下のように修正します。
=Format$([DenpyoDate],"m月"" 計""")
サイズも全角文字で５文字くらいにしましょう。
（３）４つの合計のコントロール（[KariAmountの合計][KasiAmountの合計]
[KariTaxの合計][KasiTaxの合計]）のレイアウトを整えます。
DenpyoDateフッターのレイアウト
-----------------------------------------------------------------------
[F1 ][F2 ][F4 ]
[F3 ][F5 ]
-----------------------------------------------------------------------
F1:（２）の[テキスト2]
F2:[KariAmountの合計] F3:[KariTaxの合計]
F4:[KasiAmountの合計] F5:[KasiTaxの合計]
４．レポートフッターのレイアウトを整えましょう。
（１）[総計]というラベルを[累計]としましょう。
（２）４つの合計のコントロール（[KariAmount総合計][KasiAmount総合計]
[KariTax総合計][KasiTax総合計]）のレイアウトを整えます。
（３）残高の累計のフィールドを追加します。
[KasiAmount総合計]の右側に、テキストボックスを追加し以下の
プロパティを設定しましょう。
名前 ・・・ ZanAmount総合計
コントロールソース ・・・ =IIf([KamokuKind]=1 Or [KamokuKind]=5,
Sum(nz([KariAmount],0)-nz([KasiAmount],0)),Sum(nz([KasiAmount],0)
-nz([KariAmount],0)))
書式 ・・・ 通貨
[KasiTax総合計]の右側にも、テキストボックスを追加し以下のプロパティ
を設定しましょう。
名前 ・・・ ZanTax総合計
コントロールソース ・・・ =IIf([KamokuKind]=1 Or [KamokuKind]=5,
Sum(nz([KariTax],0)-nz([KasiTax],0)),Sum(nz([KasiTax],0)
-nz([KariTax],0)))
書式 ・・・ 通貨
※ コントロールソースは１行にして入力します。
余計なラベルは削除しましょう。
レポートフッターのレイアウト
-----------------------------------------------------------------------
累計 [F1 ][F3 ][F5 ]
[F2 ][F4 ][F6 ]
-----------------------------------------------------------------------
F1:[KariAmount総合計] F2:[KariTax総合計]
F3:[KasiAmount総合計] F4:[KasiTax総合計]
F5:[ZanAmount総合計] F6:[ZanTax総合計]
５．このままでも、一応総勘定元帳として出力可能ですが、少し体裁を整えましょう。
まず、総勘定元帳のタイトルですが、今はレポートヘッダーにあるため、最初の
１ページ目にしか出力されません。
各ページにタイトルが出力される様に、タイトルをページヘッダーに移動しま
しょう。
また、罫線を入れると見易くなります。
市販の会計ソフトやサンプルを参考にして下さい。
※ 市販の会計ソフトは購入しなくても、カタログとかで帳票のレイアウトを見る
事が出来ます。
６．月が変わる時に改ページしたい場合。
総勘定元帳を月毎に改ページさせたい場合、DenpyoDateヘッダーを選択し、
[改ページ]プロパティを[カレント セクションの前]にすると月毎に改ページ
されます。
※ サンプルは改ページしない様になっています。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
以上で、総勘定元帳のレポートが完成です。
次回は総勘定元帳の印刷指示フォームからのレポートを呼び出しの作成です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
◆◇ ワンポイントコーナー ◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
【ページ設定】
レポートを作成する時、一番気にする点は、レイアウトでしょう。
用紙サイズや縦置きか横置きかを考えて設計する訳ですが、込み入った帳票など
では、出来るだけ用紙を有効に使いたくものです。
レポートのレイアウトを考える時、まず最初にやることは余白のサイズを決めて
実際に印刷できる範囲を決定します。
特に込み入った帳票の場合、できるだけ余白を少なくして文字サイズなどは小さく
せず、見易い帳票にしたいものです。
余白の設定はレポートのデザインウィンドウでメニューの[ファイル]-[ページ設定]
を選択すると、設定できます。
考え方としては、A4用紙の場合、横21cm、縦29.7cmなので、そこから余白を引いた
部分が印刷可能領域となります。
例えば、左余白2cm、右余白1cmとすると横幅は18cmまで使用する事ができます。
レポートのデザインウィンドウでレポート全体を選び、[幅]プロパティを18cmと
しておきます。
もし、18cmを越えた場合、次ページに出力されてしまうので、必ずこの18cmの中に
収まるようにレイアウトを考えます。
また、余白で注意が必要なのは、プリンタの機種により指定できる余白の最小値が
異なる点です。
指定した余白の値が、そのプリンタの範囲外の場合、やはりページを、はみ出して
しまいます。
従って余白の値を決める際は、使用する可能性があるプリンタの中で、指定できる
余白の最小値が一番大きいプリンタを基準に決定する事が望ましいでしょう。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
◆◇ 訂正とお詫び ◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
Vol.21の２．のサブルーチンでWhile文の中に間違いがありましたので
訂正いたします。
正しくは以下のようになります。
While Siwake_T.EOF = False
Motocyo_T.AddNew
※M("MotocyoID").Value = MotocyoNo
※M("DenpyoNo").Value = ※S("DenpyoNo").Value
※M("DenpyoDate").Value = ※S("DenpyoDate").Value
If ※S("KariKamoID").Value = CInt(Me![KamokuCombo]) Then
※M("KamokuID").Value = ※S("KariKamoID").Value
※M("AiteKamokuID").Value = ※S("KasiKamoID").Value
※M("SubKamokuID").Value = ※S("KariSubKamoID").Value
※M("AiteSubKamokuID").Value = ※S("KasiSubKamoID").Value
※M("KariAmount").Value = ※S("KariAmount").Value
※M("KariTax").Value = ※S("KariTax").Value
※M("KasiAmount").Value = Null
※M("KasiTax").Value = Null
Else
※M("KamokuID").Value = ※S("KasiKamoID").Value
※M("AiteKamokuID").Value = ※S("KariKamoID").Value
※M("SubKamokuID").Value = ※S("KasiSubKamoID").Value
※M("AiteSubKamokuID").Value = ※S("KariSubKamoID").Value
※M("KariAmount").Value = Null
※M("KariTax").Value = Null
※M("KasiAmount").Value = ※S("KasiAmount").Value
※M("KasiTax").Value = ※S("KasiTax").Value
End If
※M("TekiyoUp").Value = ※S("TekiyoUp").Value
※M("TekiyoDown").Value = ※S("TekiyoDown").Value
Motocyo_T.Update
Siwake_T.MoveNext
MotocyoNo = MotocyoNo + 1
Wend
ここに訂正し、お詫び申し上げます。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
◇ 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 Yoshihisa Fukuda All rights reserved.
◇転載について
このメールマガジンの無断転載などは、一切禁止です。
転載をご希望の方は、事前にメールで連絡をください。
◇免責
このメールマガジン及びホームページの内容による、いかなる損害、障害などに
関して発行者は一切の責任を負いません。
掲載広告についても同様です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□