DoCmd.DeleteObject acReport

[FreeWheel]

Hi everyone !

I've got this code in an Access 2000 database project running with Access
2003 which will do as expected only if the "project properties display
protection password" is not set;

If dbs.AllReports.Count > 0 Then
For num = dbs.AllReports.Count To 1 Step -1
itemnum = num - 1
Set obj = dbs.AllReports(itemnum)
If obj.IsLoaded = False Then
DoCmd.DeleteObject acReport, obj.Name
Else
End If 'obj.IsLoaded
Next num
Else
End If 'AllReportsCount

What do I need to do in order to get the objects (in this case the reports)
deleted while the "project properties display protection password" is set ?

 

[Alex Dybenko]

Hi,
you mean that is fails on DoCmd.DeleteObject acReport, obj.Name?
Are you deleting reports in the same database or external one?

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com

 

[FreeWheel]

Hi Alex,

The code runs perfectly well when the "project properties display protection
password" is not set. The code deletes all reports in the same database.
I guess I am looking for a way to reset the protection just ahead of the
loop and set it back on right after it. What instrinsinc Access parameter
should I flicker and how ?

Tks for your reply, I highly appreciate it.

A+

 

[FreeWheel]

Hi again Alex, more info for you;

When in the project window (VB), this password is reset via TOOLS - ACCESS
PROPERTIES - Protection Tab - "Lock project for viewing" box and blanked
password.


Hope this can help !
A+

 

[Alex Dybenko]

Hi,
here a code to unprotect excel project, I think the same way you can do in
access.
http://www.mrexcel.com/archive2/61000/70611.htm

BTW, I think deleting reports in same DB is not a good idea, why do you
need this?

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com

 

[FreeWheel]

Hi Alex,

Thanks for the tip, I will try it. I will get back to you

..........This code is used in a self destruct process......

 

[Alex Dybenko]

Hi,
self destruct process? but if somebody make a copy of it?

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com

 

[FreeWheel]

Hi Alex,

That person will get a nice surprise after using it after a certain date !
He will be stuck having to give me a call.

A+