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


    [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...

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2019, 16:34