I shouldn't think so
My way has however always been
Sub FixRights
Dim Ws AS DAO.WorkSpace
Dim CDb AS DAO.Database, BeDb AS DAO.Database
Dim CCont AS DAO.Container, BECont AS DAO.Container
Dim CDoc AS DAO.Document, BEDoc As DAO.Document
Dim Grp AS DAO.Group ' Assume rights assigned to groups - not users
On Error Resume Next ' No Error handling
Set Ws = Access.DbEngine.Workspaces(0)
Set Cdb = Access.CurrentDb()
Set BEDb = Access.OpenDatabase("BackEnd") ' Substitute..................
For Each CCont In Cdb.Containers
Set BECont = BEDb.Containers(CCont.Name)
For Each CDoc In CCont.Document
Set BEDoc = BECont.Documents(CDoc.Name)
For Each Grp In Ws.Groups
CDoc.UserName = Grp.Name
BEDoc.UserName = CDoc.UserName
CDoc.Permissions = BEDoc.Permissions
Next
Next
Next
' Clean up Objects here ..
End Sub
Pieter
Secret Squirrel said:
I split my secure database into a BE/FE but now I lose all my permissions
to
my tables. Is this normal or am I doing something wrong?
--