Field-level Permissions

[charleythomas]

Hi,

Allen Browne's "Field-level Permissions in Microsoft Access" (http://
allenbrowne.com/ser-55.html) is an excellent sample db i was looking
for a long time. Am using Access2000. I have multiple databases for
which i require different field level permissions. I will put my
question simple. Does anyone know how to modify this db in such a way
that i can specify the Windows User Name against the table fields to
block or unblock. I have an HR database used by approximately 15
users. There is a form with 7 tabs and hundreads of fields in the form
should have different Field-level Permissions according to users

Regards,

Charley

[Keith Wilby]

Re: Field-level Permissions

"charleytho mas" <charleythomas@ gmail.comwrote in message
news:1173341743 .200417.218370@ 30g2000cwc.goog legroups.com...

Hi,
>
Allen Browne's "Field-level Permissions in Microsoft Access" (http://
allenbrowne.com/ser-55.html) is an excellent sample db i was looking
for a long time. Am using Access2000. I have multiple databases for
which i require different field level permissions. I will put my
question simple. Does anyone know how to modify this db in such a way
that i can specify the Windows User Name against the table fields to
block or unblock. I have an HR database used by approximately 15
users. There is a form with 7 tabs and hundreads of fields in the form
should have different Field-level Permissions according to users
>
Regards,
>
Charley
>

Store the user's network logon ID using this function to grab it:

' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName( strUserName, lngLen)
If (lngX 0) Then
fOSUserName = Left$(strUserNa me, lngLen - 1)
Else
fOSUserName = vbNullString
End If
End Function

You can also grab their machine name:

' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Function fOSMachineName( ) As String
'Returns the computername
Dim lngLen As Long, lngX As Long
Dim strCompName As String
lngLen = 16
strCompName = String$(lngLen, 0)
lngX = apiGetComputerN ame(strCompName , lngLen)
If lngX <0 Then
fOSMachineName = Left$(strCompNa me, lngLen)
Else
fOSMachineName = ""
End If
End Function

HTH - Keith.

https://www.keithwilby.com

[charleythomas]

Re: Field-level Permissions

On Mar 8, 12:50 pm, "Keith Wilby" <h...@there.com wrote:

"charleytho mas" <charleytho...@ gmail.comwrote in message
>
news:1173341743 .200417.218370@ 30g2000cwc.goog legroups.com...
>
>
>

Hi,

>

Allen Browne's "Field-levelPermission sin Microsoft Access" (http://
allenbrowne.com/ser-55.html) is an excellent sample db i was looking
for a long time. Am using Access2000. I have multiple databases for
which i require differentfieldl evelpermissions . I will put my
question simple. Does anyone know how to modify this db in such a way
that i can specify the Windows User Name against the table fields to
block or unblock. I have an HR database used by approximately 15
users. There is a form with 7 tabs and hundreads of fields in the form
should have differentField-levelPermission saccording to users

>

Regards,

>

Charley

>
Store the user's network logon ID using this function to grab it:
>
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName( strUserName, lngLen)
If (lngX 0) Then
fOSUserName = Left$(strUserNa me, lngLen - 1)
Else
fOSUserName = vbNullString
End If
End Function
>
You can also grab their machine name:
>
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Function fOSMachineName( ) As String
'Returns the computername
Dim lngLen As Long, lngX As Long
Dim strCompName As String
lngLen = 16
strCompName = String$(lngLen, 0)
lngX = apiGetComputerN ame(strCompName , lngLen)
If lngX <0 Then
fOSMachineName = Left$(strCompNa me, lngLen)
Else
fOSMachineName = ""
End If
End Function
>
HTH - Keith.www.keithwilby.com

Keith

Thanks a lot for sparing your time. Let me have a look and hope this
will solve the problem.

Regards,

Charley