Recovering a document that was replaced by another

[Guest]

by mistake I replace a document with a blank document in word. I had saved
the previous document.

 

[John Vinson]

by mistake I replace a document with a blank document in word. I had saved
the previous document.

John W. Vinson[MVP]

 

[John Vinson]

by mistake I replace a document with a blank document in word. I had saved
the previous document.

Microsoft's Help system has landed you in the wrong newsgroup: this
one is for the database program Microsoft Access.

Please use the dropdown box (the one that says "Access" by default)
to select a more appropriate newsgroup, microsoft.public.word for
example.

However, I strongly suspect that your document is gone forever. You
were asked if you wanted to overwrite the existing document; you said
yes; it obeyed your instructions.

John W. Vinson[MVP]

 

[Jen]

I have lost instructions on how to copy a custom toolbar
as an entry into the properties of each report in my db.
Cannot find it in Help.

All my reports utilize this custom toolbar and I don't
want to go into each report on each front-end and
manually enter.

Can someone please show the way?

Thanks for any help...
Jen

 

[Brendan Reynolds]

This should do it ...

Public Sub SetRepMenu()

Dim aob As AccessObject

For Each aob In CurrentProject.AllReports
DoCmd.OpenReport aob.name, acViewDesign
Reports(aob.name).Toolbar = "Custom 1"
DoCmd.Close acReport, aob.name, acSaveYes
Next aob

End Sub