Access VBA質問箱 IV

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

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


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

679 / 9994

←次へ　｜　前へ→


	【12625】Re:サブレポートのVBA

ルクセンブルグ - 14/10/24(金) 7:58 -


	引用なし

	パスワード

返信ありがとうございます。

私のレポートは
レポートヘッダー　　　　　　　　　　　　　　　　　可視：はい
TextBox[SUM([ﾌｨｰﾙﾄﾞ])] TextBox[非連結]:名前(Tbox)
グループヘッダー　　　　　　　　　　　　　　　　　可視：いいえ
詳細　　　　　　　　　　　　　　　　　　　　　　　可視：いいえ
[フィールド] [フィールド2]
グループフッター　　　　　　　　　　　　　　　　　可視：はい
TextBox[SUM([ﾌｨｰﾙﾄﾞ])]:名前(ﾌｨｰﾙﾄﾞの合計) TextBox[SUM([ﾌｨｰﾙﾄﾞ2])]:名前(ﾌｨｰﾙﾄﾞの合計2)
レポートフッター　　　　　　　　　　　　　　　　　可視：いいえ

という構成になっています。
このレポートにVBAは

Private Sub レポートフッターセクション
　If ﾌｨｰﾙﾄﾞの合計 <> 0 And ﾌｨｰﾙﾄﾞ2の合計 <> 0 Then
　　 Me.Tbox = Round((Me.ﾌｨｰﾙﾄﾞの合計 / Me.ﾌｨｰﾙﾄﾞ2の合計) * 100, 4)
　Else
　　 Me.Tbox = "0.00"
　End If
End Sub

というコードなのですが､ブレークポイントで一つずつ
確認しながらコードを実行したところTboxには代入されていました。

おかしなところがあればご指摘願います。
よろしくお願いします。

1,919 hits

▼

【12620】サブレポートのVBA ルクセンブルグ 14/10/10(金) 10:27