[Resolvido]Erro 13 Tipos Incompativeis em instrução SQL

Ola pessoal preciso de ajuda.

Criei uma consulta para um formulário de busca que funciona perfeitamente.

Fiz algumas mudanças e agora para cada tipo escolhido em uma combo, existe uma instrução SQL que atribuo a propriedade rowsource

Copiei a mesma consulta para a instrução e da erro! " ERRO 13 Tipos Incompatíveis"
Não entendi pela consulta funciona mas quando faço via código da erro !

Meu Código.

===========
Private Sub btnBuscar_Click()
'On Error GoTo Err_Handler

'Primeiro Crio as variaveis
Dim strSQL As String

'Deixo caixa de mensagem invisivel (visible) Falso (False)
Me.txtCaixaMensagem.Visible = False

If IsNull(Me.cboTipoBusca) Then
   'Se a caixa de busca contiver uma valor nulo
   'Mando mensagem para usuario
   Call fncMensagemCri("Ops! Escolha a sua Busca!" & vbCrLf & vbCrLf & "Caixa Busca não pode ter um valor nulo!", "INFORMAÇÃO - Valor Nulo!")
   'Deixo caixa de mensagem visivel (visible) Verdadeiro (true)
   Me.txtCaixaMensagem.Visible = False
   'Passo o foco para a caixa de busca
   Me.cboTipoBusca.SetFocus
   GoTo Exit_Here
   
Else

'Deixo caixa de mensagem visivel (visible) Verdadeiro (true)
Me.txtCaixaMensagem.Visible = True

Me.txtNomeBusca.Visible = True
Me.txtNomeBusca.SetFocus

'Faço um Select na cboTipoBusca
Select Case Me.cboTipoBusca
   Case Is = "Campanhas"

========================aqui da erro=======================================
       'Passo a instrução SQL
       strSQL = "SELECT IDCampanha, dtCam_data, strCam_nome FROM tabCampanhasMidiasSociais"
       strSQL = strSQL & "WHERE strCam_nome LIKE [Formulários]![BuscaGeral_2teste]![txtNomeBusca].[Texto] & " * ";"[/color]
       
==================================================================================
           'Deixo a caixa de listagem listBuscaEscolhida visivel (visible) verdadeira (True)
           Me.listBuscaEscolhida.Visible = True
               'Passo a instrução SQL para a caixa de listagem
               Me.listBuscaEscolhida.RowSource = strSQL
               GoTo Exit_Here

Toda ajuda é bem vinda.

Obrigado Pessoal

Bom dia
Será
strSQL = "SELECT IDCampanha, dtCam_data, strCam_nome FROM tabCampanhasMidiasSociais "
strSQL = strSQL & "WHERE strCam_nome LIKE [Formulários]![BuscaGeral_2teste]![txtNomeBusca].[Texto] & " *"

Ola Alexandre....

Me desculpe, na hora de copiar eu quis dar um destaque ao erro e colei errado!

       strSQL = "SELECT IDCampanha, dtCam_data, strCam_nome FROM tabCampanhasMidiasSociais"
       strSQL = strSQL & "WHERE strCam_nome LIKE [Formulários]![BuscaGeral_2teste]![txtNomeBusca].[Texto] & " * " "

O codigo é exatamente este igual a sua proposta mas continua dando erro. Porem o erro esta na segunda linha:
       strSQL = strSQL & "WHERE strCam_nome LIKE [Formulários]![BuscaGeral_2teste]![txtNomeBusca].[Texto] & " * " "
Pois ela que fica amarela.

O que ta valendo é o código acima, agora colei certo!  
Obrigado e me desculpe.

Bom dia
Poderá ser
strSQL = strSQL & "WHERE strCam_nome LIKE '" & [Formulários]![BuscaGeral_2teste]![txtNomeBusca].[Texto] & "' * "

Senhores bom dia,

Aproveitando só pra deixar uma sugestão, que ajuda na criação de instruções e evitar alguns erros.

@elmanojr, sempre que puder, utilize variáveis no seu código para receber valor de um determinado objeto do seu formulário.

Ex.:

Dim strNome as Variant

strNome = [Formulários]![BuscaGeral_2teste]![txtNomeBusca].[Texto]

Substitua o controle do formulário pela variável.
strSQL = strSQL & "WHERE strCam_nome LIKE '" & strNome & "' * "

Espero ter ajudado

Ola Fernando, obrigado pela ajuda porem infelizmente não deu certo!

Agora deu outro tipo de erro:
Erro em tempo de execução '2465'
O controle Projetos Internet não pode localizar o campo '|1' referido em sua expressão.

e aponta para qdo passo o valor para a variável:
strNome = [Formulários]![BuscaGeral_2teste]![txtNomeBusca].[Texto]


Obs: Estou usando ([Formulários]![BuscaGeral_2teste]![txtNomeBusca].[Texto]) em uma consulta para fazer uma busca de registros em um frm.
Coloco a consulta em um campo tipo Lista não acoplado na propriedade Origem da linha (RowSource). Aqui dá certo.
Faço a consulta no editor de consultas e tudo bem.
Agora quando faço via código esta dando este erro.
Alguma sugestão?

