アクセスレポート イベントプロージャーにより ラベル条件表示

Question

前提・実現したいこと

アクセス　レポート　にて
イベントプロージャーで
支社売上高合計　＞１００００の時
目標達成ラベルを表示させる

■■な機能を実装中に以下のエラーメッセージが発生しました。

該当のソースコード

Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
' 支社の売上高が目標額を超えた場合は、
' [目標達成] ラベルと [目標達成線] を表示します。

If Me!支社売上高合計 > 1000000 Then
    Me!目標達成ラベル.Visible = True
    Me!目標達成線.Visible = True
Else
    Me!目標達成ラベル.Visible = False
    Me!目標達成線.Visible = False
End If

End Sub

Answer 1

画像を見る限りでは、そのエラーの原因はグループヘッダー0_Formatプロシージャのコードではないと思います。もし、コードにエラーがあるならその部分が反転表示されるはずですので。

試しにそのコードを削除してプレビューしてみてエラーが出るか確認してみてください。

---

あと蛇足ですが、
「目標達成」「目標達成ライン」の表示ですが、VBAを使わずに下記の方法でも可能です。

テキストボックスをグループヘッダーに配置する。
コントロールソースに下記の式を設定する。

=IIf(Sum([売上高])>1000000,"目標達成","")

「目標達成ライン」もテキストボックスを配置して下記のように設定します。

コントロールソース　=IIf(Sum([売上高])>1000000,"■","")
高さ　0.1cm
背景色　#FF0000
前景色　#FF0000
印刷時縮小　はい

Comments

[fiji39]

ありがとうございます。

削除では同じエラーが出てしまうのですが
コントロールソース使用の方では成功いたしました。

vba の方に　以下も追加したいのですが

どちらとも同じ様な　エラーメッセージが出て
保存もレポートビューも表示できません。

コード１

Private Sub Report_NoData(Cancel As Integer)
' ユーザーが指定した範囲に該当するレコードがない場合、
' メッセージを表示し、レポートの印刷およびプレビューを行いません。

Dim strMsg As String, strTitle As String
Dim intStyle As Integer

strMsg = "96/1/1 ～ 98/9/30 の日付を入力してください。"
intStyle = vbOKOnly
strTitle = "データがありません"

MsgBox strMsg, intStyle, strTitle
Cancel = True

End Sub

コード２

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
' ページ数に 1 を設定します。

Page = 1

End Sub

[hatena19]

レポートにどのようなコードでも追加するとエラーになるという状況ですね。
どこかが破損している可能性がありますので、下記の手順を試してみてください。

「最適化と修復」を実行する。
それでだめなら、
同じテーブル/クエリをレコードソースとするレポートを新規作成して、もとのレポートからコントロール等をすべてコピーして貼り付ける、コードもコピーして貼り付ける。

[fiji39]

hatena19さん
初めての投稿に丁寧な回答ありがとうございましたm(__)m
助かりました。
メール添付送信で破損している感じがあります。