Re: If faq_IsUserInGroup Syntax for three groups.

Tech-Archive recommends: Fix windows errors by optimizing your registry

I have never set a reference to ADO, since all my databases use Jet as the
backend. If you don't need ADO then set the reference to DAO.

As for your code, I assume that a user can be a member of only one group.
Looking at your if statements, it appears that the Admins group and the
Regulatory group can see all buttons, but the Manufacturing group can only
see
cmdRunReports
cmdAddLotNumber
cmdExit
Post back if I've missed it...

If faq_IsUserInGroup("Manufacturing", CurrentUser) Then
Me.cmdRunReports.Visible = True
Me.cmdAddLotNumber.Visible = True
Me.cmdExit = True
Me.Add_Review_Employee_Information.Visible = False
Me.cmdAddBpr.Visible = False
Me.cmdReviseSops.Visible = False
Me.cmdViewTraining.Visible = False
Else
Me.Add_Review_Employee_Information.Visible = True
Me.cmdViewTraining.Visible = True
Me.cmdReviseSops.Visible = True
Me.cmdAddBpr.Visible = True
Me.cmdRunReports.Visible = True
Me.cmdAddLotNumber.Visible = True
Me.cmdExit.Visible = True
End If

This would mean anyone in the Manufacturing group will see only three
buttons, if the current user isn't in the Manufacturing group, they'll see
them all. Is that what you want?

--
Joan Wild
Microsoft Access MVP

Olu Solaru wrote:
Another question - Can I make a reference to DAO objects in Access
2003/WinXp, as oppose to ADO?

"Olu Solaru" wrote:

I writing my code that will enable/disable controls based on the
user groups. What I am finding is that when I set my code for one
particular groups it affects the other groups. So my question is,
will I have to use the If faq_IsUserInGroup statement for all of my
groups?

For example,

I have 7 controls on my form.

I have the Admin, Manufacturing, and Regulatory group.

I have set my coding as follows:
If faq_IsUserInGroup("Admins", CurrentUser) Then
Me.Add_Review_Employee_Information.Visible .... (For the admin
group, my intention is to make all the controls visibile - Am I
going in the right direction?)

If faq_IsUserInGroup("Regulatory", CurrentUser) Then
Me.Add_Review_Employee_Information.Visible = True
Me.cmdViewTraining.Visible = True
Me.cmdReviseSops.Visible = True
Me.cmdAddBpr.Visible = True
Me.cmdRunReports.Visible = True
Me.cmdAddLotNumber.Visible = True
Me.cmdExit.Visible = True
Else
Me.cmdAddLotNumber.Visible = False
End If

If faq_IsUserInGroup("Manufacturing", CurrentUser) Then
Me.cmdRunReports.Visible = True
Me.cmdAddLotNumber.Visible = True
Me.cmdExit = True
Else
Me.Add_Review_Employee_Information.Visible = False
Me.cmdAddBpr.Visible = False
Me.cmdReviseSops.Visible = False
Me.cmdViewTraining.Visible = False
End If




End Sub


.

Quantcast