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]Erro numa instrução em SQL.

    Compartilhe
    avatar
    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."
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6391
    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
    avatar
    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: Qua 20 Set 2017, 20:55