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

    Validação de Login e password - VBA Acess

    Compartilhe

    omjmesquita
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 08/05/2015

    Validação de Login e password - VBA Acess

    Mensagem  omjmesquita em Seg 10 Ago 2015, 20:01

    Boa tarde amigos.
    Confesso que sou um novato em VBA. No entanto, como sabe rnão ocupa lugar, decidi que iria tentar efetuar uma aplicação para o meu trabalho. Confesso que não é nada fácil e já passei largas horas lendo e tentando entender os vossos posts.
    Apesar de já ter desenvolvido vários formulários e os seus procedimentos, não consigo resolver este problema que vos exponho:
    Tenho um formulário - Form_Login
    Neste formulário existe uma caixa de nome - Caixa_num_mecanografico (será a caixa correspondente ao usuário)
    e outra - Caixa_password (caixa para inserir a password)
    Existe ainda o botão Ok que tem o nome Botao_Ok
    Apesar de já ter feito a maior parte das verificações e validações desejava o seguinte:
    Ao digitar na Caixa_num_mecanográfico deveria fazer uma verificação na tabela Utilizadores, no campo UT_Numero_Mecanografico. Caso não exista o numero mecanografico indicado aparecer uma caixa de texto dizendo que o utilizador / usuário não existe e perguntando se deseja efetuar o seu registo solicitando para o endereço de e-mail: [Você precisa estar registrado e conectado para ver este link.] e um espaço onde ele pudesse colocar o seu endereço de email para ser contatado.
    Caso esse numero mecanográfico já esteja inserido na tabela ao fazer o after_update dar uma mensagem de boas vindas colocando o nome do utilizador/usuário registado na mesma tabela Utilizadores e cujo campo é UT_Nome_Completo e só após iria passar para a caixa seguinte -  Caixa_password aguardando a introdução da password/senha. Deverá então ser feita a validação, ao carregar no Botao_Ok, que irá confrontar o introduzido na Caixa_password com o campo existente na tabela Utilizadores que é UT_Senha. Caso esteja tudo ok e seja validado o login (após carregar no Botao_Ok),irá abrir o formulário Form_Principal.
    Muito obrigado pela vossa ajuda.

    omjmesquita
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 08/05/2015

    Ninguém pode ajudar?

    Mensagem  omjmesquita em Ter 11 Ago 2015, 12:59

    Amigos: sei que é período de férias mas ninguém tem um tempinho para dar uma ajudinha?
    Obrigado.
    avatar
    ÓscarSantos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 333
    Registrado : 18/09/2013

    Re: Validação de Login e password - VBA Acess

    Mensagem  ÓscarSantos em Ter 11 Ago 2015, 13:04

    olá

    veja este topico [Você precisa estar registrado e conectado para ver este link.]

    Abraço


    .................................................................................
    _________________________________________________________
    sempre a aprender
    para enviar ou postar só access2003 infelizmente é o que tenho no trabalho [Você precisa estar registrado e conectado para ver esta imagem.] .
    para dar tópio como resolvido [Você precisa estar registrado e conectado para ver este link.]

    Ricardo Ivan
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 28/04/2015

    Re: Validação de Login e password - VBA Acess

    Mensagem  Ricardo Ivan em Qua 12 Ago 2015, 15:04

    Bom dia amigo,

    Apenas pra te dar uma direção faz algo mais ou menos assim:

    Código:
    Private Sub botao_Ok_Click()
    Dim rs As DAO.Recordset
    Dim strSQL As String

    'Open a snapshot-type Recordset based on an SQL statement
    strSQL = "SELECT * FROM Utilizadores"
    Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
         
        Do While Not rs.EOF
           
            If rs("UT_Numero_Mecanografico") = Me.Caixa_Numero_Mecanografico Then
           
                If rs("UT_Senha") = me.Caixa_password Then
               
                    'SE CONFIRMOU O PASSWORD FAZ ALGO AQUI!
                   
                    Exit Do
                Else
                    MsgBox "Senha não confere!"
                    Exit Do
                   
                End If
           
            End If
           
            rs.MoveNext
           
        Loop
       
        Set rs = Nothing
    End Sub

    falta adicionar a parte do e-mail que você falou.

    Veja se ajuda,

    Cool
    avatar
    ÓscarSantos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 333
    Registrado : 18/09/2013

    Re: Validação de Login e password - VBA Acess

    Mensagem  ÓscarSantos em Qua 12 Ago 2015, 16:45

    Manda mail para te enviar exemplo
    ou podes ver em

    [Você precisa estar registrado e conectado para ver este link.]

    Abraço


    .................................................................................
    _________________________________________________________
    sempre a aprender
    para enviar ou postar só access2003 infelizmente é o que tenho no trabalho [Você precisa estar registrado e conectado para ver esta imagem.] .
    para dar tópio como resolvido [Você precisa estar registrado e conectado para ver este link.]

    omjmesquita
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 08/05/2015

    Obrigado amigos

    Mensagem  omjmesquita em Qua 12 Ago 2015, 19:20

    Estimados amigos:
    Obrigado por terem respondido e colaborado na dúvida que pus no MaximoAcess.
    Tentei inserir as linhas do código que o amigo Ricardo pôs na resposta à minha solicitação mas não resultou pois não fazia absolutamente nada. Alterei alguns campos que não correspondiam ao que tinha digitado (nome da caixa, etc) mas mantive toda a estrutura que enviou. Não fez nada.
    Tenho já algumas validações feitas - por exemplo a Caixa_num_mecanografico só poderão ser digitados números inteiros, senão dá msg de erro, só deixará introduzir a password se for digitado numero inteiro, etc.
    O problema está no seguinte:
    Ao digitar na Caixa_num_mecanografico, ao fazer o after_update, deveria abrir a tabela Utilizadores e verificar se o conteudo digitado é igual ao campo UT_Num_Mecanografico que existe nessa tabela. Caso já houvesse esse valor só depois iria então permitir passar para  a seguinte Caixa_password onde seria introduzida a password. Aqui, após inserida a senha, iria pesquisar na mesma tabela Utilizadores se o valor introduzido em Caixa_password confere com o do campo UT_Senha. Se estivesse tudo ok apareceria a MsgBox de Boas vindas e colocava na mesma box o nome do utilizador que se encontra registado na mesma tabela mas no campo UT_Nome_Completo.

    Envio imagem da Form_Login que, espero, ajude.
    Envio também imagem da tabela Utilizadores onde estão rodeados os campos que deverão ser consultados e validados a vermelho e depois a verde o campo com o nome do utilizador.
    Caso não houvesse a validação dos dados em uma das caixas, apareceria uma Msgbox com a mensagem de erro e para tentar novamente carregando no botão tentar novamente.
    Amigo. Sei que é pedir muito mas vejo que os vossos conhecimentos de VBA são muitos e por isso recorro à sua preciosa ajuda. Como gosto de entender e não estar sempre a recorrer a ajudas, peço-lhe o favor, se entenderem por bem ajudar-me, que vão explicando com comentários o que fazem as linhas de código que criar.
    Fico-lhes muito muito agradecido
    Se decidirem não ajudar... amigos na mesma e aceitem aquele
    Grande abraço.

    omjmesquita
    [Você precisa estar registrado e conectado para ver este link.]

    omjmesquita
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 08/05/2015

    Imagens

    Mensagem  omjmesquita em Qua 12 Ago 2015, 19:26

    Amigos não sei como postar as imagens.
    Diz-me que o espaço de armazenamento é 0 Kb
    Enfim, espero ter-me explicado bem no texto.
    Abraço

    Ricardo Ivan
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 28/04/2015

    Re: Validação de Login e password - VBA Acess

    Mensagem  Ricardo Ivan em Qui 13 Ago 2015, 21:20

    fiz um exemplo fazendo exatamente o que voce quer!

    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 21 Out 2017, 20:37