Problem referring to SubReports

[PhilOfWalton]

I am using the following code to get the TAG information from forms, subforms, reports & subreports.

Function LoadFormOrReportLabels(FormOrReport As Integer, MainFormOrReportName As String, SubFormOrReportName As String)
'Debug.Print LoadFormOrReportLabels(1, 1, "FrmMsgBox", "FrmMsgBox")
 
    Dim TypeOfObject As Object
 
    On Error GoTo LoadFormOrReportLabels_Err
 
    If FormOrReport = 1 Then                                ' Forms
        If MainFormOrReportName = SubFormOrReportName Then
            Set TypeOfObject = Forms(MainFormOrReportName)
        Else
            Set TypeOfObject = Forms(MainFormOrReportName)
            Set TypeOfObject = TypeOfObject.Controls(SubFormOrReportName).Form
            If IsNull(TypeOfObject.Tag) Then
                TypeOfObject.Tag = TypeOfObject.Parent.Tag
            End If
        End If
    ElseIf FormOrReport = 2 Then                            ' Reports
        If MainFormOrReportName = SubFormOrReportName Then
            Set TypeOfObject = Reports(MainFormOrReportName)
        Else
            Set TypeOfObject = Reports(MainFormOrReportName)
            Set TypeOfObject = TypeOfObject.Controls(SubFormOrReportName).Report
            If IsNull(TypeOfObject.Tag) Then
                TypeOfObject.Tag = TypeOfObject.Parent.Tag
            End If
        End If
    End If
 

FormOrReport = 1 for Forms & 2 for Reports and I pass the names of the main form or Report & the Subform or Report.

Surprisingly the line
Set TypeOfObject = TypeOfObject.Controls(SubFormOrReportName).Form
works perfectly for forms, but
Set TypeOfObject = TypeOfObject.Controls(SubFormOrReportName).Report
fails for subreports giving error 2455 You entered an expression that has an invalid reference to the property Form/Report.

Apart from the TAG property, I later need to refer to all the controls on the subreport, but my guess is that if I can get to the Tag, I can get to the controls.

Appreciate any advice

Phil

[NeoPa]

Here's some advice Phil - Name your objects carefully. TypeOfObject doesn't imply it's an object. It actually implies it isn't. Not helpful when working on code.

As for the Subform/Subreport object - Check whether it's using the Form property instead of the Report. Both exist so it would surprise me, but if I read your code correctly (in spite of the strange naming) then what you're doing should be fine.

That said, have you traced what's happening when the code runs?

Where is the function called from? At what stage in the process? It could be that it's running before the Subform/Subreport's Report object has been properly set.

[PhilOfWalton]

Thanks for reply. Your point about TypeOfObject is spot on and now changed to Obj.

Basically I call a Function
Function DbT_LoadLabels(MeName As String) As Boolean on opening both forms and reports.

This passes either
LoadFormOrReportLabels 1, MeName, MeName for forms or LoadFormOrReportLabels 2, MeName, MeName for reports to the function in my first post.

That function translates all the controls from one language to the required language. In the case of a SUBFORM, I just re-run the function and it works correctly translating the controls in the subform.

I had assumed that SUBREPORTS worked in the same way as Subforms in that they are opened before the main report opens, but have not been able to verify this.

The error 2455 You entered an expression that has an invalid reference to the property Form/Report seems to imply that the subreport is not open.

So I suppose the basic question is when do SubReports get opened? Does it depend on in which section of the main report the SubReport lies?

Thanks as ever,

Phil

[NeoPa]

I don't have the SP on that Phil. I suggest you work with what you have and do some tests to see what's ready when. You may also find info in the Help system if you're lucky. I don't have such a system to play with. I have Subforms but no Subreports.

[PhilOfWalton]

Solved!!!!.

I moved the DbT_LoadLabels Me.Name from the OnOpen to the OnLoad Event of the main Report, and it works a treat.

Presumably the SubReports are opened after the OnOpen of the Report, but before the OnLoad

Useful gem for further reference.

Thanks again,

Phil

[NeoPa]

Happy I could point you towards the answer Phil :-)