I have a Audio Book data base the (10,000 records). I use a form dedicated to selecting records. The VBA code goes through the 12 combo boxes and builds the selection criteria. At the end of the code is produces a report with:

Details

If Me![grpPrint] = 1 Then
    If Me![grpReportType] = 1 Then

            DoCmd.OpenReport stDocName1, acPreview, , SelCrit
    End If
    If Me![grpReportType] = 2 Then
            DoCmd.OpenReport stDocName2, acPreview, , SelCrit
    End If
    If Me![grpReportType] = 3 Then
            DoCmd.OpenReport stDocName3, acPreview, , SelCrit
    End If
Else
    If Me![grpReportType] = 1 Then
            DoCmd.OpenReport stDocName1, acNormal, , SelCrit
    End If
    If Me![grpReportType] = 2 Then
                DoCmd.OpenReport stDocName2, acNormal, , SelCrit
    End If
    If Me![grpReportType] = 3 Then
            DoCmd.OpenReport stDocName3, acNormal, , SelCrit
    End If
End If

I would like to call a global module before each Do.Cmd that would give each report a specific title. I am thinking the code in the module would look something like this:

Global Module

Details

Sub GetReportTitle ()

If CboBox.ClassID= "55" then
Me.lblTitle.caption = "Fiction Detail"

ElseIf cboTitleID = "56"  then
Me.lblTitle.caption = "History Detail"

ElseIF CboBox.ClassID= "57" then
Me.lblTitle.caption = "Science Detail"

ElseIfCboBox.ClassID= "1" then
Me.lblTitle.caption = "Biographical Detail"

ElseIfCboBox.ClassID= "22" then
Me.lblTitle.caption = "Philosophy/Religion Detail"

ElseIfCboBox.ClassID= "30" then
Me.lblTitle.caption = "Language/Writing/Journalism Detail"

ElseIf cboTitleID = "35"  then
Me.lblTitel.caption = "Knowledge Base"

ElseMe.lblTitle.caption = "Detail Report"
End If

End Sub

I have little experience using Global or Private Module. I am looking for direction on this issue. I really don't want a separate report for each ClassID. Any help would be appreciated.