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

Question

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

这用于输入值，有效：

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

我将此代码添加到报告中，关于当前，加载事件并且都没有工作。也许代码需要去另一个事件？

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

Answer 1

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

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