[AccessD] Error message - Record(s) can't be read; no read permission on 'MSysGroups'.

Richard,

The is a code example in the Access Security FAQ to do what I think you
are trying to do.

Charles Wortz
Software Development Division
Texas Education Agency
1701 N. Congress Ave
Austin, TX 78701-1494
512-463-9493
CWortz at tea.state.tx.us



-----Original Message-----
From: Griffiths, Richard [mailto:R.Griffiths at bury.gov.uk] 
Sent: Friday 2003 Apr 11 05:00
To: 'AccessD at databaseadvisors.com'
Subject: [AccessD] Error message - Record(s) can't be read; no read
permission on 'MSysGroups'.

Hi

getting this error - user has read, write, insert and delete access for
all tables in front end and BE

I get when in this function

Private Function IsInAdmin(Optional strUser As String = "") As Integer
Dim grp As Group
  If strUser = "" Then strUser = CurrentUser
  For Each grp In DBEngine.Workspaces(0).Users(strUser).Groups
<<<<<<<<<<<<<<<<  error here
    If grp.Name = "Admins" Then
      IsInAdmin = True
      Exit For
    End If
  Next
End Function


Can u help please

Richard