MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 303
    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 : 303
    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.

    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 : 303
    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: Qua 07 Dez 2016, 20:12