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