checking references

[Guest]

Access 2002 DB developed on Win XP and installed as MDE on client machines.
FrontEnd and BackEnd files are separate.

I want to check references on client machines - they have the MDE installed
on their machine (backend resides on the server)

Question: Can I check the references used by the MDE from within any Access
DB on the host machine? In other words, to the references apply to the
entire Access application or are they unique/specific to each DB file?

THANKS!

 

[Arvin Meyer]

Yes, but you need to embed the code before you make the MDE file. There is
some code on my website that enumerates references. You can change that code
to write out to a table or to a text file instead of the immediate window.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

 

[Douglas J. Steele]

If you're asking can you read the references in the MDE from another
database, the answer's yes.

Dim appAccess As Access.Application
Dim refCurr As Reference

Set appAccess = New Access.Application
appAccess.OpenCurrentDatabase <fullpathtodatabase>
For Each refCurr In appAccess.References
If refCurr.IsBroken Then
Debug.Print refCurr.Name & " is broken."
Else
Debug.Print refCurr.Name & " : " & refCurr.FullPath
End If
Next refCurr

If you go to http://www.mvps.org/access/api/api0065.htm at "The Access Web",
you can get code that will let you look at the actual version of each of the
referenced files. Using that, you can rewrite the code in the Else part
above to

Debug.Print refCurr.Name & ": " & refCurr.FullPath & _
" (" & fGetProductVersion(refCurr.FullPath) & ")"

 

[Guest]

Thanks to you both! I appreciate it!

If you're asking can you read the references in the MDE from another
database, the answer's yes.

Dim appAccess As Access.Application
Dim refCurr As Reference

Set appAccess = New Access.Application
appAccess.OpenCurrentDatabase <fullpathtodatabase>
For Each refCurr In appAccess.References
If refCurr.IsBroken Then
Debug.Print refCurr.Name & " is broken."
Else
Debug.Print refCurr.Name & " : " & refCurr.FullPath
End If
Next refCurr

If you go to http://www.mvps.org/access/api/api0065.htm at "The Access Web",
you can get code that will let you look at the actual version of each of the
referenced files. Using that, you can rewrite the code in the Else part
above to

Debug.Print refCurr.Name & ": " & refCurr.FullPath & _
" (" & fGetProductVersion(refCurr.FullPath) & ")"