By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
455,611 Members | 1,692 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 455,611 IT Pros & Developers. It's quick & easy.

Help! Run-time error 3358 cannot open Workgroup Information File

P: n/a
Hello,

I am running the code shown below, and when it runs the
"doc.Permissions=1048319" line, I get a "Run-time error 3358: Cannot open
the Microsoft Jet Engine workgroup information file". I've looked on the
Microsoft website (where I normallly get 1000 convoluted results based on my
searches) and when I type this in, I don't get a single result. Any ideas?

conDBPwd = "TestPassword"

Sub DataModification()
Dim wrk As dao.Workspace
Dim db As Database
Dim strDatabase As String
Dim tdf As TableDef
Dim doc As Document

strDatabase = "C:\Test\MyDb.mdb"

Set wrk = CreateWorkspace("", "Admin", "", dbUseJet)

Set db = wrk.OpenDatabase(strDatabase, False, False, ";pwd=" & conDbPwd)

Set doc = db.Containers!Tables("MyTable")
doc.Permissions = 1048319
Debug.Print tdf.Fields.Count

For Each Field In tdf.Fields
Debug.Print Field.Name
Next Field

Set db = Nothing
Set wrk = Nothing
End Sub

Nov 13 '05 #1
Share this Question
Share on Google+
1 Reply


P: n/a
Any ideas at all?

"Jozef" <me@you.com> wrote in message news:BZ88f.62887$Io.43505@clgrps13...
Hello,

I am running the code shown below, and when it runs the
"doc.Permissions=1048319" line, I get a "Run-time error 3358: Cannot open
the Microsoft Jet Engine workgroup information file". I've looked on the
Microsoft website (where I normallly get 1000 convoluted results based on
my searches) and when I type this in, I don't get a single result. Any
ideas?

conDBPwd = "TestPassword"

Sub DataModification()
Dim wrk As dao.Workspace
Dim db As Database
Dim strDatabase As String
Dim tdf As TableDef
Dim doc As Document

strDatabase = "C:\Test\MyDb.mdb"

Set wrk = CreateWorkspace("", "Admin", "", dbUseJet)

Set db = wrk.OpenDatabase(strDatabase, False, False, ";pwd=" & conDbPwd)

Set doc = db.Containers!Tables("MyTable")
doc.Permissions = 1048319
Debug.Print tdf.Fields.Count

For Each Field In tdf.Fields
Debug.Print Field.Name
Next Field

Set db = Nothing
Set wrk = Nothing
End Sub

Nov 13 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.