Checking for group membership?

[Karen Hill]

I would like to be able to programatically check for group membership
in an access database. For example, I would like to be able to check
is someone is in the admin group before the program does Y.

something like:

if( current.user.gr oup == admin){
do_something();
}

Thanks in advance friends.

[Allen Browne]

Function IsUserInGroup(s trUser As String, strGroup As String) As Boolean
Dim varDummy As Variant
On Error Resume Next
varDummy = DBEngine(0).Use rs(strUser).Gro ups(strGroup).N ame
IsUserInGroup = (Err.Number = 0)
End Function

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Karen Hill" <ka**********@y ahoo.com> wrote in message
news:11******** **************@ g49g2000cwa.goo glegroups.com.. .

I would like to be able to programatically check for group membership
in an access database. For example, I would like to be able to check
is someone is in the admin group before the program does Y.

something like:

if( current.user.gr oup == admin){
do_something();
}

Thanks in advance friends.