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


2 participantes

    Módulo de classe e Módulo Padrão

    avatar
    serpa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 25/08/2014

    Módulo de classe e Módulo Padrão Empty Módulo de classe e Módulo Padrão

    Mensagem  serpa Qua 29 Out 2014, 11:40

    Baixei um arquivo aqui de login com senha e instalei normalmente,porém hoje qdo fui enviar por email o front end para o cliente, ao abrir ele deu a seguinte mensagem:

    Módulo de classe e Módulo Padrão Erro_29_10_2014

    O BD tem um modulo chamado Login_senha com o seguinte código (percebi que eu tinha colocado a linha Option Explicit como comentário, talvez seja isso):

    Option Compare Database
    Option Explicit
    Private strUsuarioAtual As String

    Function verificaLogin(argLogin As String, argSenha As String) As Boolean

    Dim criterio As String

    criterio = "Login='" & argLogin & "' And senha='" & argSenha & "'"

    If Nz(DCount("Login", "Tbl_Usuario", criterio), 0) > 0 Then
    verificaLogin = True
    setUsuarioAtual argLogin
    Else
    verificaLogin = False
    End If

    End Function

    Sub setUsuarioAtual(argUsuario As String)
    strUsuarioAtual = argUsuario
    End Sub

    Function getUsuarioAtual() As String
    getUsuarioAtual = strUsuarioAtual
    End Function


    E um formulário onde o usuário escolhe o nome, digita senha e clica no botão entrar, que possui o seguinte código:

    Private Sub BtnLogin_Click()

    If Not IsNull(CBox_Usuario) And Not IsNull(Txt_Senha) Then
    If verificaLogin(CBox_Usuario, Txt_Senha) Then

    If (Txt_Senha) = "123" Then

    DoCmd.Close
    DoCmd.OpenForm "Frm_Login_NovaSenha"
    Else
    DoCmd.Close
    DoCmd.OpenForm "Frm_Master"

    End If
    Else
    MsgBox "Senha inválida!", vbExclamation, "Login"
    Txt_Senha = ""
    Txt_Senha.SetFocus
    End If
    End If

    End Sub

    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    Módulo de classe e Módulo Padrão Empty Re: Módulo de classe e Módulo Padrão

    Mensagem  Noobezinho Sáb 08 Nov 2014, 19:57

    Paulo

    O Access está informando que não encontrou a combobox de nome CBox_Usuario

    Verifique se não mudou o nome dela acidentalmente.

    Abraços

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: Sex 29 Mar 2024, 02:51