Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Login de usuario na Useform

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
xandrinho
Colaborador
Colaborador
Mensagens: 35
Registrado em: Seg Ago 04, 2014 1:52 pm

Login de usuario na Useform

Mensagem por xandrinho »

Boa tarde!

Amigos conseguem me ajudar?
Criei uma useform, na label 1, quero que aparece o usuário, estou colocando o código abaixo. Porem só aparece qdo eu clico com o mouse, gostaria que qdo a useform fosse ativada, já aparecesse o usuário, poderia me informar onde esta o erro no código?

Dim wshNetwork As Object
Dim LogonName As Variant

Set wshNetwork = CreateObject("WScript.Network")
LogonName = "" & wshNetwork.UserName
‘Label12 = LogonName

Att,

Xandrinho


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Marciel Silva
Colaborador
Colaborador
Mensagens: 98
Registrado em: Qui Nov 01, 2012 2:37 pm

Re: Login de usuario na Useform

Mensagem por Marciel Silva »

Boa tarde Xandrinho!

Poderia disponibilizar o seu arquivo compactado para ficar mais fácil lhe ajudar!?

Att,


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Login de usuario na Useform

Mensagem por Reinaldo »

Em que evento o trecho do codigo está alocado? Pois aparentemente não há nada errado com o mesmo exceto que a linha onde é carregado o usuário na label está comentada


xandrinho
Colaborador
Colaborador
Mensagens: 35
Registrado em: Seg Ago 04, 2014 1:52 pm

Re: Login de usuario na Useform

Mensagem por xandrinho »

Amigos!!!!

Obrigado pela ajuda. Realizei uma pesquisa no forun e analisei alguns e resolvi...o problema é de iniciante mesmo...mas de toda forma muito obrigado!!!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder