MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Macro de login

    avatar
    niloliver
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 30/09/2013

    [Resolvido]Macro de login Empty [Resolvido]Macro de login

    Mensagem  niloliver em 16/8/2018, 21:31

    Boa tarde senhores!

    Criei um BD com usuários e senha.

    Coloquei esse código, mas ao tentar fazer o login da esse erro, so que não consigo ver qual operador esta faltando, alguem pode me ajudar?

    Ao logar da o seguinte erro: Erro de sintaxe (operador faltando) na expressão de consulta
    ‘US.[NOME_USUARIO] = ‘MAGELA’ END US.[SENHA_USUARIO] = ‘123”.




    Private Sub btn_logar_Click()
    Dim NOMEUSU As String
    Dim SENUSU As String

    NOMEUSU = UCase(Nz(Me.txt_usuario.Value, ""))
    SENUSU = UCase(Nz(Me.txt_senha.Value, ""))

    If IsEmpty(NOMEUSU) Or IsEmpty(SENUSU) Then
    MsgBox "Preencha os campos..", vbOKOnly + vbCritical, "Impossível acessar!!"

    Else
    If ExisteUsuario(NOMEUSU, SENUSU) Then
    MsgBox "Bem vindo ao Sistema..", vbOKOnly + vbCritical, "Acessando...!!"
    DoCmd.Close

    Else
    NunInteiro = NunInteiro + 1
    If NunInteiro <= 2 Then
    MsgBox "Usuario e Senha incorretos", vbOKOnly + vbCritical, "Tente novamente!!"
    Else
    MsgBox "Você excedeu o número de tentativa...", vbOKOnly + vbCritical, "Sair do Sistema!!"
    DoCmd.Quit

    End If
    End If

    End If
    Exit Sub
    End Sub

    Public Function ExisteUsuario(strNomeUsuario As String, strSenhaUsuario As String) As Boolean

    On Error GoTo Deu_erro

    Dim rst As DAO.Recordset
    Dim sql As String

    sql = "SELECT * FROM [USUARIOS] US WHERE US.[NOME_USUARIO] = '" & strNomeUsuario & "' END US.[SENHA_USUARIO] = '" & strSenhaUsuario & "'"
    Set rst = CurrentDb.OpenRecordset(sql)

    If rst.BOF And rst.EOF Then
    ExisteUsuario = False

    Else
    ExisteUsuario = True

    xNOME_USUARIO = rst!xNOME_USUARIO
    xSENHA_USUARIO = rst!xSENHA_USUARIO
    xSOBRENOME = rst!xSOBRENOME
    xVENDAS = rst!xVENDAS
    xADMINISTRAR = rst!xADMINISTRAR
    xRELATORIOS = rst!xRELATORIOS
    xCATALOGOS = rst!xCATALOGOS
    xCANCELAR_VENDA = rst!xCANCELAR_VENDA

    End If
    rst.Clone
    Set rst = Nothing

    Exit Function
    Deu_erro:
    MsgBox Err.Description

    End Function



    Desde já agrade a atenção!
    avatar
    niloliver
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 30/09/2013

    [Resolvido]Macro de login Empty Macro de login

    Mensagem  niloliver em 22/8/2018, 13:49

    Alguém pode me ajudar?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Macro de login Empty Re: [Resolvido]Macro de login

    Mensagem  JPaulo em 22/8/2018, 14:55

    A instrução SQL está mal, reveja;

    sql = "SELECT * FROM [USUARIOS] US WHERE US.[NOME_USUARIO] = '" & strNomeUsuario & "' END US.[SENHA_USUARIO] = '" & strSenhaUsuario & "'"

    Se o noma da tabela for US será;
    Código:
    SQL = "SELECT * FROM US WHERE US.[NOME_USUARIO] = '" & strNomeUsuario & "' AND US.[SENHA_USUARIO] = '" & strSenhaUsuario & "'"

    Se o nome da tabela for USUARIOS será;
    Código:
    SQL = "SELECT * FROM USUARIOS WHERE USUARIOS.[NOME_USUARIO] = '" & strNomeUsuario & "' AND USUARIOS.[SENHA_USUARIO] = '" & strSenhaUsuario & "'"

    E não é END é AND.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Macro de login Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Macro de login Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Macro de login Folder_announce_new Instruções SQL como utilizar...
    avatar
    niloliver
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 30/09/2013

    [Resolvido]Macro de login Empty Resolvido!

    Mensagem  niloliver em 23/8/2018, 18:01

    Muito obrigado pela ajuda JPaulo, deu certinho.

    Agradeço a atenção.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Macro de login Empty Re: [Resolvido]Macro de login

    Mensagem  JPaulo em 30/8/2018, 11:25

    Fico feliz.
    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Macro de login Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Macro de login Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Macro de login Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 5/7/2020, 11:51