User automatisch invoeren?

• 

  Harm Lommers

  19-10-2004 15:21

  Hallo,

  Ik heb een simpele query gemaakt welke bij activatie de datum in een bepaalde cel invoert, met de SetValue - Now() expressie. Hetzelfde wil ik laten gebeuren met de gebruikersnaam, waarmee men inlogt op de pc. Ik heb de SetValue - CurrentUser() expressie geprobeerd, maar dan pakt hij een naam uit access zelf (admin).

  Mijn vraag is dus:

  Hoe kan ik Access de inlognaam van de gebruikersaccount van Windows (2000!) laten opzoeken?

  Of kan iemand mij uitleggen of en hoe het mogelijk is om bij het openen van een database de gebruiker zich identificeert, zodat deze naam gebruikt zal worden?

  Ik hoop dat ik duidelijk genoeg ben, anders zal ik op jullie vragen zsm antwoord geven.

  Groeten Harm Lommers
• 

  Eric

  19-10-2004 16:21

  Maak een module aan en zet onderstaande API-call en routine in de module

  Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” _

  (ByVal lpBuffer As String, nSize As Long) As Long

  '============================================================'Function GETCURUSER() As String

  '

  'Get current users name

  '

  'GETCURUSER Returns the login-name

  '============================================================Function GETCURUSER() As String

  Dim sBuffer As String

  Dim lsize As Long

  Dim ret As String

  sBuffer = Space$(255)

  lsize = Len(sBuffer)

  Call GetUserName(sBuffer, lsize)

  If lsize > 0 Then

  ret = Trim$(Left$(sBuffer, lsize - 1))

  End If

  GETCURUSER = UCase$(ret)

  End Function

  In je formulier bij het event BeforeUpdate zet je het volgende :

  Private Sub Form_BeforeUpdate(Cancel As Integer)

  Me.mijnveldnaam = GETCURUSER

  End Sub

  Me.mijnveldnaam moet je dan wel vervangen door de naam van jouw veld

  dus zoiets als Me.gewijzigddoor = GETCURUSER