显示每条记录颜色值的访问报告

Access Report Showing Each Records Color Value

我问过类似的问题 ,但现在我想创建一个报告,显示为每条记录输入的颜色值。我已经能够使用部分用于输入值的代码,但是当加载报告时,报告中的所有矩形都显示记录 1 中的颜色值,而不是每个矩形。

这用于输入值,有效:

Dim A As Variant
A = Split(Textbox1.text,",")
Box1.BackColor = RGB(Int(A(0)),Int(A(1)), Int(A(2)))

我将这段代码添加到报告中,关于当前的加载事件,但都没有用。也许代码需要转到另一个事件?

如何让报告显示每条记录的颜色?

您的代码必须进入 Details 部分的 On Format 事件。

请注意,仅当您在“打印”或“打印预览”视图中而不是在“报表视图”中打开报表时才会触发此事件。