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