I do a similar thing in most of my projects. I have a switchboard table, and then a "switchboard role" table in the back end. This determines which roles get visibility to which switchboard items.
Then I have a "secure switchboard" table in the front end. When the database loads, I grab the windows ID, check the user role, then run a query that updates the front end secure table with each user's menu (based on their role). It's not as precise as doing it at the field level, but it controls what users can/can't see on their switchboard, and locks it down that way.
--- In MS_Access_Professionals@yahoogroups.com, "Bill Mosca" <wrmosca@...> wrote:
>
> I forgot to mention that I also check the user name at startup. If the name isn't in the User table I shut down the application. Permissions on the back end folder is also a good place to start with security. If they can't get to the folder they can't see any data.
>
> Bill
>
> --- In MS_Access_Professionals@yahoogroups.com, "Bill Mosca" <wrmosca@> wrote:
> >
> > Alf
> >
> > I can't give you my code as it would be a security breach, but I can give you some help.
> >
> > Determine the user byl using an API call to get his Windows user name.
> > Option Compare Database
> > Option Explicit
> > Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
> > (ByVal lpBuffer As String, nSize As Long) As Long
> >
> > Public Function CurrentUserName() As String
> > 'Purpose : Returns the network login name
> > 'DateTime : 5/28/2002 09:54
> > 'Author : Bill Mosca
> > Dim lngLen As Long
> > Dim X As Long
> > Dim strUserName As String
> >
> > 'Create buffer
> > strUserName = String(254, Chr$(0))
> > lngLen = Len(strUserName)
> > X = GetUserName(strUserName, lngLen)
> >
> > If (X > 0) Then
> > 'Trucate remaining buffer space from end of string.
> > CurrentUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
> > Else
> > CurrentUserName = vbNullString
> > End If
> >
> > End Function
> >
> >
> > Then keep 2 tables: one with UserID and UserGroup; the other with UserGroup and rank. By getting the rank you can show or hide controls on a form or menu.
> >
> > If you coded the way I do, it would be a simple matter of changing the User Level Security UserGroup for the one in the User table.
> >
> > Regards,
> > Bill Mosca, Founder - MS_Access_Professionals
> > http://www.thatlldoit.com
> > Microsoft Office Access MVP
> > https://mvp.support.microsoft.com/profile/Bill.Mosca
> >
> >
> >
> > --- In MS_Access_Professionals@yahoogroups.com, "Alf" <ohmaid@> wrote:
> > >
> > > Several years ago, I put together an application which allowed various level access, based on the user login. I now find myself having to replicate the process. Does anyone have any code or similar, which will allow me to bolt on to an existing DB, to save H O U R S of repeating myself.... Please.... Thanks...
> > >
> >
>
Tidak ada komentar:
Posting Komentar