Runsql E Text

[ClaudioX]

OLá pessoal,

Estou tentando fazer em um Form o seguinte aspecto:

Colocar um campo de busca em que sera digitado um texto, ao apertar o botao CONSULTAR, ele procura em uma tabela os valores que coincidem com o que o usuario digito... exibindo o resultado em uma Caixa de Listagem (acho que da pro gasto... :) ), porem ao executar o codigo da um erro de tipos incompativeis... :(

Como que eu poderia contornar isso? por que acontece?

valeu pela ajuda de sempre aí,

  Dim stDocName As String

  stDocName = "SELECT MATERIAIS.REFERENCIA FROM MATERIAIS WHERE (((MATERIAIS.REFERENCIA) Like [Forms]![Formulário1].[Texto3] & " * "));"
    DoCmd.RunSQL (stDocName)

Obrigado!!

[Graymalkin]

Qual é o tipo do campo MATERIAIS.REFERENCIA? Se for do tipo texto, você deveria cercar o texto a ser procurado com aspas simples (').

Abraços,

Graymalkin

[ClaudioX]

valeu pela ajuda aí Graymalkin!!

Mas está dificil mesmo...

Tipow, você quer dizer que eu devo colocar aspas simples no texto que vai ser buscado correto?

- (e sim o campo MATERIAIS.REFERENCIA é de texto)

Tentei de várias formas isso, dentre elas cheguei a isso :ph34r:

    Dim stDocName As String
    Dim CampodeBusca As String
    CampodeBusca = Chr(34) & Me.Texto3 & Chr(34)
                
    stDocName = "SELECT LEIS.REFERENCIA FROM LEIS WHERE (((LEIS.REFERENCIA) Like " * " & [CampodeBusca] & " * "));"
    DoCmd.RunSQL (stDocName)

Mas prossegue o aviso... tentei também, inserir o aspas no Tipo text mas não funcionou, era isso mesmo que você quis dizer? Se for, poderia dizer a maneira correta de se fazer isso?

Desculpa se estou abusando, já sou grato pela atencao e apoio

valeu

[Graymalkin]

Chr(34) é aspas duplas e não simples, se bem que serviria do mesmo jeito. Só que você não está estruturando a SQL de um jeito válido; dê uma olhada em como eu faria:

    stDocName = "SELECT LEIS.REFERENCIA FROM LEIS WHERE LEIS.REFERENCIA Like '*" & Me.Texto3 & "*';"
    DoCmd.RunSQL (stDocName)

Faça um msgbox stDocname no código acima e no seu e você vai notar as diferenças.

Abraços,

Graymalkin

[ClaudioX]

valeu aí Graymalkin!!!

Acabei fazendo uma macro com a Query (a sua syntaxe realmente funcionou) ai aciono ela pela CaixaDeListagem, no botao dei um simples Lista16.Requery e funcionou, obrigadao pela ajuda!!!

Mas ainda fico uma pulga atras da orelha de porque não funfou... a ultima mensagem de erro que tive foi essa:

Uma acao ExecutarSQL requer um argumento consistindo de uma instrucao SQL.

Acho que é por que eu tinha que fazer algo com o resultado do Select, mas a operacao:

Lista16 = DoCmd.RunSQL (stDocName)

não é aparentemente permitida... queria fazer mais coisas em vb do que em macros... :ph34r:

Se você puder ensinar o porque da mensagem acima seria ótimo, mas agradeço muuito a ajuda!!

Obrigadao aí mano!!!!!!

- Ficou essa curiosidade minha, mas o problema foi resolvido!

Obrigadao !!!

T+

[Graymalkin]

Provavelmente essa mensagem apareceu porque a instrução SQL passada não estava válida.

Abraços,

Graymalkin