Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 642
  • Last Modified:

Access VBA - Matching Labels between reports

Hi,
I am trying to match the labels in two reports that I have. I have a report that opens, once this is open a piece of code in that report is run. This will look at another report that is already open, compare the captions of the two reports labels, and if they match set the two backcolors to match. However, this does not seem to be working. I get no errors, but it is not working? My code I have tried to use is attached.

Thanks
For Each ctl In Me.Controls
        If ctl.ControlType = acLabel Then
            For i = 11 To 20
                If ctl.Caption = Reports!rpt_ViewResults!("Label" & i).Caption Then
                   ctl.BackColor = Reports!rpt_ViewResults!("Label" & i).BackColor
                End If
            Next
        End If
    Next ctl

Open in new window

0
andyb7901
Asked:
andyb7901
  • 2
  • 2
1 Solution
 
peter57rCommented:
Do you have any basis for believing this to be possible?
I have never wanted to do anything like this so I'm not 100% sure that it is not possible, but my instinct is that once a report has been rendered it is done with and you can't then affect its appearance.
0
 
pmctrekCommented:
This is possible but it needs to be in the detail_format() event and be warned.. this takes a lot of time to process as the event is called for every line in the report.  If the labels you need to colour are in the page header and not the details, then its not too bad as you need to put the code into the pagePageHeaderSection_Format() event instead of the detail_format and this is only called once per page.  One of my reports colours any batch that has a value greater than 5000 the code is below.

The code also adds a line number to the report.
Option Compare Database
Dim intRecordCount As Integer
 
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    txtReportLine.Caption = intRecordCount + 1
    intRecordCount = intRecordCount + 1
    If BatchValue > 5000 Then
        RevBatch.BackColor = vbRed
    Else
        RevBatch.BackColor = vbWhite
    End If
End Sub
 
 
Private Sub Report_Open(Cancel As Integer)
 intRecordCount = 0
End Sub

Open in new window

0
 
pmctrekCommented:
Also.. check that the backeffect is not set to transparrent.. it needs to set to Normal otherwise the code could be working fine but you cant see it if the background is transparrent.. this caught me once or twice!

Paul
0
 
peter57rCommented:
Ah - misread the Q.
I thought you were trying to change the background in the other report.  Sorry.
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now