Usuário de rede sem VBA

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?

Boa tarde !

Poderia disponibilizar o projeto para melhor ajuda-lo ?

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

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.

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

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:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

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.

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:


Abraço a todos

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.

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