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

    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

    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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: Dom 25 Jun 2017, 09:46