アクセス レポート バックカラーの変更方法

質問

現在レポートで１行ごとにバックカラーを変えて印刷しておりますが、それをチェックボックスにチェックがはいった行だけをカラーにするよう変更したいと考えておりますが、よくわかりません。現在のコードをコピーしました。お手数ですがご指導願います。

Option Compare Database
Dim bline As Integer

Private Sub Report_Open(Cancel As Integer)

End Sub

Private Sub ページヘッダー_Format(Cancel As Integer, FormatCount As Integer)
bline = 0
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
bline = bline + 1
If bline Mod 2 Then
Me.Section(0).BackColor = 16777215
Else
Me.Section(0).BackColor = 12663225
End If
End Sub

回答No.1

bonaron · ベストアンサー

こんなもんでいかがでしょうか？

Option Compare Database

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If Me.チェック.Value = False Then
Me.Section(0).BackColor = 16777215
Else
Me.Section(0).BackColor = 12663225
End If
End Sub

お礼

完璧です。ありがとうございました。