MaximoAccess

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

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

    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 : 3336
    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()



    [Você precisa estar registrado e conectado para ver este link.]




    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 Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4471
    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 Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4471
    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 Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4471
    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 Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4471
    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 21 Out 2017, 04:21