Use value of strField to populate the title textbox on a Report?

[jparker1954]

OK, I got the code below to filter my report perfectly, thanks to help from some of you. Here's the problem. It filters the report fine, but there's nothing ON the report to say it's from Central Florida, New Jersey, or Outer Space for that matter. Is there any way to code the report so that a Text Box in the report will say Central Florida, New Jersey, etc. as applicable for the Report Title? Or am I asking too much?

Sub PrintReports(PrintMode As Integer)
On Error GoTo Err_Preview_Click
' This procedure used in Preview_Click and Print_Click Sub procedures.


' Preview or print report selected in the ReportToPrint option group.
' Then close the Print Sales Reports Dialog form.

Dim strField As String

Select Case Me.OptLoc
Case 1
strField = "Central Florida"
Case 2
strField = "New Jersey"
Case 3
strField = "North Carolina"
Case 4
strField = "North Florida"
Case 5
strField = "South Florida"
End Select
DoCmd.OpenReport "All-ChemInfo-Tomatoes", PrintMode, , "[" & strField & "]=True"
DoCmd.Close acForm, "OpenReport"

[rpeare]

I'd have a zone table that listed all of these zones (the numeric value) and what they stood for (the text description) then link that to your table that stores the zone (number) value

[jparker1954]

I already have a table that shows the the Locations listed, but I don't know how to link it to select the right location on the report based on the strField that was used to filter the report. Ask me question about the Migrant Worker Protection Standard and I'm pretty good, but when it comes to code, I need visual help.

[rpeare]

the query driving your report, add the location table to that query, link it from your 'main' table to the locations table through the unique identifier and add the location descriptor field (south florida, north florida, etc) once it's added to that query you should be able to see it as an available field in your field list for the report then put it anywhere you want. (page header, report header, each row, etc)