How to Use a Global Variable in a Report's Format Header Event

[bullfrog83]

I have a form that contains parameters for a report. After the user clicks Preview I have code that set's the Where clause for the report's record source. Once the report opens I close the parameter form. However, the user enters values on the parameter form that I want to display on the report (StartDate and EndDate, specifically). But because I close the parameter form (otherwise it'd be in the way of the report) I lose those values and they don't render on the report. So I thought I could store them in a global variable that I can then call in the report's header format event. This is what I have:

Parameter Form:

Option Compare Database
Public gstrStartDate As String
Public gstrEndDate As String
Option Explicit
 
Private Sub cmdPreviewReport_Click()
 
        gstrStartDate = Me.txtStartDate
        gstrEndDate = Me.txtEndDate
 
...more code...
 
DoCmd.OpenReport "r_FamStmt", acViewPreview, WhereCondition:=strWhere
DoCmd.Close acForm, "f_ParamFamStmt"
 
End Sub
 

My report's format header event:

Private Sub FamilyIdGroupHeader_Format(Cancel As Integer, FormatCount As Integer)
 
Me.txtReportingPeriod = "Reporting Period: " & gstrStartDate & " to " & gstrEndDate
 
End Sub
 

The issue is that when I debug my code, it doesn't recognize the global variables gstrStartDate and gstrEndDate in my report's header format code above. Error is "Variable not defined". What I don't understand is that I did define it as global variable in my cmdPreviewReport sub at the top so why isn't it recognizing it?

[dsatino]

Yes, but you defined it within the forms module. Put the global variable declartion in your own module and you should be fine.