Determining username

[merwyns]

I have some students that want to create an Access application (with a DB2 backend) that will automatically determine the network login of the user, enforce security within the application, and automatically fill in a "last maintenance" field with the username. Of course they don't want the user to have to log in to the application, they want it to be done automatically. To the best of my knowledge, this is not possible. If anyone out there has any hints or advice, I would most certainly appreciate it.

Merrie

 

[thegameoflife]

See if this will help you...

Private Declare Function getComputerName _
   Lib "kernel32" Alias "GetComputerNameA" _
   (ByVal sBuffer As String, lSize As Long) As Long

Public Function f_computerName()
    Dim PCName As String
    NameOfPC PCName
    f_computerName = PCName
End Function

Public Function NameOfPC(MachineName As String) As Long
    Dim NameSize As Long
    Dim x As Long
    MachineName = Space$(16)
    NameSize = Len(MachineName)
    getComputerName MachineName, NameSize
End Function