[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

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.

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 ,
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

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

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