MS Access динамически изменять метку в отчете

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 

Различные текстовые поля на в качестве источников управления следует использовать следующие данные: класс, выражение1, имя_продукта, Pkg и имя_компании. (Expr1 создает штрих-код для сканирования билета.)

Он отлично работает. Однако мне также нужно напечатать ярлык или, может быть, текстовое поле, чтобы сформировать границу отчета. Этот ярлык/текстовое поле будет цветом, присвоенным CompanyName. Таким образом, билет можно увидеть быстро и узнать, кто клиент, просто зная цвет этого ярлыка/текстового поля.

Может ли кто-нибудь помочь мне изменить цвет ярлыка/текстового поля в отчете в зависимости от названия компании. У нас около 20 разных клиентов.

Answer 1

Добавить атрибут цвета в определение таблицы для таблицы клиентов. Добавьте этот атрибут цвета в источник записей формы. Использовать этот цвет, чтобы установить свойство backcolor элемента управления в отчете в соответствующем обработчике события формы, возможно, на Change?