1
これを複数回変更しようとしましたが、アクセスレポートの空のボックスに背景を塗りつぶしていますが、これを行うことはできません。私の目は疲れていて、どこが間違っているのか分かりません。アクセス時に背景色を変更できません
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
On Len(Trim(Me![Text61])) = vbNullString GoTo color_box
Const WHITE = 16777215
Const GRAY = 14540253
If (Me![LineNum] Mod 2) = 0 Then
Me![Text60].BackColor = GRAY
Me![bmnh].BackColor = GRAY
Me![c_val].BackColor = GRAY
Me![Text61].BackColor = GRAY
Else
Me![Text60].BackColor = WHITE
Me![c_val].BackColor = WHITE
Me![Text61].BackColor = WHITE
Me![bmnh].BackColor = WHITE
End If
exit_here:
Exit Sub
color_box:
Me![Text61].BackColor = GRAY
Resume exit_here
End Sub