MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Usuario Logado em Rede

    avatar
    Bessa_SP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 07/11/2013

    Usuario Logado em Rede Empty Usuario Logado em Rede

    Mensagem  Bessa_SP em 30/5/2019, 12:56

    Bom dia Srs.

    O sistema que desenvolvi foi colocado em um servidor (conexão remota), e existem vários usuários logados nessa rede, agora necessito ter um formulário aonde mostra quais sãos esses usuários que estão logados no sistema, eu vi alguns artigos sobre esse tema mas não encontrei nada que resolvesse a minha questão.
    Alguém tem sugestões, links ou um código para que eu consiga resolver essa questão.

    Obrigado
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Usuario Logado em Rede Empty Re: Usuario Logado em Rede

    Mensagem  caiosouza em 30/5/2019, 18:05

    Bom dia!

    Aqui vai uma ideia:

    Crie uma table de logs:
    Table: tblUserLogs
    Fields: IDuser (INT), LastAcess (DATE/HOUR), Online (BOL).

    Crie uma função de update:
    Código:
    Public Function UpdateLogUser(CurrentIDUser As Integer, CurrentStatus As Boolean)
            CurrentDb.Execute "UPDATE tblUserLogs  SET LastAcess='" & Now() & "', Online=" & CurrentStatus & " WHERE [IDUser]=" & CurrentIDUser  & ")"
    End Function

    Crie uma função de Add para se caso o user não tiver nenhum registro na tblUserLogs:
    Código:
    Public Function AddNewLog(CurrentIDUser As Integer)
            If Dcount("*","tblUserLogs","[IDUser]=" & CurrentIDUser & "") < 1 Then CurrentDb.Execute ("INSERT INTO  tblUserLogs (IDUser, LastAcess, Online) VALUES (" & CurrentIDUser & ", '" & Now() & "', " & CurrentStatus & ")"
    End Function


    Ps: Não compilei, escrevi direto pelo fórum, caso haja algum erro informe.


    .................................................................................
    Caio Souza

    Engenheiro de Software

      Data/hora atual: 24/10/2020, 01:44