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

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

    Compartilhe

    serpa
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  serpa em Qua 29 Out 2014, 13: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:

    [Você precisa estar registrado e conectado para ver esta imagem.]

    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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Sab 08 Nov 2014, 21: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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Sab 03 Dez 2016, 19:40