Hvem åbner databasen.

tænker du på hvem der lige har logget sig ind eller??

Ja! Noget hen af kurrent user på maskinen.

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Dim lBufSiz As Long
Dim sBuf As String
 
  sBuf = String(255, 0)
  lBufSiz = 255
  If GetComputerName(sBuf, lBufSiz) Then
    sGetComputerName = Left$(sBuf, lBufSiz)
  Else
    sGetComputerName = Null
  End If

Place the code in a module and then call sFet

There was an error there
Public Function sGetUserName() As String
Dim lBufSiz As Long
Dim sBuf As String
 
  sBuf = String$(255, 0)
  lBufSiz = 255
  If GetUserName(sBuf, lBufSiz) Then
    sGetUserName = UCase$(Left$(sBuf, lBufSiz - 1))
  Else
    sGetUserName = Null
  End If
  End Function

>>Terry

I don'n now what sFet is?

How do i put the resoult in a textbox or label on a form?

Hello terry!

Now i get it. It's works nice.

Tank You very much

jimse