Office: Auslesen Windowsbenutzer in einer Datenbank

Hallo zusammen,
wie kann ich auslesen, welcher Windows Benutzer gerade aktuell in einer Datenbank ist?
Geht das?
Danke
Matthias

 

Hallo,

Code:

Benutzer = Environ("USERNAME")

 

Hallo,
in diesem Zusammenhang habe ich hier in einer DB eine Funktion gefunden, die sämtliche zur Zeit auf das Backend zugreifende Rechner aus der LDB auflistet. Kann man sicherlich noch für seine Anforderungen anpassen.
Gruß
Doming

Code:

Public Function WhosOn() As String
On Error GoTo Err_WhosOn
Dim iLDBFile As Integer, iStart As Integer
Dim iLOF As Integer, i As Integer
Dim sPath As String, X As String
Dim sLogStr As String, sLogins As String
Dim sMach As String, sUser As String
Dim rUser As UserRec
Dim dbCurrent As Database
Set dbCurrent = DBEngine.Workspaces(0).Databases(0)
sPath = dbCurrent.Name
dbCurrent.Close
   sPath = "c:\Test\Backend.ldb"
   X = Dir(sPath)
   iStart = 1
   iLDBFile = FreeFile
   Open sPath For Binary Access Read Shared As iLDBFile
   iLOF = LOF(iLDBFile)
   Do While Not EOF(iLDBFile)
      Get iLDBFile, , rUser
      With rUser
         i = 1
         sMach = ""
         While .bMach(i) <> 0
            sMach = sMach & Chr(.bMach(i))
            i = i + 1
         Wend
         i = 1
         sUser = ""
         While .bUser(i) <> 0
            sUser = sUser & Chr(.bUser(i))
            i = i + 1
         Wend
      End With
      sLogStr = sMach
      If InStr(sLogins, sLogStr) = 0 Then
         sLogins = sLogins & sLogStr & ";"
      End If
      iStart = iStart + 64
   Loop
   Close iLDBFile
   Debug.Print sLogins
   WhosOn = sLogins
   Set dbCurrent = Nothing
Exit_WhosOn:
   Exit Function
Err_WhosOn:
   If Err = 68 Then
      MsgBox "Couldn't populate the list", 48, "No LDB File"
   Else
      MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
      Close iLDBFile
   End If
   Resume Exit_WhosOn
End Function

 

@andyfau: diese Funktion habe ich auch im Einsatz, da bekomme ich es aber nicht hin, dass er mir alle User die aktuell in einer Datenbank sind,anzeigt.
@Doming: Die Funktion sieht gut aus, allerdings bekomme ich einen Fehler in der Zeile "
Dim rUser As UserRec", mein System kennt UserRec nicht

 

Moin,
jo, stimmt, da ich die Funktion so aus der Datenbank gefischt habe, fehlte

Code:

Private Type UserRec
   bMach(1 To 32) As Byte
   bUser(1 To 32) As Byte
End Type

 

@MKeil
Lege eine Tabelle im Backend an "AktNutzer" mit NutzName as string und aktiv as boolean. Diese kannst Du nebenbei bemerkt, dann auch als Berechtigungstabelle nutzen.
Immer wenn ein ein Nutzer sich anmeldet, schreibst Du bei ihm aktiv auf yes. Beim Schließen der DB (Frontend) eines Nutzers schreibst Du vorher aktiv auf no und machst dann erst den Quit.
Um zu sehen, wer gerade aktiv ist, brauchst Du Dir dann nur jeweils die Tabelle im Backend anzuschauen.