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]codigo login erro no codigo

    airtongt
    avatar
    airtongt
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 29/08/2013
    • Mensagem nº1

    [Resolvido]codigo login erro no codigo Empty codigo login erro no codigo

    Mensagem  airtongt 14/10/2013, 14:16

    olá pessoal, fiz um codigo de login e senha mais só que o código está com um pequeno erro que eu não estou vendo, vou mandar o bd pra vcs darem um olhada, muito obrigado pela atenção
    erro quando eu insiro o login e senha, ele não abre o frmMenu
    Anexos
    [Resolvido]codigo login erro no codigo AttachmentbdTest01.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (996 Kb) Baixado 6 vez(es)
    • Ir para o topo
    Jeferson de Paula
    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 361
    Registrado : 06/04/2013
    • Mensagem nº2

    [Resolvido]codigo login erro no codigo Empty Re: [Resolvido]codigo login erro no codigo

    Mensagem  Jeferson de Paula 14/10/2013, 15:58

    Olá amigo Airton, tente usar esta instrução aqui:

    Código:
    Private Sub cmdConfirmar_Click()
    Dim strLoginDoUsuario As String
    Dim strSenhaDoUsuario As String

    strLoginDoUsuario = DLookup("Email", "qryTemAcesso", "Email = '" & Me.txtLogin.Column(0) & "'")
    strSenhaDoUsuario = DLookup("Senha", "qryTemAcesso", "Email = '" & Me.txtLogin.Column(0) & "'")
        If IsNull(strLoginDoUsuario) Then
            MsgBox "O Usuário informado não existe neste sistema!", vbCritical, "Usuário inválido"
                DoCmd.CancelEvent
                    Exit Sub
        End If
        If Me.txtLogin = strLoginDoUsuario And Me.txtLSenha = strSenhaDoUsuario Then
            DoCmd.Close acForm, "frmLogin"
            DoCmd.OpenForm ("frmMenu"), acNormal
        Else
            MsgBox "A Senha que você digitou está incorreta, por favor, tente novamente!", vbCritical, "Senha Inválida"
        End If
    End Sub
    Cumprimentos!

    Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha [Resolvido]codigo login erro no codigo 001_1810?


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft®️ Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL
    • Ir para o topo
    Lupércio
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011
    • Mensagem nº3

    [Resolvido]codigo login erro no codigo Empty Re: [Resolvido]codigo login erro no codigo

    Mensagem  Lupércio 14/10/2013, 16:25

    Private Sub cmdConfirmar_Click()

    Dim Identificacao As Integer

       If Me.txtLSenha.Value = DLookup("[Senha]", "[Funcionário]", "[Email] = '" & Me.txtLogin & "'") Then
         
           
           DoCmd.Close
           DoCmd.OpenForm "FrmMenu"
         Else
           MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
           Me.txtLSenha.Value = ""
           Exit Sub
       End If
    End Sub



    Veja e Teste:


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.lol!Rolling Eyes
    • Ir para o topo
    Lupércio
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011
    • Mensagem nº4

    [Resolvido]codigo login erro no codigo Empty Re: [Resolvido]codigo login erro no codigo

    Mensagem  Lupércio 14/10/2013, 16:32

    Aqui se quiseres usar com a consulta que criaste!
    Anexos
    [Resolvido]codigo login erro no codigo AttachmentsalaPrAirton.consulta.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Mb) Baixado 21 vez(es)


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.lol!Rolling Eyes
    • Ir para o topo
    Lupércio
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011
    • Mensagem nº5

    [Resolvido]codigo login erro no codigo Empty Re: [Resolvido]codigo login erro no codigo

    Mensagem  Lupércio 14/10/2013, 16:39

    Lembrando que este código é do "Ninja" JPaulo, apenas adaptei!


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.lol!Rolling Eyes
    • Ir para o topo
    airtongt
    avatar
    airtongt
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 29/08/2013
    • Mensagem nº6

    [Resolvido]codigo login erro no codigo Empty Re: [Resolvido]codigo login erro no codigo

    Mensagem  airtongt 14/10/2013, 18:01

    agradeço á todos, que contribuíram na solução deste problema espero que você continuem assim ajudando o proximo, muito obrigado
    • Ir para o topo
    Lupércio
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011
    • Mensagem nº7

    [Resolvido]codigo login erro no codigo Empty Re: [Resolvido]codigo login erro no codigo

    Mensagem  Lupércio 14/10/2013, 18:03

    O fórum agradece o retorno!


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.lol!Rolling Eyes
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº8

    [Resolvido]codigo login erro no codigo Empty Re: [Resolvido]codigo login erro no codigo

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 18/10/2024, 07:40