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] Ajuda com código de login

    Compartilhe

    RAprendiz
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 08/06/2014

    [Resolvido] Ajuda com código de login

    Mensagem  RAprendiz em Sab 27 Jun 2015, 17:54

    Olá amigos,
    tenho um sistema de login  e gostaria que ao inserir um login errado, ele limpasse os campos de login e senha e colocasse o foco no campo de login.

    estou usando este código:

    Código:
    Private Sub Form_Open(Cancel As Integer)
    Me.Rótulo32.Visible = False
    End Sub
    Private Sub Login_Click()
    If Not IsNull(caixalogin) And Not IsNull(caixasenha) Then
            If verificaLogin(caixalogin, caixasenha) Then
                DoCmd.Close
                DoCmd.OpenForm "frmPrincipal"
            Else
                Me.Rótulo32.Visible = True
                Me.caixalogin.SetFocus
            End If
        End If
    End Sub

    Private Sub Sair_Click()
        DoCmd.Quit
    End Sub

    só está faltando a parte de limpar os campos scratch


    .................................................................................
    Versão: Access 2013

    Nunca tenha certeza de nada, pois a sabedoria começa com a dúvida!

    RAprendiz
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 08/06/2014

    Re: [Resolvido] Ajuda com código de login

    Mensagem  RAprendiz em Sab 27 Jun 2015, 21:51

    Alguém? confused


    .................................................................................
    Versão: Access 2013

    Nunca tenha certeza de nada, pois a sabedoria começa com a dúvida!

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

    Re: [Resolvido] Ajuda com código de login

    Mensagem  biligo em Sab 27 Jun 2015, 23:03

    tenta algo assim:

    Else

    caixalogin.value = ""
    caixasenha.value = ""

    Me.Rótulo32.Visible = True
    Me.caixalogin.SetFocus



    End If
    End If

    RAprendiz
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 08/06/2014

    Re: [Resolvido] Ajuda com código de login

    Mensagem  RAprendiz em Seg 29 Jun 2015, 01:55

    Obrigado amigo, funcionou perfeitamente! cheers Very Happy


    .................................................................................
    Versão: Access 2013

    Nunca tenha certeza de nada, pois a sabedoria começa com a dúvida!

      Data/hora atual: Dom 04 Dez 2016, 12:12