MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Erro numa instrução em SQL.

    Compartilhe

    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

    [Resolvido]Erro numa instrução em SQL.

    Mensagem  clynton em Qui 28 Maio 2015, 19:03

    Boa tarde senhoras e senhores.

    Estou com erro na seguinte instrução que se encontra num módulo:
    Código:
    Public Const strCódigoCre As String = "SELECT Tab_Códigos_de_Barras.Código, Tab_Códigos_de_Barras.País, Tab_Códigos_de_Barras.Marca, Tab_Códigos_de_Barras.Produto, Tab_Códigos_de_Barras.Sabor, Tab_Códigos_de_Barras.Tipo, Tab_Códigos_de_Barras.Conteúdo, Tab_Códigos_de_Barras.[Código de Barras], Tab_Códigos_de_Barras.[Caminho da Imagem do Código de Barras] FROM Tab_Códigos_de_Barras WHERE Tab_Códigos_de_Barras.País Like '*" & Forms!Frm_Códigos_de_Barras!Pesquisar & "*' ORDER BY Tab_Códigos_de_Barras.Código;"

    Erro:

    Erro de compilação:

    Expressão constante obrigatória

    [ OK ] [ Ajuda ]


    O '&' fica em destaque.

    Rodando numa propriedade do campo na tela usando a instrução abaixo, funciona perfeitamente.
    O erro só é apresentado da forma descrita acima.

    Código:
    Dim strCódigoCre As String

        strCódigoCre = "SELECT Tab_Códigos_de_Barras.Código, Tab_Códigos_de_Barras.País, Tab_Códigos_de_Barras.Marca, Tab_Códigos_de_Barras.Produto, Tab_Códigos_de_Barras.Sabor, Tab_Códigos_de_Barras.Tipo, Tab_Códigos_de_Barras.Conteúdo, Tab_Códigos_de_Barras.[Código de Barras], Tab_Códigos_de_Barras.[Caminho da Imagem do Código de Barras] FROM Tab_Códigos_de_Barras WHERE Tab_Códigos_de_Barras.País Like '*" & Forms!Frm_Códigos_de_Barras!Pesquisar & "*' ORDER BY Tab_Códigos_de_Barras.Código;"

    Windows 7
    Access XP

    Desde já agradeço a atenção.


    .................................................................................
    Cumprimentos...


    Atenciosamente,
    Rogério Clynton Ribeiro


    __________________________________________________________________________

    "Ninguém é tão grande que não possa aprender e nem tão pequeno que não possa ensinar."

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Erro numa instrução em SQL.

    Mensagem  Alexandre Neves em Sex 29 Maio 2015, 16:19

    Boa tarde,
    Código:
    Public strCódigoCre As String
    strCódigoCre = "SELECT Código, País, Marca, Produto, Sabor, Tipo, Conteúdo, [Código de Barras], [Caminho da Imagem do Código de Barras] FROM Tab_Códigos_de_Barras WHERE País Like '*" & Forms!Frm_Códigos_de_Barras!Pesquisar & "*' ORDER BY Código;"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

    Re: [Resolvido]Erro numa instrução em SQL.

    Mensagem  clynton em Sab 30 Maio 2015, 00:08

    Muito obrigado caro Alexandre!

    Abraço...


    .................................................................................
    Cumprimentos...


    Atenciosamente,
    Rogério Clynton Ribeiro


    __________________________________________________________________________

    "Ninguém é tão grande que não possa aprender e nem tão pequeno que não possa ensinar."

      Data/hora atual: Sex 09 Dez 2016, 13:28