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]retornar o nome do dominio de rede

    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]retornar o nome do dominio de rede Empty [Resolvido]retornar o nome do dominio de rede

    Mensagem  ifahidalgo 12/9/2014, 01:26

    Senhores

    existe alguma maneira de quando entrar no sistema, executar algum codigo para retornar o nome do dominio de rede da maquina, em que está sendo executado o sistema.
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]retornar o nome do dominio de rede Empty Re: [Resolvido]retornar o nome do dominio de rede

    Mensagem  ifahidalgo 12/9/2014, 14:11

    achei algo na internet.

    Dim msg2

    msg2 = "Dominio usuario " & vbTab & Environ$("UserDomain")
    MsgBox msg2, vbInformation, "Dominio"


    agora preciso, pegar o resultado, no caso "msg2", e confrontar um um campo na tabela, se forem iguais, entra no sistema, caso contrario exibe uma informação e não abre o sistema.
    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]retornar o nome do dominio de rede Empty Re: [Resolvido]retornar o nome do dominio de rede

    Mensagem  chsestrem 12/9/2014, 14:45

    Olá,

    O Dcount já resolve seu problema:

    If Dcount("CampoDominio", "TabelaDominio", "CampoDominio = '" & msg2 & "'") > 0 then

    MsgBox "Abre O sistema" 'Use aqui o codigo para abrir o sistema

    else

    Msgbox "Não Abre o Sistema"

    end if

    Sds,


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]retornar o nome do dominio de rede Empty Re: [Resolvido]retornar o nome do dominio de rede

    Mensagem  ifahidalgo 12/9/2014, 17:39

    obrigado, funcionou perfeitamente.

    Conteúdo patrocinado


    [Resolvido]retornar o nome do dominio de rede Empty Re: [Resolvido]retornar o nome do dominio de rede

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 16:12