How to set openargs of sub report?

[flippedbeyond]

I am trying to set the OpenArgs of a SubReport that is in another report.

Here's what i've tried in the report that contains the subreport:

Private Sub Report_Open(Cancel As Integer)
    subGetStudentInfoById.Report.OpenArgs = "1"
End Sub

gives me runtime error '2455', "You entered an expression that has an invalid reference to the property form/report."



I'm assuming OpenArgs is a readonly property? or something with the subreport? Please help, Thanks in advance

[pbaldy]

To the best of my knowledge, you can't set the value like that, only with OpenForm/OpenReport. Help seems to concur:

[Setting] this property is available only by using a macro or by using Visual Basic with the OpenForm method of the DoCmd object.

[flippedbeyond]

oo, okay. I'll have to come up with a work around then.

Thanks for the fast reply.

[pbaldy]

No problem. Not sure what you're doing, but one workaround may be setting the main report's OpenArgs, and reading that from the subreport. You can put more than one value there and parse them back out if you're already using it.

[flippedbeyond]

one workaround may be setting the main report's OpenArgs, and reading that from the subreport

to clarify, does that mean from the subreport i can find out if it has a parent? then get the openargs of the parent report?

[pbaldy]

Yes; untested, but I think this would get the parent's OpenArgs:

Me.Parent.OpenArgs

[flippedbeyond]

Sweet, yea it works. This works perfectly for me. Thanks alot.

[flippedbeyond]

Hey, i hope this isn't a problem, this is kinda off topic, but you mentioned a delimited string, i used the split function to get the array, but how do i get the count of how many elements are in an array? sorry kinda new to vba...

[pbaldy]

Check out UBound() in VBA help (don't forget the array starts at 0).

[flippedbeyond]

k, Thanks alot.

[pbaldy]

No problem, and welcome to the site by the way!

[flippedbeyond]

thanks (appears i can't enter a message when it's under 10 characters or something lol)