how to check current group? 1

[tobymom]

OS: xp pro
Office: XP

I want to code following...

If currentgroup = "manager" then
open form name "frmManager"
else
open form name "frmOthers"
end if

I understand there's a function "CurrentUser()" to check current user. However, I couldn't find embedded function checking a user's current group.

I guess I'll have to figure out going around this... If anyone have any ideas, it'll be greatly appreciated.

thanks!

 

[maxhugen]

Here's an function you could try:

Public Function gfIsManager%()
Dim usr As User
    For Each usr In DBEngine(0).Groups("Manager").Users
        If usr.Name = CurrentUser() Then
            gfIsManager = True
            Exit For
        End If
    Next
End Function

Max Hugen
Australia

 

[tobymom]

I haven't tried your code but it looks very promising. Thank you very much for your valuable time.

Regards,

Tobymom