访问 2016 备用行颜色答案

【问题标题】：Access 2016 Alternate Row Color访问 2016 备用行颜色
【发布时间】：2021-02-03 00:10:56
【问题描述】：

我正在尝试在使用分组的报表上更改我的行颜色。问题是当从一组移动到下一组时，颜色总是以白色开始。这可能会导致尴尬的白色行块没有替代颜色行。

如果我的分组为 1,1,1,2,3,3,4，我的行颜色将变为白色，颜色，白色，白色，白色，颜色，白色，这在视觉上非常不吸引人。

我曾尝试在On Format 事件期间使用 VBA。但是，我尝试过的代码具有相同的结果。

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

Dim Color   As Boolean

    If Color Then
        Me.Section(0).AlternateBackColor = vbWhite
    Else
        Me.Section(0).AlternateBackColor = RGB(197, 217, 242)
    End If
    
    Color = Not (Color)

    
End Sub

什么是忽略/绕过组以保持交替颜色一致的方法？

【问题讨论】：

标签： vba ms-access formatting

【解决方案1】：

也许你可以传递给下一个组，无论该组的行数是偶数还是奇数。比如：

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

    Static OddEven As Boolean

    If OddEven Then
        Me.Section(0).AlternateBackColor = vbWhite
        Me.Section(0).BackColor = RGB(197, 217, 242)
    Else
        Me.Section(0).BackColor = vbWhite
        Me.Section(0).AlternateBackColor = RGB(197, 217, 242)
    End If
    
    ' Get RowCount somehow.
    OddEven = RowCount Mod 2
    
End Sub

【讨论】：

对最后一位进行记录计数有用吗？或者我可以在组标题中使用一个简单的函数（设置为不可见），它可以计算行数并给我那个数字？
不知何故，是的。或字段值为 1 的报告中的运行总和。