Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

No Read Permission Error - Reading MSysErrors - Replication 3

Status
Not open for further replies.

sathandle

Programmer
Apr 22, 2002
84
US
I am receiving a "No Read Permission Error" (Error # 3112) which states:

Run-time error '3112':
Record(s) can't be read; no read permission on 'tablename'

OS: NT 4.0 Access ver. 97 Workgroup Information File: Default (no changes to security model)

Any ideas? I am trying to read MSysErrors (Synchronization Errors Data Table) from another separate database. I am using DAO.

Dim db as Database
Dim rst as Recordset

Set db = OpenDatabase(DBNAME()) ' works fine
Set rst = OpenRecordset("MSysErrors") ' error generated here

Any suggestions? [3eyes]

Thanks,
SATHandle

definition of 'less behind': "not fully caught up, digging out slowly, one-week delay to "The IT hit the fan."
 
Just a guess, but I'm not sure that MSys appears in a normal table collection. Try this instead:

Set rst = OpenRecordset(db.TableDefs("MSysErrors"))
 
Sorry, I don't know what I was thinking. I meant this:

db.TableDefs("MSysErrors").OpenRecordset
 
A modified solution from the Microsoft Knowledge Base Article #236878 was my resolution.

I added the following line of code before I open the external database:

DBEngine.SystemDB = "C:\Windows\System\system.mdw"

and everything seems (I use this losely) to work fine.

Downwithyobadself - Thanks for your insight. I didn't know I could open a database/recordset in that manner. I had learned a different method.

Thanks
SATHandle definition of 'less behind': "not fully caught up, digging out slowly, one-week delay to "The IT hit the fan."
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top