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

    avatar
    lcsantos2019
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  lcsantos2019 em 31/7/2019, 18: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 31/7/2019, 19:16, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim em 31/7/2019, 19: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 : 15
    Registrado : 24/04/2019

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

    Mensagem  lcsantos2019 em 31/7/2019, 19: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 : 819
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim em 31/7/2019, 19: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)

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/9/2019, 21:45