User Name

arholly · February 8th, 2007, 06:38 PM

Hello:

Okay, I'm trying to pull the user login and found some code which I thought would do it, but ain't.

My code is (declared in a module):

Code:

Option Compare Database

    Private Declare Function api_GetUserName Lib "advapi32.dll" Alias _
          "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
    Private Declare Function api_GetComputerName Lib "Kernel32" Alias _
          "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

    Public Function CNames(UserOrComputer As Byte) As String
    'UserorComputer; 1=User, anything else = computer
    Dim NBuffer As String
    Dim Buffsize As Long
    Dim wOK As Long

    Buffsize = 256
    NBuffer = Space$(Buffsize)

    If UserOrComputer = 1 Then
        wOK = api_GetUserName(NBuffer, Buffsize)
         CNames = Trim$(NBuffer)
    Else
        wOK = api_GetComputerName(NBuffer, Buffsize)
        CNames = Trim$(NBuffer)
    End If
End Function

I then am testing in a simple form with:

Code:

Private Sub Form_Open(Cancel As Integer)

If GetUserNameA = "" Then GetUserNameA = "'Houston, we have a problem'"

If GetComputerNameA = "" Then GetComputerNameA = "VOID"

MsgBox "Your user name is " & GetUserNameA & " and your computer names is " & GetComputerNameA & "."
End Sub

However, I'm getting the houston we have a problem and void instead of the computer name and user name. Any thoughts?

Thanks in advance.

Arholly

kuznickic · February 9th, 2007, 03:02 AM

Yes I would like to do the same except have this fire when the database is opened so that the database can check whether that person has the appropriate privileges to access the database. I can't figure it out either and am not that good with making API calls.

mmcdonal · February 9th, 2007, 08:42 AM

I use these functions (in a module) to get the same information:

Function sU()
sU = (Environ$("Username"))
End Function

Function sWS()
sWS = (Environ$("Computername"))
End Function

Then when I need the Username or Workstation name, I just call sU() and sWS().

HTH

mmcdonal

arholly · February 9th, 2007, 10:19 AM

Thanks. That works a lot better than what I was using. I was wondering something though. I want to log when a user opens the DB. I can do it through running a RunSQL Macro when the DB opens, but it asks the user if it is ok to append to the table. I don't want it to ask, I just want it to do it and not have the user know. How can I do this?

Thanks again for all of your help.

Arholly

mmcdonal · February 9th, 2007, 10:46 AM

You can disable those warnings with:

DoCmd.SetWarnings False

and reenable them with:

DoCmd.SetWarnings True

Put this before and after the code that inserts the login. I use this method too, but I do it with ADO so there are no warnings.

I also put the logout date and time in with the main form's On Close event.

HTH

BTW - what's a macro? =)

mmcdonal