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]Consulta SQL com erro de sintaxe

    avatar
    lcsantos2019
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 24/04/2019

    [Resolvido]Consulta SQL com erro de sintaxe Empty [Resolvido]Consulta SQL com erro de sintaxe

    Mensagem  lcsantos2019 em Qua 31 Jul - 14:59

    Olá Colegas,

    Tenho até vergonha de postar, mas estou procurando solução há dias e no apuro, então peço socorro.
    O código abaixo está apresentando o seguinte erro:

    Erro em tempo de execução '3075'
    Erro de sintaxe (operador faltando) na expressão de consulta.

    Private Sub Comando0_Click()
    Dim dbAASI As Database
    Dim rsAASI As Recordset
    Dim ConsultaRegistro As Recordset
    Dim strSQL As String
    Dim RegZeros As String
    Set dbAASI = CurrentDb()
    Set rsAASI = dbAASI.OpenRecordset("Tb_Fornecedores", dbOpenDynaset)
       With rsAASI
       strSQL = "SELECT * FROM Tb_Fornecedores WHERE RazaoSocial = " & Me.Ed_Fornecedor & ""
       Set ConsultaRegistro = CurrentDb.OpenRecordset(strSQL)     -----> quando pede para depurar é aqui que o cursor pára.
           If ConsultaRegistro.RecordCount <> 0 Then
               MsgBox "Erro na Consulta de dados!", vbInformation, "Tabela Fornecedores:"
           Else
               Me.Ed_CNPJ = !CNPJ
               Me.Ed_ValorTotal = !ValorTotal
           End If
       End With
       rsAASI.Close
    End Sub



    Editado:
    _______

    A consulta busca por nome de fornecedor, completo, com maiúsculas, acentos e espaços.
    Ex.: Ágil Sys Informática Ltda
    Anexos
    [Resolvido]Consulta SQL com erro de sintaxe AttachmentErro Consulta SQL.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (73 Kb) Baixado 1 vez(es)


    Última edição por lcsantos2019 em Qua 31 Jul - 15:16, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1013
    Registrado : 13/12/2016

    [Resolvido]Consulta SQL com erro de sintaxe Empty Re: [Resolvido]Consulta SQL com erro de sintaxe

    Mensagem  Alexandre Fim em Qua 31 Jul - 15:06

    Olá Luiz,

    Provavelmente o campo RazaoSocial é texto, e ai tem que colocar o APÓSTROFO antes das aspas.
    Segue.


    strSQL = "SELECT * FROM Tb_Fornecedores WHERE RazaoSocial =' " & Trim(Me.Ed_Fornecedor) & " ' "


    Boa sorte !!!


    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    avatar
    lcsantos2019
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 24/04/2019

    [Resolvido]Consulta SQL com erro de sintaxe Empty Re: [Resolvido]Consulta SQL com erro de sintaxe

    Mensagem  lcsantos2019 em Qua 31 Jul - 15:21

    Colega... demais...
    Exatamente. Alterei conforme sugestão e funcionou perfeitamente.
    Muito obrigado mesmo.

    Mas tire uma dúvida: o formato que estava busca por que tipo de campos?
    O que você sugeriu busca por strings, certo?
    Onde posso encontrar algo sobre estes formatos?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1013
    Registrado : 13/12/2016

    [Resolvido]Consulta SQL com erro de sintaxe Empty Re: [Resolvido]Consulta SQL com erro de sintaxe

    Mensagem  Alexandre Fim em Qua 31 Jul - 15:44

    Valeu Luiz cheers
    O fórum agradece !!!

    Respondendo suas perguntas:


    Mas tire uma dúvida: o formato que estava busca por que tipo de campos?

    A sintaxe que vc criou funcionaria para campos numéricos inteiros.
    Ex.: "SELECT * FROM Tb_Fornecedores WHERE CodFornec = 123 "

    Quando se faz pesquisa em campos do tipo texto, é necessário acrescentar o apóstrofo antes das aspas.
    Ex.: "SELECT * FROM Tb_Fornecedores WHERE RazaoSocial ='BANCO BRADESCO S/A' "



    Onde posso encontrar algo sobre estes formatos?

    support.office.com/pt-br/article/introdu%C3%A7%C3%A3o-aos-tipos-de-dados-e-%C3%A0s-propriedades-de-campo-30ad644f-946c-442e-8bd2-be067361987c

    Site do Macoratti (Mestre!!!)

    http://www.macoratti.net/d150102.htm


    Acredito que vai te ajudar em alguma coisa.

    Boa sorte, amigo !!!






    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)

      Data/hora atual: Qua 5 Ago - 21:28