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

    Compartilhe
    avatar
    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!
    avatar
    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!
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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
    avatar
    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: Seg 26 Jun 2017, 21:48