CrowT
08-20-2008, 06:41 AM
In Access 2003, I could easily make linked tables (from SQL Server) read-only, as follows:
Set con = db.Containers("Tables")
Do Until rs.EOF
Set doc = con.Documents(rs!Local_Table_Name)
For Each grp In wrkDefault.Groups
doc.UserName = grp.Name
doc.Permissions = dbSecRetrieveData
For Each use In grp.Users
doc.UserName = use.Name
doc.Permissions = dbSecRetrieveData
Next
Next
rs.MoveNext
Loop
Is there a way to get this same result from Access 2007?
Thanks!
Set con = db.Containers("Tables")
Do Until rs.EOF
Set doc = con.Documents(rs!Local_Table_Name)
For Each grp In wrkDefault.Groups
doc.UserName = grp.Name
doc.Permissions = dbSecRetrieveData
For Each use In grp.Users
doc.UserName = use.Name
doc.Permissions = dbSecRetrieveData
Next
Next
rs.MoveNext
Loop
Is there a way to get this same result from Access 2007?
Thanks!