TKSoft-Online

Private Sub Form_Load()
 
Dim rst As ADODB.Recordset
Dim AnzOnline As Byte
Dim Userlist As String
Dim strpath As String
 
Dim arrUserList As Variant
Dim n, i As Long
 
strpath = CurrentDb.Name
arrUserList = DBUsers(strpath)
 
i = -1
On Error Resume Next
i = UBound(arrUserList, 2)
On Error GoTo 0
If i > -1 Then
Me!AnzOnline = i + 1
  For n = 0 To i
Me!Userlist = UCase(arrUserList(0, n))
        'Set rst = CurrentProject.Connection.Execute( _
    \"Select * FROM tab_DBUser WHERE TH_User = CurrentUser()\"«»)'
    'Me!Userlist = UCase(rst(\"DB_User\"«»))'
            Next n
    End If
    Me!txtMDB = CurrentDb.Name
End Sub

 
Private Sub Form_Load()
    Dim sCurrentUser As String, sSource As String
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
 
    sCurrentUser = Application.CurrentUser
 
    sSource = \"SELECT tbl_User.User, tbl_User.Login FROM tbl_User WHERE \" & _
              \"(((tbl_User.User)='\" & sCurrentUser & \"'));\"
    Set cnn = CurrentProject.Connection
    rst.Open sSource, cnn, adOpenDynamic, adLockOptimistic
    rst!Login = True
    rst.Update
    rst.Close
    lst_User.Requery
End Sub
 

 
Private Sub Form_Timer()
    lst_User.Requery
End Sub
 

 
Private Sub Form_Unload(Cancel As Integer)
    If Me!chk_Close = False Then Cancel = True
End Sub
 

 
Private Sub cmd_Close_Click()
    Dim sCurrentUser As String, sSource As String
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
 
    sCurrentUser = Application.CurrentUser
    sSource = \"SELECT tbl_User.User, tbl_User.Login FROM tbl_User WHERE \" & _
              \"(((tbl_User.User)='\" & sCurrentUser & \"'));\"
    Set cnn = CurrentProject.Connection
    rst.Open sSource, cnn, adOpenDynamic, adLockOptimistic
    rst!Login = False
    rst.Update
    rst.Close
 
    Me!chk_Close = True
    DoCmd.Quit
End Sub