MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Objeto não localizado

    avatar
    tchelo1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 08/05/2023

    [Resolvido]Objeto não localizado Empty [Resolvido]Objeto não localizado

    Mensagem  tchelo1 10/6/2023, 12:49

    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
    Anexos
    [Resolvido]Objeto não localizado AttachmentErro.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 4 vez(es)
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1415
    Registrado : 07/12/2011

    [Resolvido]Objeto não localizado Empty Re: [Resolvido]Objeto não localizado

    Mensagem  tauron 11/6/2023, 13:10

    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

    avatar
    tchelo1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 08/05/2023

    [Resolvido]Objeto não localizado Empty Resolvido

    Mensagem  tchelo1 12/6/2023, 11:25

    Muito obrigado.

    Conteúdo patrocinado


    [Resolvido]Objeto não localizado Empty Re: [Resolvido]Objeto não localizado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 14/6/2024, 12:53