Office: (Office 2016) Aktuelle User in einer Tabelle anzeigen

TopFlop · 19. November 2020

Hallo zusammen,
ich weiß nicht weiter bzw. wo ich anfangen soll.

Ich würde gerne die aktuellen User vom Access in einer Tabelle aufzählen lassen.
Ich denke, dass ich mit dem Zeitgeber arbeiten muss, aber wie der Code aussieht habe ich keine Ahnung.

Ich bin sooo verloren gerade oder durch den Wind ich habe keine Schimmer wo ich anfangen soll beim Code.

Es gibt natürlich keinen Login bei der Datenbank^^

Gruß TopFlop

:)

Fred_BS · 21. November 2020

Hallo,

eine spontane Idee: Da im Mehrbenutzerbetrieb jeder sein eigenes FE haben muss, kann beim Laden des Startformulars ein Eintrag in einer BE-Tabelle vorgenommen werden. Beim Schließen wird der dann wieder gelöscht. Dann sollte man aber sonstige Ausgänge verschließen.

Gruß
Fred

ebs17 · 21. November 2020

Es gibt natürlich keinen Login bei der Datenbank
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielleicht gibt es eine brauchbare Windowsanmeldung. Diese könnte man auswerten.

phoebus92 · 21. November 2020

ungefähr so, TopFlop (bitte an die DSGVO denken):

Beim Laden der DB
Code:

Private Sub Form_Load()
Dim SQLlog As String
TempVars.Add "globalerBearbeiter", 0
TempVars("globalerBearbeiter") = fOSUserName

SQLlog = "INSERT INTO tabUserAnwesend " & "(Username, Zeitpunkt, LogArt) " & "VALUES ('" & TempVars("globalerBearbeiter").Value & "', now, 'Zutritt')"
CurrentDb.Execute SQLlog
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beim Schliessen der DB
Code:

Private Sub btnQuit_Click()
Dim SQLlog As String
SQLlog = "INSERT INTO tabUserAnwesend " & "(Username, Zeitpunkt, Logart) " & "VALUES ('" & TempVars("globalerBearbeiter").Value & "', now, 'Austritt')"
CurrentDb.Execute SQLlog
DoCmd.Quit
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In einem allgemeinen Modul 'mod_UserErmitteln'
Code:

Option Compare Database
Option Explicit

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

Function fOSUserName() 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
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die TempVar kann man auch direkt mit fOSUserName im SQL-String ersetzen.

Office: (Office 2016) Aktuelle User in einer Tabelle anzeigen

Aktuelle User in einer Tabelle anzeigen

Aktuelle User in einer Tabelle anzeigen

Aktuelle User in einer Tabelle anzeigen

Aktuelle User in einer Tabelle anzeigen - Similar Threads - Aktuelle User Tabelle

Nur aktuelles Jahr in Abfrage auslesen

Aktuelles Datum und aktuelle Uhrzeit (System) einfügen wenn Änderungen in einer Zelle stattfinden

Bedingte Formatierung aktuelles Jahr Zelle Färben

Alle Spalten rechts von der aktuellen Zelle addieren

Automatischer Import der aktuellsten CSV

Makro als Addin auf aktuelle Arbeitsmappe anwenden

Datum und aktueller User bei Speichern in Zelle