How to change one or more properties in several reports or forms at once

[soncci]

I have an application with 163 forms.
I need to change the properties to Pop Up = Yes, Auto Resize = No and Fit To Screen = No, in each form.



Is there a way to do the change in al forms at once?
Or I need to open each form and change the property, save and close.

[June7]

Open each form, change, save.

Could program VBA procedure to do it.

[Micron]

Is there a way to do the change in al forms at once? No, not really.

Or I need to open each form and change the property, save and close. Yes, but can do so with code instead of manually. You could research how to loop over the forms collection.

Usually when someone says they have a huge number of forms/reports in a db I imagine that many of them are just minor variations. Having a form for records that are to be view only in one situation and editable or for adding in another is not the way to go. Same for reports: not one for sales for group1 for Jan and 1 for group2 for Jan and so on. Maybe that's not the case here

[orange]

soncci,

As others have suggested, you could do this using code. However, micron offered some thoughts on your various forms and usage that you might want to comment on. It would help put some context on your requirement.

[soncci]

soncci,

As others have suggested, you could do this using code. However, micron offered some thoughts on your various forms and usage that you might want to comment on. It would help put some context on your requirement.

Thank you for the replies.

I need a code to change the same property (or properties) for ALL my reports or ALL my forms.

The application is already builded so just need help with the code.

From another forum I got the following:

Sub SetPopUpProperty()

Dim obj As AccessObject
Dim rpt As Report

For Each obj In CurrentProject.AllReports
If obj.Type = acReport Then 'check if the object is a report
Set rpt = obj
rpt.PopUp = True
rpt.Save
End If
Next obj

End Sub


I copied and run the module from the VBA editor but


I get the following error:


Run-time error '13' Type mismatch


When I debug it highlight the " Set rpt = obj "

[Micron]

Looks like cross posted here with an unacknowledged posted solution 5 days ago.
https://learn.microsoft.com/en-us/an...property-in-se

@soncci - great way to get on somebody's ignore list.
Good luck.

[soncci]

Looks like cross posted here with an unacknowledged posted solution 5 days ago.
https://learn.microsoft.com/en-us/an...property-in-se

@soncci - great way to get on somebody's ignore list.
Good luck.

WOW! Thank you! for your help.

[Micron]

You're quite welcome.

[June7]

This worked for me:

Sub SetPopUpProperty()

Dim obj As Object
Dim rpt As String


For Each obj In CurrentProject.AllReports
If obj.type = acReport Then 'check if the object is a report
    rpt = obj.Name
    DoCmd.OpenReport rpt, acViewDesign
    Reports(rpt).Properties("PopUp").Value = True
    DoCmd.Close acReport, rpt, acSaveYes
End If
Next obj


End Sub