[Resolvido]Objeto não localizado

Ao executar o código abaixo ocorre o erro em anexo. Segue também imagemda tabela tblLogin com os dados.

Public Sub UsuarioLogado()
Dim StrSQLUsuarioLogado As String
Call NomeComputador
DoCmd.SetWarnings False
StrSQLUsuarioLogado = ("Select Top 1 UsuarioLogado from tblLogin where Computador = strNome order by LogData Desc;")
DoCmd.OpenQuery StrSQLUsuarioLogado
DoCmd.SetWarnings True
End Sub
______________________________________________________________________________________________
Public Sub NomeComputador() ‘Traz o nome do computador
Dim strNome As String
strNome = environ$("computername")
'MsgBox (strNome)
End Sub

Não sei se o código está em um módulo geral, sem ver o projeto é difícil mas, tente o seguinte:

No evento ao abrir do seu formulário

Código:



Private Sub Form_Load()
Dim strNome As String
strNome = "computador" & Environ("computername") 'Aqui identifica o computador
Msgbox (strNome)
End Sub



Muito obrigado.