User mit VBA ermitteln die auf DB zugreiffen
Hallo zusammen!
Ich möchte gerne per VBA herausfinden meine Datenbank geöffnet hat. Wenn möglich, möchte ich die Windows Usernames mit dieser Funktion herausfinden, wenn dies nicht möglich ist, andere Angaben über Anzahl der Zugriffe oder IP-Adressen der Zugriffe.
Vielen Dank für die Unterstützung!
Gruss
Severin
Ich möchte gerne per VBA herausfinden meine Datenbank geöffnet hat. Wenn möglich, möchte ich die Windows Usernames mit dieser Funktion herausfinden, wenn dies nicht möglich ist, andere Angaben über Anzahl der Zugriffe oder IP-Adressen der Zugriffe.
Vielen Dank für die Unterstützung!
Gruss
Severin
Please also mark the comments that contributed to the solution of the article
Content-Key: 52310
Url: https://administrator.de/contentid/52310
Printed on: April 25, 2024 at 02:04 o'clock
2 Comments
Latest comment
ein neues modul erstellen
und dann kannst du in einem ntuser() darauf zugreifen. Dieser code funktioniert ab office 97
Grüße
TomTom
Option Compare Database
Option Explicit
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function NTUSER() As String
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If (lngX > 0) Then
NTUSER = Left$(strUserName, lngLen - 1)
Else
NTUSER = vbNullString
End If
'MsgBox NTUser
End Function
und dann kannst du in einem ntuser() darauf zugreifen. Dieser code funktioniert ab office 97
Grüße
TomTom