2016-08-17 33 views
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 

答えて

0

このショットをあげるとかなり近かったです。

Const WHITE = 16777215 
Const GRAY = 14540253 
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
    If Len(Trim(Me![Text61])) = 0 Then GoTo color_box 

    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 
End Sub 
関連する問題