无法在访问中更改背景颜色

Question

我已尝试对此进行多项更改，我正在尝试在访问报告中的空白框中填充背景，但无法做到这一点。我的眼睛疲惫不堪，只是看不出我出错的地方

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

Answer 1

给这一点，你非常接近。

var parts = test.split(' ');
var keyIndex = parts.indexOf('address:');
var address = parts[keyIndex + 1];