MS 访问动态更改报告上的标签

Question

我正在使用以下代码将生产票打印为报告：

Dim strCriteria As String
 strCriteria = "SELECT [PkgSize] & chr$(32) & [PkgUnit] AS Pkg, tblProducts.ProductID, tblProducts.ProductPrintName, tblProducts.Grade, " _
            & " tblCustomers.CompanyName, tblOrderDetails.ODEPriority, chr$(33) & chr$(70) & [tblProducts].[ProductID] & [tblCustomers].[ID] & chr$(33)as Expr1" _
            & " FROM tblCustomers INNER JOIN (tblOrders INNER JOIN (tblProducts INNER JOIN tblOrderDetails ON " _
            & " tblProducts.ProductID = tblOrderDetails.ODEProductFK) ON tblOrders.ORDOrderID = tblOrderDetails.ODEOrderID) ON " _
            & " tblCustomers.ID = tblOrders.ORDCustomerID " _
            & " WHERE (((tblProducts.ProductID)=[Forms]![frmInventoryTransfersManual]![cboTransferProductID]) " _
            & " AND ((tblOrderDetails.ODEPriority)= " & varPriority & ") AND (([tblOrderDetails]![ODEQtyOrdered]-[tblOrderDetails]![ODEQtyProduced])>0))"

 DoCmd.OpenReport "rptProductPaperLabelTCTRlogo", acViewPreview, , , , strCriteria

在我的报告中：

Private Sub Report_Open(Cancel As Integer)
    Me.RecordSource = Me.OpenArgs
End Sub

报告中的各种文本框使用以下内容作为它们的控制源：Grade、Expr1、ProductPrintName、Pkg 和 CompanyName。（Expr1 生成用于扫描机票的条形码。）

效果很好。但是，我还需要打印一个标签，或者可能是一个文本框，以在报告上形成边框。此 label/textbox 将是分配给 CompanyName 的颜色。因此，只要知道这个label/textbox的颜色，就可以快速看到票，知道客户是谁。

谁能帮我根据公司名称更改报告中 label/text 框的颜色。我们有大约 20 个不同的客户。

Answer 1

将颜色属性添加到客户 table 的 table 定义中。将该颜色属性添加到表单的记录源。使用该颜色在表单的适当事件处理程序（可能是 onChange）中设置报表控件的背景色属性？

MS 访问动态更改报告上的标签

ms access dynamically change label on report

ms-access

report