Hi -
I can't seem to choose the keywords to find an answer to this query -
or maybe it's not in the posts.

I have a database where the Buyers enter their Orders and then
Accounts Payable posts freight and invoices against the orders (when
the bills come in). Both groups run reports, but a very different
universe of reports.

I don't want the Buyers to see or be able to post freight or
invoices. I'd prefer AP not be able to see the data entry screens, so
the buyers don't try to make AP do their entry for them. BUT that is
my backup plan, if needed.

All my data is in a Backend DB and the app in a front end. I'd like
Buyers to see their choices and their report choices when they open
the DB, and AP see theirs. Do I have to create 2 MDEs for that? One
for each group? I worry, since there is some overlap - Update Order,
for example, will be accessed by both groups.

Can this be done? And if so, how? I'm about a level 2 (out of 5 - 5
being the highest) when it comes to writing my own code. I'm much
better when it comes to reading someone else's and adapting it, if I
understand the objective.

Thanks -
Sara

If the users log into the DB then have one form open for one set of users
and a second form open for another set of users. You could also use environ
("username") to check their PC longin name.

"sara" <saraqpost@yahoo.comwrote in message
news:1176392122.565859.44880@o5g2000hsb.googlegrou ps.com...

Hi -
I can't seem to choose the keywords to find an answer to this query -
or maybe it's not in the posts.
>
I have a database where the Buyers enter their Orders and then
Accounts Payable posts freight and invoices against the orders (when
the bills come in). Both groups run reports, but a very different
universe of reports.
>
I don't want the Buyers to see or be able to post freight or
invoices. I'd prefer AP not be able to see the data entry screens, so
the buyers don't try to make AP do their entry for them. BUT that is
my backup plan, if needed.
>
All my data is in a Backend DB and the app in a front end. I'd like
Buyers to see their choices and their report choices when they open
the DB, and AP see theirs. Do I have to create 2 MDEs for that? One
for each group? I worry, since there is some overlap - Update Order,
for example, will be accessed by both groups.
>
Can this be done? And if so, how? I'm about a level 2 (out of 5 - 5
being the highest) when it comes to writing my own code. I'm much
better when it comes to reading someone else's and adapting it, if I
understand the objective.
>
Thanks -
Sara
>

On Apr 12, 5:53 pm, "Scott" <scott.n.j...@ns.sympatico.cawrote:

If the users log into the DB then have one form open for one set of users
and a second form open for another set of users. You could also use environ
("username") to check their PC longin name.
>
"sara" <saraqp...@yahoo.comwrote in message
>
news:1176392122.565859.44880@o5g2000hsb.googlegrou ps.com...
>
>
>

>

>

>

>

>

>
- Show quoted text -

Thanks, Scott. I'm a little happy with your response - only insofar
as I couldn't find a solution within Access, and there isn't one! I
will create 2 forms and figure out how to get the right one(s) opened.

Thanks
Sara

On Apr 13, 8:44 am, "sara" <saraqp...@yahoo.comwrote:

On Apr 12, 5:53 pm, "Scott" <scott.n.j...@ns.sympatico.cawrote:
>
>
>
>
>

>

>

>

>

>

>

>

>

>

>
Thanks, Scott. I'm a little happy with your response - only insofar
as I couldn't find a solution within Access, and there isn't one! I
will create 2 forms and figure out how to get the right one(s) opened.
>
Thanks
Sara- Hide quoted text -
>
- Show quoted text -

I use Access security for this. I produce different groups and then
use the following function to open custom menu forms for that group
(from a Startup form, I issue Docmd.Openform GroupMenu):

Function GroupMenu() As String

