[Resolvido]Mostrar todos os usuários logados no Back End

Olá pessoal,

possuo um sistema (ACCESS 2007) de controle Back End/Front End, e as vezes preciso fazer algumas alterações no Back End, mas não consigo por haver usuários conectados.
Gostaria de pode visualizar todos os usuários logados (Nome do usuário do micro; nome do micro; IP co micro) no Back End no momento para que eu possa contata-los ou até mesmo desconecta-los.

Ví um exemplo postado por Vieirasoft no Forum de um formulário que puxa o nome do micro, mas ao tentar importar para o meu banco, ou mesmo para um banco novo, ocorre erro (LINK: http://dl.dropbox.com/u/8157744/ABC.rar "Retira o User e a Máquina")

Desde já agradeço e conto com a colaboração do Forum.

Diego

O link está a funcionar. Era isso?

Bom dia amigo,
eu consegui baixar o exemplo e roda normalmente, mas ao tentar importar o Form (pois o exemplo só possui 01 formulário) para um novo banco ou outro já em uso, ocorre erro e não funciona.

Você Poderia fazer um pequeno teste?
1 - cria um banco novo e importa esse formulário do exemplo e tente rodar, aqui comigo está dando erro logo no início como mostrado no anexo desta mensagem.
E este exemplo mostrará todos os usuários logados?

Obrigado pela pronta resposta.

Abraços
Diego

Amigão

Se você tem o 7, temos que pedir a outra pessoa para fazer o teste. Eu uso o XP.

Não estou usando o 7, também uso o XP, apenas disse que uso o Access 2007 a mesma versão do exemplo que vc nos indicou.
Mesmo assim Obrigado.

Então vou fazer aqui o teste.

Não é para importar o form.Você tem que fazer assim:

1- Criar 2 caixas de texto independentes no form desejado

2- Importar os 3 Módulos para dentro da sua aplicação.

3- Valor pre-definido na 1ª caixa.....=fOSMachineName()

4- Valor pre-definido na 1ª caixa.....=fOSUserName()

Me corrijam caso eu esteja errado, mas me parece que o amigo quer ter uma lista dos frontends logados na rede em um formulário do "frontend principal". Se for isso, uma dica poderia ser colocar uma tabela no backend aonde seja inserido o usuário e o nome da máquina no momento que o mesmo logar, e que seja apagado no momento que o mesmo deslogar. Cada frontend pode ter um id único para o campo código da tabela. Assim o amigo poderá ter uma lista dos usuários logados. Que acham?

Sim, seria ótimo esta opção, já que possuo controle de acesso por usuários, mas como faço para ao logar ele gravar e ao deslogar apagar seu status na tabela?

Com a permissão do mestre Vieira, você poderia usar o exemplo dele para identificar usuário e máquina e então gravar na tabela assim:

CurrentDb.Execute "INSERT INTO tblLoggedUsers(Usuário,Máquina) VALUES('" & Me.txtUser & "', '" & Me.txtPC & "')"

Sendo tblLoggedUsers o nome da tabela, Usuário o nome do campo da tabela aonde ficará gravado o usuário, Máquina o nome do campo da tabela aonde ficará gravado o nome do computador, txtUser o nome do campo do formulário aonde está o nome do usuário e txtPC o nome do campo do formulário aonde está o nome do computador.
Para excluir pode colocar no evento "Ao sair" do formulário principal:

CurrentDb.Execute "DELETE * FROM tblLoggedUsers WHERE Usuário='" & Me.txtUser & "'"

No seu formulário aonde ficará a lista dos usuários logados, precisará ser definida uma atualização de tempos em tempos ou um botão com um Me.Refresh para atualizar a lista.

Faltou o resolvido

Prezados,
peço desculpas pela demora, estava envolvido em um curso da Empresa e fique totalmente desligado do Programa.

Bom,
voltando ao assunto eu não consigo entender, devido a minha falta de experiência, como fazer para mostrar o nome do micro que está logado, pois já possuo "nome do usuário", "IP da Máquina", etc. exceto o "Computer Name" os módulos que o Nobre Vieira comentou numa mensagem anterior, "=fOSMachineName()" eu não consigo encontrar, e no Exemplo dele que anexei no início da questão, funciona normalmente, mas não consigo decifrar.

Fico grato pela ajuda.

Diego

Este exemplo faz isto

http://maximoaccess.forumeiros.com/t2767-monitor-de-conexoes-de-rede

Amigão no caso do ótimo exemplo do mestre Vieira.. Voce importou o form... mas esqueceu-se dfe ativar a referencia
Microsof Active x Data objects....

Apenas isso

Saudações

Harysohn

obrigado pela dica, mas não conseguir ativar o Microsoft ActiveX.
Não sei se é pelo fato de minha conta não ser ADM e sim usuário.

Prezados,
montei uma função, com base numa que possuo e funciona, mas ao tentar inserir os dados em uma tabela, conforme o amigo Criquio me informou, ocorre erro.

Minha Função:
Public Function LoggedUser(frm As Form, Optional bHasInactive As Boolean = False) As Boolean

Dim User_Windows As String
Dim CPU As String
Dim IP_Number As String
Dim USER_DB As String

If UserAccessName = Null Then UserAccessName = 0

User_Windows = GetUserName_TSB (OK funiona corretamente)
CPU = GetNetworkComp (OK funiona corretamente)
IP_Number = DameIpMaquina() (OK funiona corretamente)
USER_DB = UserAccessName (OK funiona corretamente)

DoCmd.SetWarnings False

Aqui ocorre o erro quando aciona o evento, sendo que tenho uma função similar que funciona corretamente.
' DoCmd.RunSQL "INSERT INTO tbl_Logged_user ( Date,Login_name,User_Windows,CPU_Name,IP) SELECT '" & Now() & "','" & USER_DB & "','" & User_Windows & "','" & CPU & "','" & IP_Number & " ';"

Também tentei conforme a dica do Criquio, mas não deu certo:

CurrentDb.Execute "INSERT INTO tbl_Logged_user ( Date,Login_name,User_Windows,CPU_Name,IP)VALUES('" & Now() & "','" & USER_DB & "','" & User_Windows & "','" & CPU & "','" & IP_Number & " ')"

Exit_LoggedUser:
Exit Function

End Function


Evento ao abrir o form principal do FrontEnd.

Private Sub Form_Open(Cancel As Integer)

Call LoggedUser(Me, False)

End Sub


Obrigado a todos pela ajuda.

Amigão você está a utilizar nomes reservados do access, como Date, para uso na tabela.. isso produz erro..

Eperimente renomear o código desta maneira:

CurrentDb.Execute "INSERT INTO tbl_Logged_user ( DataLog,NomeLog,NomeUsuario,NomeCPU,IP)VALUES('" & Now() & "','" & USER_DB & "','" & User_Windows & "','" & CPU & "','" & IP_Number & " ')"

e logicamente renomear os campos na tabela tambem

Fiz um pequeno teste e funcionou

Se puder me envie e a função completa abaixo, que te monto um pequeno exemplo



User_Windows = GetUserName_TSB (OK funiona corretamente)
CPU = GetNetworkComp (OK funiona corretamente)
IP_Number = DameIpMaquina() (OK funiona corretamente)
USER_DB = UserAccessName (OK funiona corretamente)



Saudações

Harysohn,
era isso mesmo, ao alterar os nomes na tabela, funcionou perfeitamente.

Fico assim:

Public Function LoggedUser(frm As Form, Optional bHasInactive As Boolean = False) As Boolean

Dim User_Windows As String
Dim CPU As String
Dim IP_Number As String
Dim USER_DB As String

If UserAccessName = Null Then UserAccessName = 0

User_Windows = GetUserName_TSB
CPU = GetNetworkComp
IP_Number = DameIpMaquina()
USER_DB = UserAccessName

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl_Logged_user ( Data_Acesso,UserAccess,UserWindows,CPU_Name,IP) SELECT '" & Now() & "','" & USER_DB & "','" & User_Windows & "','" & CPU & "','" & IP_Number & " ';"

Exit_LoggedUser:
Exit Function

End Function

Agora tenho que fazer o procedimento para apagar quando o usuário sair do sistema, mas só apagará quando determinado registro estiver em acordo com seu nome de acesso, vou começar com a idéia do Amigo Criquio.

Teria alguma idéia.

Conforme solicitado, segue o código completo de rastreio que montei com a ajuda dos amigos e está funcionando perfeitamente.

oK.. Qualquer coisa apite... Após terminar se colocar um exemplo no fórum... Ficamos agradecidos

Amigão.. nesta função como é conseguida o AccessUserName?

If UserAccessName = Null Then UserAccessName = 0

Eu peguei de um outro exemplo que achei, está incluído no Form de Login, veja abaixo:

Em um Módulo separado (PubicVar) eu declarei:

Public UserAccessName
Public UserAccessPass
Public UserAccessLevel
Public UserAccessID


Frm_Login

Private Sub LoginButton_Click()

Dim TrueName As String
Dim TruePass As String
Dim TrueLevel As String
Dim TrueID As String


' Verifica Usuário existente
Dim Rs As DAO.Recordset
Set Rs = Me.RecordsetClone

Rs.FindFirst "[Name]=" & "'" & Me.LoginName & "' and [Password]=" & "'" & Me.LoginPass & "'"

If Not Rs.NoMatch Then

TrueName = Rs.Fields("Name")
TruePass = Rs.Fields("Password")
TrueLevel = Rs.Fields("Level")
TrueID = Rs.Fields("Matricula")

UserAccessName = TrueName
UserAccessPass = TruePass
UserAccessLevel = TrueLevel
UserAccessID = TrueID

MsgBox "Banco de Dados está liberado para uso."

DoCmd.Close

DoCmd.Restore
DoCmd.OpenForm "BLA"

Else

MsgBox "Invalid Password!"
Me.LoginPass = ""

End If

End Sub

Valeu... eu tenho isso no meu login.. um pouco diferente. mas com o mesmo resultado..

Obrigado

Estou tentando utilizar o código abaixo, mas não consigo que grave o usuário logado:

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
Dim User_Windows As String
Dim CPU As String
Dim IP_Number As String
Dim USER_DB As String
'Dim NomeLog As String


If UserAccessName = Null Then UserAccessName = 0

User_Windows = GetUserName_TSB ' (OK funiona corretamente)
CPU = GetNetworkComp '(OK funiona corretamente)
IP_Number = DameIpMaquina() '(OK funiona corretamente)
USER_DB = UserAccessName

DoCmd.SetWarnings False

'Aqui ocorre o erro quando aciona o evento, sendo que tenho uma função similar que funciona corretamente.
CurrentDb.Execute "INSERT INTO tblLoggedUsers ( DataLog,NomeLog,NomeUsuario,NomeCPU,IP)VALUES('" & Now() & "','" & USER_DB & "','" & User_Windows & "','" & CPU & "','" & IP_Number & " ')"


Exit_LoggedUser:

End Sub

A função USER_DB está te retornando o nome do usuário?

A função não está retornando o nome do usuário.

Aplicou a função conforme o Diego recomndou acima?

Caso não conseguir, poste parte do bd para vermos isto para você.

Cumprimentos

Meu bd grava o usuario logado em um form principal, sendo que não posso alterar meu form de login para adaptar a função do Diego, ou melhor, não sei como fazer. Eu pensei em pegar o usuário do form principal e gravar na tabela de usuários logados, mas não consegui fazer isso.

Donizeth,
o moderador criou um novo tópico para a questão Mostrar todos os usuários logados no Back End (1), pois este já estava encerrado.

Quanto ao seu problema, iremos resolver com certeza!
Mas precisamos saber como é o seu formulário de autenticação, e se ele já grava o usuário de acesso numa variável pública, pois precisará disso para uso em tal aplicação.

Aqui neste Fórum só tem Expert (não me incluindo é claro, mas estou caminhando), e um deles já te deu o 1º suporte que é o nosso amigo Harysohn.

Que possamos dar continuidade no novo tópico criado.

Abraços.

Caro Donizeth, passamos a tentar resolver esta questão no tópico:

http://maximoaccess.forumeiros.com/t4371-mostrar-todos-os-usuarios-logados-no-back-end1

Explique sua duvida novamente la por gentileza.. e nos fale como consegue o nome do usuario logado..

Descreva todos os passos e o que esta a faltar.. se possivel poste parte do BD para vermos...

Eu, tanto como o colega Diego ficaremos felizes em ajudá-lo.

Cumprimentos