[Resolvido]codigo para abrir formulario

olá, estou com um codigo, mas ele ta dando problema, ja  apaguei e fiz de novo e continua dando erro. Alguem pode me ajudar a solucionar esse problema ?

Bernardo , bom dia.

Gentileza, veja esse exemplo aqui.

Faço o download do mesmo para o teu micro. Estude ele, veja como é feito !

Não poste mais a mesma duvida que você tem várias vezes, por favor !

Olá Bernardo, o seu problema é apenas um erro de digitação... Olho vivo!

Código Atual

Código:


Private Sub cmdConfirmar_Click()'Verifica se o usuário existe
If DCount("Login", "LOGIN_SENHA") = 0 Then
MsgBox "Esse usuário não existe no sistema!"
Else
'Verifica se a senha confere
If Me!txt.Senha = DLookup("SENHA", "LOGIN_SENHA", "Login='" & Me!txtLogin & "'") Then
DoCmd.OpenForm "frmMenu"
Else
MsgBox "Senha errada"
End If
End If
End Sub


Código Alterado

Código:

Private Sub cmdConfirmar_Click()
Dim VerificaUsuario
Dim SenhaDoUsuario

VerificaUsuario = DLookup("Login", "LOGIN_SENHA", "Login = '" & Me.txtLogin.Column(1) & "'") 'Especificar a Coluna do ListBox
SenhaDoUsuario = DLookup("SENHA", "LOGIN_SENHA", "Login = '" & Me.txtLogin.Column(1) & "'") 'Especificar a Coluna do ListBox

    'Verifica se o Usuário Existe
    If IsNull(VerificaUsuario) Then
        MsgBox "O Usuário informado não existe neste Sistema!", vbCritical, "Usuário Inválido"
    Else
    'Verifica se a Senha Confere
        If Me.txtSenha = SenhaDoUsuario 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 If
End Sub

Tente e de um retorno!

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 ?

Bernardo, outra dica para você é, sempre trabalhe com tabulações usando a tecla , isso ajuda qualquer desenvolvedor identificar erros em seu código e trata-los! Tenha o código que lhe enviei como exemplo, ou também se quiser de uma olhadinha em um tópico que criei a algum tempo atrás.

Curso de Access/VBA Completo: Clique aqui para ir até o tópico

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 ?

AQUELA ,PRIMEIRA PERGUNTA RESPONDERAM, MAS AGORA DEU OUTRO ERRO.

Qual é o outro erro Bernardo?

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 ?

Fique atento as Regras do Fórum, pois o Administrador pode Fechar o Tópico pelo descumprimento das regras!

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.

valeu Jeferson, agora resolveu.

O fórum agradece o Retorno!

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 ?

Obrigado Jeferson, to começando agora nessa área, valeu pelas dicas.

Disponha, qualquer coisa é dar um alô!

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 ?

é que eu esqueco de tirar da caixa alta , mais eu nao to gritando.