MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Usuário de rede sem VBA

    Compartilhe

    fidizila
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 17/05/2016

    Usuário de rede sem VBA

    Mensagem  fidizila em Ter 20 Set 2016, 17:25

    Pessoal, gostaria de registrar o usuário que faz inserção numa determinada tabela minha. Estou criando esse projeto usando APENAS MACROS, pra mim esse é o desafio. Quando uso UsuarioAtual() retorna Admin e já sabemos a razão. Gostaria de retornar o usuário logado sem o Environ() do VBA. Usando o Environ (ou Ambiente) na Macro retorna: "A expressão que você inseriu possui um nome de função que o PROJETO não pode localizar".

    Alguma solucão sem VBA?
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 316
    Registrado : 14/02/2011

    Usuário de rede sem VBA

    Mensagem  daniloreiis em Ter 20 Set 2016, 18:20

    Boa tarde !

    Poderia disponibilizar o projeto para melhor ajuda-lo ?



    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3111
    Registrado : 14/08/2013

    Re: Usuário de rede sem VBA

    Mensagem  FabioPaes em Ter 20 Set 2016, 18:46

    Amigo, sem VBA não conheço não... Mas segue o Código completo para isso:


    Em um Modulo existente ou Em um Novo Modulo coloque:


    Function UsuarioRede() As String
       Dim GetUserN
       Dim ObjNetwork
       Set ObjNetwork = CreateObject("WScript.Network")
       GetUserN = ObjNetwork.UserName
       UsuarioRede = GetUserN
    End Function



    Agora para Ver o Usuario conectado em uma MensageBox por exemplo, coloque no click de um Botão:


    MsgBox UsuarioRede(), vbInformation

    OU coloque em uma Caixa de texto: =UsuarioRede()



    Fonte




    OU simplesmente:

    Para o Dominio:

    MsgBox Environ("USERDOMAIN"),vbInformation


    Para o Nome do Computador:

    MsgBox Environ("Computername"),vbInformation

    Para o Nome do Usuario:

    MsgBox Environ("USERNAME"),vbInformation


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    fidizila
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 17/05/2016

    Re: Usuário de rede sem VBA

    Mensagem  fidizila em Qua 21 Set 2016, 18:01

    Valeu, mas com VBA eu já sabia e tô tentando fazer tudo com macros. Essa foi a única que não consegui. O "projeto" é simples mas tá rolando só com macros e não queria misturar mas parace que não terei alternativa. Vlw pessoal.
    avatar
    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3833
    Registrado : 15/03/2013

    Re: Usuário de rede sem VBA

    Mensagem  ahteixeira em Qua 21 Set 2016, 18:09

    Olá uma dica não testei.
    Tente numa txtbox na origem =Environ(...)
    Fica sem código.
    Abraço
    avatar
    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3833
    Registrado : 15/03/2013

    Re: Usuário de rede sem VBA

    Mensagem  ahteixeira em Qua 02 Nov 2016, 12:12

    Olá Bernanrdo, como ficou a situação?
    Os utilizadores do fórum merecem e agradecem o retorno.

    Caso seja o caso, não se esqueça de dar o tópico como resolvido, veja link abaixo como fazer:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço


    fidizila
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 17/05/2016

    Re: Usuário de rede sem VBA

    Mensagem  fidizila em Qua 02 Nov 2016, 18:05

    O Access dá mensagem de erro quando usa =AMBIENTE ou =ENVIRON com o (USERNAME). Realmente ainda não consegui. Caso eu ache postarei a solução.
    avatar
    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3833
    Registrado : 15/03/2013

    Re: Usuário de rede sem VBA

    Mensagem  ahteixeira em Qua 02 Nov 2016, 21:15

    Olá Bernardo, efetivamente sem VBA, desconheço.
    Acho que o tópico vai ficar por resolver (sem utilizar o VBA).

    No entanto, a técnica para usar em Formularios, Consultas, Macros, etc é como o colega Fabio Pães demonstrou.
    Segue mais um exemplo, apenas com uma linha de código:
    Código:
    Public Function fncUserName()
    'ahteixeira 2016 MaximoAccess.com
        fncUserName = VBA.Environ$("Username")
    End Function

    Dois exemplos para invocar:
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Abraço a todos

    fidizila
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 17/05/2016

    Re: Usuário de rede sem VBA

    Mensagem  fidizila em Qui 03 Nov 2016, 11:27

    Agradeço a todos mesmo. Usando VBA eu já sabia mas tudo que fiz nesse banco foi com macro pra tentar tirar leite de pedra mesmo. Melhor fechar o tópico como não resolvido.
    avatar
    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3833
    Registrado : 15/03/2013

    Re: Usuário de rede sem VBA

    Mensagem  ahteixeira em Qua 09 Nov 2016, 22:53

    Olá Bernardo,
    Obrigado pelo retorno.
    Creio que será o melhor, salvaguardando que não ficou resolvido via Macro sem ter o código VBA.
    Abraço

      Data/hora atual: Sab 29 Abr 2017, 04:37