using a Macro to check IsBroken in an MDE

In an MDE, Access 2000 does not correctly load the Current VBA project if
any library .MDE files are missing. This makes it impossible to use ANY
code in the base MDE to check library MDE references at startup.

However, you can use an Autoexec macro to check references:

In startup, remove the startup form.

Create a new macro

In design view, right Click on the macro caption, and show conditions.

In the conditions column, put code like this:

[application].[References].[Item](3).[IsBroken]
....
[application].[References].[Item](4).[IsBroken]
....

The ellipsis (...) repeats the previous condition, allowing you group
sections of macro commands.

For the macro Actions, put code like this:
Msgbox
Quit
Msgbox
Quit

OpenForm

Save the macro as Autoexec

Use the Msgbox to display an informative message: Quit after finding a
broken reference, and if no broken references are found, continue to your
Startup form.

(david)

Thanks for posting this solution, David.

--
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.

"david epsom dot com dot au" david@epsomdotcomdotau wrote in message
...
In an MDE, Access 2000 does not correctly load the Current VBA project if
any library .MDE files are missing. This makes it impossible to use ANY
code in the base MDE to check library MDE references at startup.

However, you can use an Autoexec macro to check references:

In startup, remove the startup form.

Create a new macro

In design view, right Click on the macro caption, and show conditions.

In the conditions column, put code like this:

[application].[References].[Item](3).[IsBroken]
...
[application].[References].[Item](4).[IsBroken]
...

The ellipsis (...) repeats the previous condition, allowing you group
sections of macro commands.

For the macro Actions, put code like this:
Msgbox
Quit
Msgbox
Quit

OpenForm

Save the macro as Autoexec

Use the Msgbox to display an informative message: Quit after finding a
broken reference, and if no broken references are found, continue to your
Startup form.

(david)