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


3 participantes

    [Resolvido]Sistema de Login em rede de Dominio

    avatar
    jibrito
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 92
    Registrado : 09/10/2011

    [Resolvido]Sistema de Login em rede de Dominio Empty [Resolvido]Sistema de Login em rede de Dominio

    Mensagem  jibrito 4/1/2016, 13:02

    Ola

    Antes de mais feliz 2016 para todos Smile

    A minha duvida 'e a seguinte, possuo um base de dados devidida em fronte end e back end e esta a funcionar na perfeicao. O problema 'e que agora existe necessidade de implementar um sistema de login para accesso para a base de dados. O sistema actual encontra-se numa rede de dominio e seria bastante util se fosse possivel logar automaticamente os ultilizadores na base de dados atraves do dominio para isso os dados de cada utilizadores seriam importados do Dominio para uma tabela dentro da base de dados.

    Estou um pouco aflito porque nao percebo de programacao e nunca trabalhei com sistema de login numa base de dados.
    Se alguem me poder dizer algum exemplo que eu possa usar para incopar na minha base de dados seira excelente.

    Caso eu nao tenha sido claro pf digam-me.

    Abraco


    .................................................................................
    Brito
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Sistema de Login em rede de Dominio Empty Re: [Resolvido]Sistema de Login em rede de Dominio

    Mensagem  Alvaro Teixeira 4/1/2016, 14:40

    Olá Brito,
    É uma boa questão, mas o ideal era ir verificar diretamente ao DomainControl
    Em tempos efectuei uma pesquisa e nada e do pouco que encontrei comprometia a segurança da rede.

    Se tem um rede em dominio com gestão de permissões, então quando é iniciado o seu projecto, já sabemos qual é o utilizador, não será necessário pedir novamente nome nem palavra-passe.

    No seu projecto para identificar o utilizador que está ligado, pode usar a função abaixo:

    Código:
    Function fncUserNameLogin()
        'ahteixeira 2016 - para MaximoAccess
        fncUserNameLogin = Environ("UserName")
    End Function

    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Sistema de Login em rede de Dominio Empty Re: [Resolvido]Sistema de Login em rede de Dominio

    Mensagem  Alvaro Teixeira 4/1/2016, 14:46

    Olá de novo,
    Lembrei-me que também pode ser útil identificar o Posto/estação de Trabalho, para isso:

    Código:
    Function fncPostoLogin()
        'ahteixeira 2016 - para MaximoAccess
        fncPostoLogin = Environ("computername")
    End Function

    Abraço
    avatar
    jibrito
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 92
    Registrado : 09/10/2011

    [Resolvido]Sistema de Login em rede de Dominio Empty Re: [Resolvido]Sistema de Login em rede de Dominio

    Mensagem  jibrito 7/1/2016, 16:50

    Ola,

    Obrigado pela ajuda, mas se nao se importar um pequeno esclarecimento. Como 'e que posso aplicar na minha base de dados o que describe abaixo e tambem se alem do nome do utilisador e nome do computador 'e possivel tambem importar/visualizar o codigo identioficativo do funcionario neste caso 'e o campo "Alias" disponivel no Microsoft outlook?

    desde ja muito obrigado

    abraco


    .................................................................................
    Brito
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Sistema de Login em rede de Dominio Empty Re: [Resolvido]Sistema de Login em rede de Dominio

    Mensagem  Alvaro Teixeira 7/1/2016, 17:43

    Olá Brito,

    Para usar na sua base de dados, pode colocar por exemplo diretamente na tabela, no respectivo campo em valor predefinido =fncUserNameLogin()
    Ao adicionar um novo registo, vai colocar o nome de utilizador.
    Caso não pretenda desta forma, pode colocar no campo dos formularios, será o mesmo:
    =fncUserNameLogin()

    Quanto à questão do "Alias" desconheço, repare que as informações que apresenta do exemplo, são adquiridas através das variáveis de ambiente do sistema operativo.
    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Sistema de Login em rede de Dominio Empty Re: [Resolvido]Sistema de Login em rede de Dominio

    Mensagem  Alvaro Teixeira 15/5/2016, 11:40

    Olá Brito, como ficou a situação?
    Os utilizadores do fórum merecem e agradecem o retorno.
    Abraço
    avatar
    jibrito
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 92
    Registrado : 09/10/2011

    [Resolvido]Sistema de Login em rede de Dominio Empty Re: [Resolvido]Sistema de Login em rede de Dominio

    Mensagem  jibrito 22/6/2016, 08:14

    Ola Teixeiara,

    Penso desculpa pela demora na minha resposta. Para ser sincere ainda nao resolvi da maneira que pretend. Entretanto apliquei uma solucao temporaria aqui do forum .

    Uma vez mais obrigado


    .................................................................................
    Brito
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Sistema de Login em rede de Dominio Empty Re: [Resolvido]Sistema de Login em rede de Dominio

    Mensagem  Alvaro Teixeira 22/6/2016, 11:17

    Olá Brito,
    Poderia partilhar a solução adotada "temporariamente"?
    Abraço
    avatar
    maluco_sergio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 37
    Registrado : 09/11/2016

    [Resolvido]Sistema de Login em rede de Dominio Empty Re: [Resolvido]Sistema de Login em rede de Dominio

    Mensagem  maluco_sergio 11/12/2016, 11:34

    Estou a tentar usar esse sistema, contudo precisava de uma sugestão.

    Na minha base de dados tenho o seguinte código que captura o user que está logado na rede.

    Código:
    Public Function getUserRede()
    Dim WS As Object
    Set WS = CreateObject("WScript.network")
    getUserRede = WS.UserName
    Set WS = Nothing
    End Function

    Contudo, esse user é próprio do empresa onde trabalho.

    Na tblUsers tenho os nome dos utilizadores com o User da rede.
    Por exemplo: o UserRede: 1234, UserShort: Manuel António

    Queria criar uma função getUserAtual() que procurasse o User de Rede na tblUsers e devolvesse o valor do campo UserShort

    Código:
    Function getUserAtual() As String
     
      getUserAtual = Nz(DLookup("UserShort", "tblUsers", _
                        "UserRede='" & getUserRede & "'"), "")
       
    End Function
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Sistema de Login em rede de Dominio Empty Re: [Resolvido]Sistema de Login em rede de Dominio

    Mensagem  Alvaro Teixeira 11/12/2016, 16:37

    Olá, obrigado pelo retorno.
    Parece que você já tem a função.
    No entanto vai ter que carregar sempre na sua tblUsers manualmente igual aos utilizadores do dominio.
    Podemos dizer que você tem no seu projecto uma tabela replicada dos utilizadores da rede, usando o user logado como chave primária de relacionamento.
    Abraço
    avatar
    maluco_sergio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 37
    Registrado : 09/11/2016

    [Resolvido]Sistema de Login em rede de Dominio Empty Re: [Resolvido]Sistema de Login em rede de Dominio

    Mensagem  maluco_sergio 11/12/2016, 16:51

    O que é que acha?
    O problema é que eu quer que nos formulários apareça o nome do utilizador e não o código, por isso é que usei duas funções.
    Acha que poderia fazer de outra forma?
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Sistema de Login em rede de Dominio Empty Re: [Resolvido]Sistema de Login em rede de Dominio

    Mensagem  Alvaro Teixeira 11/12/2016, 17:07

    Olá, está correcto para o que pretende.
    1º verifica qual o UserName do sistema.
    2º vai consultar à sua tabela o Nome que corresponde aquele UserName.
    Abraço

    Conteúdo patrocinado


    [Resolvido]Sistema de Login em rede de Dominio Empty Re: [Resolvido]Sistema de Login em rede de Dominio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:16