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

    [Resolvido]retornar o nome do dominio de rede

    Compartilhe

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]retornar o nome do dominio de rede

    Mensagem  ifahidalgo em Sex 12 Set 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.

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  ifahidalgo em Sex 12 Set 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.
    avatar
    chsestrem
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  chsestrem em Sex 12 Set 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
    [Você precisa estar registrado e conectado para ver este link.]

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  ifahidalgo em Sex 12 Set 2014, 17:39

    obrigado, funcionou perfeitamente.

      Data/hora atual: Sex 20 Out 2017, 09:51