Update references in text boxes

[ahseenam]

I have a report with a bunch of text boxes where the control source is something like:




=[Reports]![My Report Name]![Student Total]


=[Reports]![My Report Name]![Students Classroom Number]


=[Reports]![My Report Name]![Students Section Count]


=[Reports]![My Report Name]![Teachers Count]


... and so on.




I have to change [My Report Name] to [My New Report Name]. Field names stay the same. Obviously I don't want to have to go through the form and edit 20 or so text boxes one by one. Does Access have an automated way to do this update? Or how can I use VBA to update my report?

[burrina]

You could use OpenArgs for the Criteria. However, unsure why your Report is not bound?

HTH

[ahseenam]

Not sure about that... it's someone else's database that I'm working on. Because of that what I really want to do is more along the lines of a find & replace.

I guess what I really want is just to go through each object on this report, look at the control source, and find anywhere it says [My Report Name], replace it with [My New Report Name]. So I just need help to write VBA code that will do that.

So the control sources for all the examples I just gave would now look like:


=[Reports]![My New Report Name]![Student Total]


=[Reports]![My New Report Name]![Students Classroom Number]


=[Reports]![My New Report Name]![Students Section Count]


=[Reports]![My New Report Name]![Teachers Count]

[burrina]

Here is an Example, maybe you can modify to suit your needs. Else, let the person whose db it is find a solution!

'Change Label Names in All Reports:
For Each obj In Application.CurrentProject.AllReports
DoCmd.OpenReport Obj.Name, acViewDesign
if Obj.LabelName.Caption = "XXXXX" Then Obj.LabelName.Caption = "ZZZZZ"




DoCmd.Close acReport, obj.Name, acSaveYes
Next obj

Good Luck With Someone Else's Project!

[June7]

Why are textboxes on report referencing fields of another report?

If you want to do search and replace to change design elements, code would open object in design view, loop through its controls, use Replace function on the ControlSource property, close object with changes saved. An alternative is to acquire third party add-in. I use Rick Fisher's Find & Replace for Access. Saved my sanity more than once, well worth the $50.