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

Donizeth,
você criou a tabela corretamente com os campos informados no exemplo?
Nome da tabela: tbl_Logged_user
Nome dos campos: Data_Acesso / UserAccess / UserWindows / CPU_Name / IP

Siga o último exemplo, o qual foi corrigido o erro deste código, conforme abaixo:

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

Abraços.

Donizeth

Eu movi o tópico para esta sala. Tenham paciência. Coloque a questão de novo, por favor.

percebi somente agora que havia outro topico com a duvida...

Bem creio que o Donizeth estã em boas mãos com o colega Diego.. Qualquer coisa estamos por aqui..

Saudações

Diego,

O código correto é o desta mensagem?

Grava na tabela todos os campos menos o campo UserAccess

Donizeth,

Sim!
Mas conforme dito na mensagem anterior, precisamos saber como é o seu formulário de autenticação, e se ele já grava o usuário de acesso (no meu caso o UserAccess) numa variável pública, pois precisará disso para uso em tal aplicação. Aonde está acontecendo o problema.

E conforme a solicitação do Amigo Harysohn:
"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..."


Pois no meu, eu fiz conforme a seguir:

Criei um Módulo "Público":

Public UserAccessName
Public UserAccessPass
Public UserAccessLevel
Public UserAccessID

Já no formulário de "Login/Acesso"

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


Ficamos no aguardo.

No meu form de login tenho o seguinte codigo:
Private Sub cmdEntrar_Click()
Dim Identificacao As Integer

If Me.txtSenha.Value = DLookup("[strPassword]", "[TBLUsers]", "[strUserID] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "[TBLUsers]", "[strUserID] = '" & Me.txtUser & "'")
Select Case Identificacao
Case 1
stDocName = "formAdministrador"
Case 2
stDocName = "Menu Principal"


End Select

'DoCmd.Close
Form.Visible = False

DoCmd.OpenForm stDocName


Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtSenha.Value = ""
Exit Sub
End If

End Sub




Private Sub txtUser_AfterUpdate()
Me.txtSenha.SetFocus
End Sub

No meu form "Menu Principal" tenho uma caixa de texto com o valor padrão igual =[Formulários]![frmLogin]![txtUser], o menu principal fica invisivel após o usuário acessar os demais menus.

No evento ao abrir do "Menu Principal" tenho o código:
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 '(OK funiona corretamente)

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 & " ')"

'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:

End Sub

Mas não consigo exito em gravar o usuário logado na tabela.

Donizeth, tente assim (Favor Fazer backup antes).

Crie um novo Módulo "Publico" e declare:

Public UserAccessName
Public UserAccessPass
Public UserAccessLevel
Public UserAccessID

Já no seu formulário de "Login/Acesso"

Private Sub cmdEntrar_Click()

Dim Identificacao As Integer
Dim TrueName As String
Dim TruePass As String

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

Rs.FindFirst "[Campo nome do usuário tabela]=" & "'" & Me."Nome campo usuário do formulário de Login" & "' and [campo senha da tabela]=" & "'" & Me."Campo senha do formuário de login" & "'"

If Not Rs.NoMatch Then

TrueName = Rs.Fields("Campo nome do usuário tabela")
TruePass = Rs.Fields("campo senha da tabela")

UserAccessName = TrueName
UserAccessPass = TruePass

Select Case Identificacao
Case 1
stDocName = "formAdministrador"
Case 2
stDocName = "Menu Principal"

End Select

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

DoCmd.Close

DoCmd.OpenForm stDocName

Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtSenha.Value = ""
Exit Sub
End If

End Sub


Depois, substitua o código anterior (LoggedUser) por este:

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


Tente aí, mas não esqueça de fazer backup antes de qualquer alteração.

Se puder, envie o Formulário de login no anexo da próxima mensagem, pois será mais fácil de lhe ajudar.

Abraços.

Segue bd exemplo.

Nao veio Donizeth, me envie no meu e-mail que posto aqui.

Harysohn@hotmail.com

Caro Diego.. Pedria auxiliar o colega com isto?

http://dl.dropbox.com/u/26441349/Donizeth_15_11_12.rar

Estou dando manutencão em uma rede.. e estou sem tempo no momento..

Cumprimentos

Harysohn,
não estou conseguindo abrir os arquivos, está dando erro "formato não conhecido", e estou usando o Access 2007.
Ao menos você consegue abrir os arquivos?
Pode ter ocorrido algum erro durante compactação pelo WinRar?

Aguardo respostas.

Segue novamente no formato de 2003/2007. Vou enviar para o email do Harysohn para que poste para nós.

Ele postou em 2010... Esperarei o reenvio

Eis ai..

Obrigado pela força Diego.

http://dl.dropbox.com/u/26441349/Donizeth_15_11_12.zip

Donizeth,

Também estou um pouco sem tempo devido ao trabalho, mas deu para resouver.
Encaminhei seu banco para o amigo Harysohn, agora vamos esperar que ele poste aqui no site para você pegar.

Excluí algumas coisinhas para dar foco apenas ao assunto em questão, depois é só adaptar ao seu banco Master.
Alterei também o modo de como você faz o login, favor verificar.

Uma dica, faça a adaptação de um exemplo que incluí no Repositório de Forum, vai deixar seu sistema bem bacana. ( http://maximoaccess.forumeiros.com/t3803-esconde-o-fundo-no-access-mostra-o-nome-ip-do-micro-e-desativa-aviso-de-seguranca-do-runtime )

Qualquer problema é só avisar.

Abraços.

Segue o BD.

Obrigado Diego

http://dl.dropbox.com/u/26441349/Donizeth_15_11_12.zip

Donizeth,

seu problema foi solucionado?
Precisamos de respostas para mudar o Status do Tópico para [Resolvido].

Abraços.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

ainda não resolvido.

Caro Donizeth,
se não foi resolvido, precisamos saber o motivo, favor Detalhar seu problema.
No aguardo.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Prezados já postei no tópico https://www.maximoaccess.com/t2767-monitor-de-conexoes-de-rede#191375 mas acho que aqui vocês vão poder me responder também. Segue:

"No meu caso eu utilizo um form sem dados (formato Access 2010) e este chama através de abas e janelas vários outros bancos de dados para edição.

São 15 tabelas vinculadas do BE e fica difícil rastrear qual delas está aberta.

Você tem alguma dica para fazer a consulta por BD e não por tabela?

Obs.: Meu BD não possui um form Login.

Aguardo. Obrigado."

Pelo que vi das mensagens parece que existe uma forma de fazer isto através do formOpen mas nesse caso não retorna uma janela com todos os usuários logados ou retorna?

Obrigado.

Bom dia

pelo assunto do tópico, eu queria saber como mostrar em uma Msgbox os nomes dos usuários (maquina, usuario) logados no sistema

perece que os exemplos so mostram um usuario ou estou enganado? Alguem pode me ajudar?