Muito Obrigado pela ajuda!
abraço

Boa noite,
Coloque a parte da bd com dados relevantes e explique os passos que precisa, para se avaliar

Boa noite ,
Em anexo esta o BD com uma tabela,mais 3 form e mais os modulos necessários para obtoes, mensagens etc...

Somente lembrando:

B_BuscaGeral, é o frm que dá o erro, minha caixa de listagem não aparece nada com a instrução SQL

      strSQL = "SELECT IDCampanha, dtCam_data, strCam_nome FROM tabCampanhasMidiasSociais;"
      strSQL = strSQL & " WHERE strCam_nome LIKE '" & strNome & "' * ;"
      strSQL = strSQL & " ORDER BY tabCampanhasMidiasSociais.strCam_nome;"


Ja o BuscaGeral, aparece tudo certo com a instrução SQL .

      strSQL = "SELECT IDCampanha, dtCam_data, strCam_nome FROM tabCampanhasMidiasSociais"


Não são iguais,

Agradeço todo ajuda!
Abraço

Boa tarde
Não explicou como se chega ao erro

Ola me desculpe não expliquei como se chega ao erro.

Vamos lá:
A ideia é escolher um tópico em uma combobox, e quando clicar em buscar, o resultado apareça em uma lista box.
Logo após clicar em buscar é habilitado um campo não acoplado para ser digitado o nome da busca.(Neste caso na tabela CAMPANHAS)
Conforme é digitado o nome no campo já é feito um filtro para aparecer na listBox.

O que acontece:
Quando seleciono Na ComboBox "Campanhas" e clico em buscar. Aparentemente a busca é feita porem não aparece nada na listbox.

O código abaixo é o que acontece isto:
strSQL = "SELECT IDCampanha, dtCam_data, strCam_nome FROM tabCampanhasMidiasSociais;"
strSQL = strSQL & " WHERE strCam_nome LIKE '" & strNome & "' * ;"
strSQL = strSQL & " ORDER BY tabCampanhasMidiasSociais.strCam_nome;"

Então fiz um outro frm e coloquei o codigo abaixo via SQL e funciona:

strSQL = "SELECT IDCampanha, dtCam_data, strCam_nome FROM tabCampanhasMidiasSociais"

Ou seja aparece o resultado na listbox.
Porem falta fazer o filtro para que quando for digitando vá filtrando e fazendo a busca do nome escolhido na tabela Campanhas na listbox.


Me desculpem
Obrigado pela ajuda
Abraço

Boa tarde
Explicou tanto o que faz, que nem sei se o erro está quando prime em "buscar" ou se está quando vai digitando na caixa de texto "busca de nome"
1 - preencho isto
2 - primo isto
3 -...
4 -devia aparecer isto na caixa de listagem

Olá Gente boa!

Eu acho o seguinte;


strSQL = "SELECT IDCampanha, dtCam_data, strCam_nome FROM tabCampanhasMidiasSociais;"
strSQL = strSQL & " WHERE strCam_nome LIKE '" & strNome & "' * ;"
strSQL = strSQL & " ORDER BY tabCampanhasMidiasSociais.strCam_nome;"

Não está colorindo pra facilitar, então  o ( ; ) final da primeira e segunda frase não existe.

Experimente assim:

strSQL = "SELECT IDCampanha, dtCam_data, strCam_nome FROM tabCampanhasMidiasSociais " & _
                "WHERE strCam_nome = '" & strNome & "'" & _
                "ORDER BY tabCampanhasMidiasSociais.strCam_nome;"

{ }'s

Balem

Ola Alexandre,

Não esta mais dando erro 13 tipos incompatíveis. (Erro solucionado)

O que acontece é que minha busca não aparece na listbox.

1-Seleciona a tabela na combobox para a busca. "CAMPANHAS"

2-Clique no botão buscar!
executa a SQL

3- Deveria aparece o resultado da instrução no listbox
NÃO APARECE NADA!

4-Digitar o nome procurado e este seria filtrado na listbox.
NÃO ACONTECE NADA!

No exemplo tenho dois formulários para demonstrar. No DB anexo

Voce teria outra solução para criar um formulario de busca dinamico?

Obrigado
Abraço

Elmano

Dúvida do tópico resolvida.

Poderia ter colocado a solução que encontrou.

Peço que feche o tópico, clicando no botão resolvido,
na parte de baixo da página de edição de mensagens.

Para mante o fórum de fácil pesquisa para dúvidas,
peço que abra novo tópico para a nova dúvida.

{ }'s

Balem

Ok

O erro estava na atribuição da variável:

Dim strNome As String
strNome = "[Formulários]![B_BuscaGeral]![txtNomeBusca].[Texto]"

se é uma string tem que estar entre aspas duplas.

Valeu obrigado