액세스 할 때 배경색을 변경할 수 없음

여러 번 변경하려고 시도했지만 액세스 보고서의 빈 상자에 배경을 채우려하지만이 작업을 수행 할 수 없습니다. 내 눈이 지쳐서 내가 잘못 본 곳을 보지 마라.액세스 할 때 배경색을 변경할 수 없음

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

출처

2016-08-17 kevin t

이번 기회에 넌 아주 가까웠다.

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

출처

2016-08-17 17:49:35

액세스 할 때 배경색을 변경할 수 없음

답변

관련 문제