"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
>

> 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

"Joan Wild" wrote:

> 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
>
>
>

"Joan Wild" wrote:

> 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
>
>
>

> Does this mean I that I do not have to write some sort of procedure
> for the two other groups ...Being somewhat repetitive.?
>
> "Joan Wild" wrote:
>
>> 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