Rocky Smolin - Beach Access Software
bchacc at san.rr.com
Thu Jun 3 13:55:17 CDT 2004
Charlotte: It's working! It's working! It's working! Thank you. You've saved my bacon. It's off to China with this app! Best, Rocky Smolin Beach Access Software http://www.e-z-mrp.com ----- Original Message ----- From: "Charlotte Foust" <cfoust at infostatsystems.com> To: "Access Developers discussion and problem solving" <accessd at databaseadvisors.com> Sent: Thursday, June 03, 2004 9:50 AM Subject: RE: [AccessD] Set Report Format > The whole point of passing the object is that you don't have to set rpt > to anything except argReport if you desire. You already have an object, > so it isn't necessary to instantiate it. You don't even need the rpt > object unless you want to avoid retyping your code. argReport is > already an object you can use and it inherits the methods and properties > of the kind of object it is. So you can do things like this: > > For Each ctl In argReport.Controls ... > > Charlotte Foust > > -----Original Message----- > From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com] > Sent: Thursday, June 03, 2004 8:44 AM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Set Report Format > > > Charlotte: > > Disregard my last message. I changed the function declaration to: > > Public Function TranslateControlSubReport(argReport As Object) As > Boolean > > but still get a type mismatch on: Set rpt = Reports(argReport). > > The calling statement is: Call TranslateControlSubReport(Me) > > What am I doing wrong? > > TIA > > Rocky Smolin > Beach Access Software > http://www.e-z-mrp.com > > > ----- Original Message ----- > From: "Charlotte Foust" <cfoust at infostatsystems.com> > To: "Access Developers discussion and problem solving" > <accessd at databaseadvisors.com> > Sent: Thursday, June 03, 2004 9:06 AM > Subject: RE: [AccessD] Set Report Format > > > > Change the argument to an object, not a report or string. Pass in the > > > subreport or report like this: > > > > Call TranslateControlReport(Me) > > > > Then all the function has to do is test to see if the object is a > > report or subreport and then loop through its controls collection > > changing labels. Since it doesn't have to instantiate anything in the > > > function, it doesn't need the name. > > > > Charlotte Foust > > > > -----Original Message----- > > From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com] > > Sent: Thursday, June 03, 2004 7:56 AM > > To: Access Developers discussion and problem solving > > Subject: Re: [AccessD] Set Report Format > > > > > > Charlotte: > > > > In the subreport's Report_Open event I call the routine like this: > > > > Call TranslateControlReport(Me.Name) > > > > But that isn't working. Is there another way? > > > > TIA > > > > Rocky Smolin > > Beach Access Software > > http://www.e-z-mrp.com > > > > > > ----- Original Message ----- > > From: "Charlotte Foust" <cfoust at infostatsystems.com> > > To: "Access Developers discussion and problem solving" > > <accessd at databaseadvisors.com> > > Sent: Thursday, June 03, 2004 8:41 AM > > Subject: RE: [AccessD] Set Report Format > > > > > > > Rocky, > > > > > > The subreport isn't open in the same sense the parent report is, so > > > your routine is going to bomb because the subreport won't show up in > > > > the reports collection. I usually pass an object instead of a > > > string in situations like this, which avoids the problem because the > > > > object already exists and doesn't have to be instantiated properly. > > > > You can pass Me from the subreport into the function and have it > > > work without problems. > > > > > > Charlotte Foust > > > > > > -----Original Message----- > > > From: Rocky Smolin - Beach Access Software > > > [mailto:bchacc at san.rr.com] > > > Sent: Thursday, June 03, 2004 7:34 AM > > > To: AccessD at databaseadvisors.com > > > Subject: [AccessD] Set Report Format > > > > > > > > > Dear List: > > > > > > I am trying to set a variable rpt to a sub report in a Public > > > function > > > > > (this is for purposes of translating the labels to a foreign > > > language). I am passing the report name to the function in the > > > Report_Open event. > > > > > > Setting it to the Main report is no problem. > > > > > > Public Function TranslateControlReport(argReport As String) As > > > Boolean > > > > > > Dim rpt As Report > > > > > > Set rpt = Reports(argReport) > > > > > > works fine. > > > > > > But in the _Open event of the sub-report when I pass the name of the > > > > sub-report to this routine I get a run time error 2451 - the report > > > name you entered is misspelled or refers to a report that isn't open > > > > or doesn't exist. > > > > > > I think it has to do with the fact that I'm only passing the > > > sub-report name and have to qualify it with the Main report? But > > > I've > > > > > tried several syntaxes with no luck. > > > > > > Anybody know? > > > > > > MTIA > > > > > > Rocky Smolin > > > Beach Access Software > > > http://www.e-z-mrp.com > > > > > > > > > But > > > -- > > > _______________________________________________ > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > -- > > > _______________________________________________ > > > AccessD mailing list > > > AccessD at databaseadvisors.com > > > http://databaseadvisors.com/mailman/listinfo/accessd > > > Website: http://www.databaseadvisors.com > > > > -- > > _______________________________________________ > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > -- > > _______________________________________________ > > AccessD mailing list > > AccessD at databaseadvisors.com > > http://databaseadvisors.com/mailman/listinfo/accessd > > Website: http://www.databaseadvisors.com > > -- > _______________________________________________ > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- > _______________________________________________ > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com