Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7140 / 9994

←次へ　｜　前へ→


	【6051】帳票フォームで縦計、横計を出す

小僧 - 05/8/26(金) 13:17 -


	引用なし

	パスワード

▼サチチさん：
こんにちは。

ツリーが見難くなるので、こちらにレスを付けていきます。

さて、最低限の所が整ったところで、

>フォームでは、1年目・2年目・3年目の縦計と横計も出したいなーなんて・・・。

これを片付けていきましょう。

クエリでも縦計、横計を計算できるのですが、
結構複雑になる(クロス集計クエリだと特に)ので、
フォームの機能を使って計算させましょう。

【詳細】の3年目のテキストボックスの右に
テキストボックス
　名前：txt横計
　コントロールソース：=Nz([1年目],0)+Nz([2年目],0)+Nz([3年目],0)

【フォームフッター】の1年目の下あたりに
テキストボックス
　名前：txt1年目縦計
　コントロールソース：=Sum([1年目])

を配置して下さい。2年目、3年目も同様に…。

※横計は Null値が含まれると足し算ができなるなるため、
　Nullだったら0にするという処理が必要になっています。

>1年目・2年目の表示は、その年の表示は出来ないのですよね?

ついでにこいつも…。

オートフォームで作ったのであれば、
「1年目」のラベル名が「1年目_ラベル」になっていると思います。
この「Caption」(表題)を変えてあげましょう。

txt年の「更新後処理」に追加して下さい。

Private Sub txt年_AfterUpdate()
　　Me.[1年目_ラベル].Caption = Me.txt年 & "年"
　　Me.[2年目_ラベル].Caption = Me.txt年 + 1 & "年"
　　Me.[3年目_ラベル].Caption = Me.txt年 + 2 & "年"
　　Me.Requery
End Sub

875 hits

▼

【6009】毎年の集計について サチチ 05/8/25(木) 12:00