Hi everyone - I am trying to dissec

[JohnBates]

Hi everyone - I am trying to dissect my Access 2000 db because I will likely have to rewrite it or otherwise convert it.


So I'm trying to step thru the properties of the Document class. The error I am getting says "Cannot open the Jet engine workgroup information file. (error 3358) You attempted to perform a security-related task, but the workgoup information file (typically System.mdw) required for the task cannot be found."

This db was copied to my PC from another.
I do have a System.mdw on drives C and D.

I don't know where to go to resolve this error.
The code below shows you exactly where the eror occurs.

Thanks, John


Sub PrintObjectProperties(strObjectType As String, strObjectName _
As String)
Dim dbs As Database, ctr As Container, doc As Document
Dim intI As Integer
Dim strTabChar As String

Dim prp As Object
'Dim prp As Property
'Dim prp As Properties
'Dim prp As Variant... did not help

Set dbs = OpenDatabase("D:\Custord\Menlo2000.mdb&quot

strTabChar = vbTab
' Set Container object variable.
Set ctr = dbs.Containers(strObjectType)
' Set Document object variable.
Set doc = ctr.Documents(strObjectName)
doc.Properties.Refresh
' Print the object name to Debug window.
Debug.Print doc.Name 'Print each Object property toDebug window.

For Each prp In doc.Properties

*** Get error here: Cannot open MS Jet engine workgroup information file - error 3358 ***
Debug.Print strTabChar & prp.Name & " = " & CStr(prp.Value)
**********************************************************
Next
End Sub