If IsUserInGroup(CurrentUser(), "Admins") Then GroupMenu =
"frmOutsourceDB0"
If IsUserInGroup(CurrentUser(), "MetEdit") Then GroupMenu =
"frmOutsourceDB1"
If IsUserInGroup(CurrentUser(), "MetRead") Then GroupMenu =
"frmOutsourceDB1"
If IsUserInGroup(CurrentUser(), "ShipRead") Then GroupMenu =
"frmOutsourceDB2"
If IsUserInGroup(CurrentUser(), "ShipEdit") Then GroupMenu =
"frmOutsourceDB2"
If IsUserInGroup(CurrentUser(), "ProdEdit") Then GroupMenu =
"frmOutsourceDB3"
If IsUserInGroup(CurrentUser(), "ProdRead") Then GroupMenu =
"frmOutsourceDB3"

End Function

Function IsUserInGroup(strUser As String, strGroup As String) As
Boolean
'Returns True if the user is in the group.
'Example: IsUserInGroup(CurrentUser(), "Admins")
Dim wk As Workspace
Dim grx As Groups
Dim grp As Group
Dim usx As Users
Dim usr As User

Set grx = DBEngine(0).Groups
For Each grp In grx
If grp.Name = strGroup Then
Set usx = grp.Users
For Each usr In usx
If usr.Name = strUser Then
IsUserInGroup = True
Exit For
End If
Next
End If
Next

Set usr = Nothing
Set usx = Nothing
Set grp = Nothing
Set grx = Nothing
End Function

I also use Access security to limit the permissions on each group.
If a group member tries to open a form, table, whatever, that they
shouldn't, they get a gentle warning that they don't have permission
for that. Remember, Access security is not airtight, so only use it
for simple application management needs.

On Apr 13, 9:15 am, rizzy...@neo.rr.com wrote:

On Apr 13, 8:44 am, "sara" <saraqp...@yahoo.comwrote:
>
>
>
>
>

>

>

>

>

>

>

>

>

>

>

>

>

>

>
I use Access security for this. I produce different groups and then
use the following function to open custom menu forms for that group
(from a Startup form, I issue Docmd.Openform GroupMenu):
>
Function GroupMenu() As String
>
If IsUserInGroup(CurrentUser(), "Admins") Then GroupMenu =
"frmOutsourceDB0"
If IsUserInGroup(CurrentUser(), "MetEdit") Then GroupMenu =
"frmOutsourceDB1"
If IsUserInGroup(CurrentUser(), "MetRead") Then GroupMenu =
"frmOutsourceDB1"
If IsUserInGroup(CurrentUser(), "ShipRead") Then GroupMenu =
"frmOutsourceDB2"
If IsUserInGroup(CurrentUser(), "ShipEdit") Then GroupMenu =
"frmOutsourceDB2"
If IsUserInGroup(CurrentUser(), "ProdEdit") Then GroupMenu =
"frmOutsourceDB3"
If IsUserInGroup(CurrentUser(), "ProdRead") Then GroupMenu =
"frmOutsourceDB3"
>
End Function
>
Function IsUserInGroup(strUser As String, strGroup As String) As
Boolean
'Returns True if the user is in the group.
'Example: IsUserInGroup(CurrentUser(), "Admins")
Dim wk As Workspace
Dim grx As Groups
Dim grp As Group
Dim usx As Users
Dim usr As User
>
Set grx = DBEngine(0).Groups
For Each grp In grx
If grp.Name = strGroup Then
Set usx = grp.Users
For Each usr In usx
If usr.Name = strUser Then
IsUserInGroup = True
Exit For
End If
Next
End If
Next
>
Set usr = Nothing
Set usx = Nothing
Set grp = Nothing
Set grx = Nothing
End Function
>
I also use Access security to limit the permissions on each group.
If a group member tries to open a form, table, whatever, that they
shouldn't, they get a gentle warning that they don't have permission
for that. Remember, Access security is not airtight, so only use it
for simple application management needs.- Hide quoted text -
>
- Show quoted text -

This is interesting....I will take a look at this and try to apply. I
have always been told to stay away from Access security, but given
your explanation - and warning!! - this seems like it might be a good
application of the Access security.

Thanks. I'll go now and try to figure this out and apply it.

Sara