Disable control based on group secutiry level in MS Access

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

On 18 Sep 2004 15:07:24 -0700, fausto.vera@gmail.com (Joscarfas)
wrote:

In the Form_Open event of the form, write:
MyControl.Enabled = (IsUserMemberOfGroup(CurrentUser, "SomeGroup"))

This function could be in some module:
Function IsUserMemberOfGroup(ByVal strUser As String, ByVal strGroup
As String) As Boolean
dim varDummy as Variant
on error resume next
varDummy=DBEngine.Workspaces(0).Users(strUser).Gro ups(strGroup).Name
IsUserMemberOfGroup = (Err.Number=0)
End Function

-Tom.

[color=blue]
>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[/color]

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.spam.tom7744@cox.net> wrote in message news:<i6fpk0158d99uufud0laeo0eq49r1svrf4@4ax.com>. ..[color=blue]
> On 18 Sep 2004 15:07:24 -0700, fausto.vera@gmail.com (Joscarfas)
> wrote:
>
> In the Form_Open event of the form, write:
> MyControl.Enabled = (IsUserMemberOfGroup(CurrentUser, "SomeGroup"))
>
> This function could be in some module:
> Function IsUserMemberOfGroup(ByVal strUser As String, ByVal strGroup
> As String) As Boolean
> dim varDummy as Variant
> on error resume next
> varDummy=DBEngine.Workspaces(0).Users(strUser).Gro ups(strGroup).Name
> IsUserMemberOfGroup = (Err.Number=0)
> End Function
>
> -Tom.
>
>[color=green]
> >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[/color][/color]