title image


Smiley Re: User-Auflistung zu jeder Zeit abfragen
Folgende Function in ein Modul:****************************************Public Function WhosOn() As StringOn 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 sLogins As String Dim sMach As String Dim dbPfad As String Dim rUser As UserRec Dim dbase As DATABASE dbpfad = "C:\MeinDatenbankBackend.mdb" Set dbase = DBEngine.Workspaces(0).OpenDatabase(dbPfad) sPath = dbase.Name sPath = Left(sPath, InStr(1, sPath, ".")) + "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 End With sLogins = sLogins & sMach & ";" iStart = iStart + 64 Loop Close iLDBFile WhosOn = sLoginsdbase.CloseExit_WhosOn: Exit FunctionErr_WhosOn: If Err = 68 Then MsgBox "Kann Benutzerinfos nicht ermitteln", 48, "Keine LDB-Datei vorhanden" Else MsgBox "Fehler: " & Err.Number & vbCrLf & Err.Description Close iLDBFile End If Resume Exit_WhosOnEnd Function****************************************In die Form_Activate-Eigenschaft des Formulars folgenden Code:Me.LoggedOn.RowSource = WhosOn()Einem Listenfeld den Namen LoggedOn geben ... fertigSollte aber nicht zu bierernst genommen werden - im Praxiseinsatz sind einzelne Maschinen bei 10 angemeldeten Usern schon bis zu 4 mal angezeigt worden. Eine schöne Spielerei ist es allemal 8)@chim

jo@chim
IBM Certified Advanced Application Developer - Lotus Notes and Domino 7


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: