Pass value to label in report header

[annie52]

Why can't I pass a value to a label on a report? I put lblAction in the report header but it's not showing up as expected.

Dim stDocName As String, stSelectTech As String

stDocName = "rptFollowup"
stSelectTech = "Tech='" & Forms![frmTechnician]![cboTechnician] & "'"
DoCmd.Close acForm, "frmTechnician", acSaveNo
If stSelectTech = "Tech='All Technicians'" Then
DoCmd.OpenReport stDocName, acViewPreview
Reports![rptFollowup]![lblAction].Caption = "All Technicians"
Else
DoCmd.OpenReport stDocName, acPreview, , stSelectTech
Reports![rptFollowup]![lblAction].Caption = stSelectTech
End If

 

[Remou]

After the report is in preview is too late, you can use the Open event of the form to change the label, or you can hide the form and refer directly to it on the report.

http://lessthandot.com

 

[dhookom]

A really simple method is to use a text box on the report that references the Filter property of the report:
[tt][blue]
Control Source: =IIf([FilterOn]=True And Len([Filter])>0,[Filter],"No Filter")
[/blue][/tt]

Duane
Hook'D on Access
MS Access MVP

 

[annie52]

Thanks, Remou. That makes perfect sense. Here's what I ended up with in the report's OnOpen event:

stSelectTech = Forms![frmTechnician]![cboTechnician]
lblActionTech.Caption = "Action Items For " & stSelectTech