Re: ACCESS97 To ACCESS 2003 Conversion Issue

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Try this:

Function FixReports()
Dim accobj As AccessObject
Dim strDoc As String

For Each accobj In CurrentProject.AllReports
strDoc = accobj.Name
DoCmd.OpenReport strDoc, acViewDesign, WindowMode:=acHidden
With Reports(strDoc)
If .AutoResize Then
.AutoResize = False
Debug.Print strDoc
End If
Debug.Print .AutoResize
End With
DoCmd.Close acReport, strDoc, acSaveYes
Next
End Function

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"FrankieBotts" <FrankieBotts@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:E09BBCB6-143A-414F-909F-07FB52809440@xxxxxxxxxxxxxxxx
I want to modify the "AutoResize" property in all of my Reports from 'Yes' to
"No". Is there a macro or code or even a 3rd party solution that someone can
provide me with. I need to do this, then save, compile the app and create an
mde.
Thanks in Advance
--
Frank G. Venditti
FGV Management Solutions

.

Relevant Pages