Disable control based on group secutiry level in MS Access

[Joscarfas]

Hello to all,

As you can read the subject of this post, this is exactly what I'm
trying to do. I need to disable some controls in my form base on
secutiry level in MS Access; I've been searching all over for a
solution to this problem but unfortunatelly so far I've been unable to
obtain any good results for this problem.

PS: Is this possible after all?

Thanks

[Tom van Stiphout]

On 18 Sep 2004 15:07:24 -0700, fa*********@gma il.com (Joscarfas)
wrote:

In the Form_Open event of the form, write:
MyControl.Enabl ed = (IsUserMemberOf Group(CurrentUs er, "SomeGroup" ))

This function could be in some module:
Function IsUserMemberOfG roup(ByVal strUser As String, ByVal strGroup
As String) As Boolean
dim varDummy as Variant
on error resume next
varDummy=DBEngi ne.Workspaces(0 ).Users(strUser ).Groups(strGro up).Name
IsUserMemberOfG roup = (Err.Number=0)
End Function

-Tom.

Hello to all,

As you can read the subject of this post, this is exactly what I'm
trying to do. I need to disable some controls in my form base on
secutiry level in MS Access; I've been searching all over for a
solution to this problem but unfortunatelly so far I've been unable to
obtain any good results for this problem.

PS: Is this possible after all?

Thanks

[Joscarfas]

Tom - thanks for your suggestion; is it possible that you can guide me
on how to do this since I'm not too familiar with any type of coding.
Thanks

Tom van Stiphout <no************ *@cox.net> wrote in message news:<i6******* *************** **********@4ax. com>...

On 18 Sep 2004 15:07:24 -0700, fa*********@gma il.com (Joscarfas)
wrote:

In the Form_Open event of the form, write:
MyControl.Enabl ed = (IsUserMemberOf Group(CurrentUs er, "SomeGroup" ))

This function could be in some module:
Function IsUserMemberOfG roup(ByVal strUser As String, ByVal strGroup
As String) As Boolean
dim varDummy as Variant
on error resume next
varDummy=DBEngi ne.Workspaces(0 ).Users(strUser ).Groups(strGro up).Name
IsUserMemberOfG roup = (Err.Number=0)
End Function

-Tom.

Hello to all,

As you can read the subject of this post, this is exactly what I'm
trying to do. I need to disable some controls in my form base on
secutiry level in MS Access; I've been searching all over for a
solution to this problem but unfortunatelly so far I've been unable to
obtain any good results for this problem.

PS: Is this possible after all?

Thanks