Security

[Knight of Nee]

Hi.

Is it possible to lock only one field in a table depending a username supplied when the user is logged in using Access user groups/permissions?.

If not what other solutions are there to solving my problem

Thanks
KON

 

[mdmilner]

Not in a query but yes in a form.

Start out by requiring the user to utilize your custom built forms to open the tables & queries. In the form, set the Locked property of the textbox displaying this particular field to True.

As to the username question - yes. I've never tried to grab it but it simply has to be an available property inside Access (the username logged into the mdb). Peek thru the object browser. You can put a check into the forms open/load event that grabs the currently logged in name and then does the above action based on what it finds.

Mike

 

[Corticus]

The following API call will return the logged in user:

Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

Private Const NO_ERROR = 0
Private Const ERROR_NOT_CONNECTED = 2250&
Private Const ERROR_MORE_DATA = 234
Private Const ERROR_NO_NETWORK = 1222&
Private Const ERROR_EXTENDED_ERROR = 1208&
Private Const ERROR_NO_NET_OR_BAD_PATH = 1203&

Function WinUsername() As String

    Dim strBuf As String, lngUser As Long, strUn As String
    
    strBuf = Space$(255) 'Clear buffer
    
    lngUser = WNetGetUser("", strBuf, 255)
    
    If lngUser = NO_ERROR Then
        strUn = Left(strBuf, InStr(strBuf, vbNullChar) - 1)
        WinUsername = strUn
    Else
        WinUsername = "Error :" & lngUser
    End If

End Function

Hope this helps,

 

[Knight of Nee]

cheers that could prove useful

 

[mdmilner]

Corticus,

That grabs the userid logged into the network/workstation.
He's asking for the userid logged into the mdb using the Access Security features.

I just now dug this up over on:
http://support.microsoft.com/default.aspx?scid=/support/access/content/secfaq.asp

Seems to do the job.

  Function User_in_mdb()
      Dim ws As Workspace

      Set ws = DBEngine.Workspaces(0)
      Debug.Print ws.UserName

   End Function

Mike