Es ist eine neue, verbesserte
Version 3.0
zum Download verfügbar.

WerIstDrin? Angemeldete Benutzer anzeigen

Mit ein paar Zeilen Code und drei Abfragen können Sie leicht feststellen, wer gerade
eine Ihrer Datenbankanwendungen geöffnet hat. Damit können Sie diese Benutzer gezielt ansprechen, wenn Sie die Datenbank (z. B. für Änderungen) kurz schließen und exklusiv öffnen müssen.

Wer ist drin? Angemeldete Benutzer anzeigen

Um das Musterformular nutzen zu können, müssen Sie nur dafür sorgen, dass beim Öffnen der Datenbank die Benutzerdaten in die User-Tabelle eingetragen werden und beim Schließen auch wieder entfernt werden.

Das mache ich mit einem ständig geöffneten Formular (je nach Anwendung sichtbar oder versteckt), in dem beim Öffnen und Schließen die Abfragen ausgeführt werden. Um die Datenbank nicht aufzublähen, werden die Einträge nur beim ersten Anmelden eingefügt und dann jeweils entsprechend geändert.

Code-Schnipsel

Public Sub sLogOn()
'--------------------------------------------------------------------------------
' Benutzer auf Aktiv setzen oder neu einfügen ("ON")
'--------------------------------------------------------------------------------
   With CurrentDb
      .Execute "qryUserOn"
      If .RecordsAffected = 0 Then
         .Execute "qryUserIns"
      End If
   End With
   Me!fsubUser.Form.Requery
End Sub

Public Sub sLogOff()
'--------------------------------------------------------------------------------
' Benutzer auf Inaktiv setzen ("OFF")
'--------------------------------------------------------------------------------
   CurrentDb.Execute "qryUserOff"
   Me!fsubUser.Form.Requery
End Sub

Mit ein paar Anpassungen an der Tabelle und den Abfragen können Sie auch weitere Daten (z.B. den Anmeldezeitpunkt) speichern. Aber denken Sie daran: In vielen Firmen ist die Erhebung und Speicherung solcher Daten mitbestimmungspflichtig!

Download

WerIstDrin für Access 2016 (und neuer)
(Datei: WerIstDrin.zip, ca. 60 KB)

Bitte denken Sie daran, dass Sie die Datei(en) nach dem Download Zulassen müssen.
Hier steht, warum und wie.