Security: Groups Problem

[Tim Marshall]

I hope someone can help me with an extrodinarily vexing problem. I've
searched Google high and wide and tried a number of methods for
determining if the current user is part of a specified group in A97. I
can find nothing in the otherwise excellent help files, except examples
of how to add users and specify what groups they are part of and adding
groups.

I have some code below from a post by Allen Browne in 2001 and it won't
work. When I put a break point at the start of the function and run

?IsUserInGroup(access.CurrentUser,"Users")

the code steps to For Each grp and grx and immediately goes straight to
setting the variables to nothing. I am logged into a secured DB as
Developer (member of every group) and I can't figure out what the blink
I'm doing wrong. SImilar things happen with other code snippets.

Please help me. Allen's code fallows.

Function IsUserInGroup(strUser As String, strGroup As String) As Boolean
'Returns True if the user is in the group.
'Example: IsUserInGroup(CurrentUser(), "Admins")
Dim wk As Workspace
Dim grx As Groups
Dim grp As Group
Dim usx As Users
Dim usr As User

Set grx = DBEngine(0).Groups
For Each grp In grx
If grp.NAME = strGroup Then
Set usx = grp.Users
For Each usr In usx
If usr.NAME = strUser Then
IsUserInGroup = True
Exit For
End If
Next
End If
Next

Set usr = Nothing
Set usx = Nothing
Set grp = Nothing
Set grx = Nothing
End Function
--
Tim - http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Want some?" - Ditto

[TC]

You do understand that the users & groups are defined in the so-called
workgroup information file (usually wth an MDW extension) - not in the
database file (MDB)?

If you secured the db on your laptop, then took it to work, yo must also
take the workgroup file, >and<, ensure that workgroup file is used when you
open the database. Google on the /wkgrp switch for more information.

HTH,
TC
"Tim Marshall" <tm******@Gunner.Sabot.Spam.On.Loaded.FIRE> wrote in message
news:3F***************@Gunner.Sabot.Spam.On.Loaded .FIRE...

I've been able to isolate what's causing my problem, ie, groups not
being recognized, but don't know why.

The database in question is on my laptop and was secured there. It is a
front end to an Oracle database and presently has Access linked tables,
though my usual approach is to use pass through queries with no linked
tables at all.

When I'm at work on the network, the procs for determining what groups
the user belongs to works fine. When I'm off the network, at home
either connected via phone line (slow connections to the Oracle
database) or off line, it appears the procs, including the one I showed
in the previous post, fail. I tried removing the linked tables, but I
still get the same result.

Any ideas why?
--
Tim - http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Want some?" - Ditto