MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

4 participantes

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

    avatar
    elmanojr
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 20/07/2017

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

    Mensagem  elmanojr Sab 27 Mar 2021, 12:12 pm

    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 06/11/2009

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

    Mensagem  Alexandre Neves Sab 27 Mar 2021, 4:16 pm

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


    .................................................................................
    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
    elmanojr
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 20/07/2017

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

    Mensagem  elmanojr Seg 29 Mar 2021, 5:15 am

    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!  Smile
    Obrigado e me desculpe.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 06/11/2009

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

    Mensagem  Alexandre Neves Seg 29 Mar 2021, 2:27 pm

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


    .................................................................................
    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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1781
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim Seg 29 Mar 2021, 8:02 pm

    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
    avatar
    elmanojr
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 20/07/2017

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

    Mensagem  elmanojr Sex 02 Abr 2021, 3:30 am

    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 06/11/2009

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

    Mensagem  Alexandre Neves Sex 02 Abr 2021, 3:39 am

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


    .................................................................................
    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
    elmanojr
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 20/07/2017

    [Resolvido]Erro 13 Tipos Incompativeis em instrução SQL Empty erro 13 ou tipos incompativeis em instrução SQL

    Mensagem  elmanojr Sex 16 Abr 2021, 6:42 am

    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
    Anexos
    [Resolvido]Erro 13 Tipos Incompativeis em instrução SQL AttachmentTesteControleProjetos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (117 Kb) Baixado 4 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 06/11/2009

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

    Mensagem  Alexandre Neves Sex 16 Abr 2021, 8:23 pm

    Boa tarde
    Não explicou como se chega ao erro


    .................................................................................
    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
    elmanojr
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 20/07/2017

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

    Mensagem  elmanojr Sab 17 Abr 2021, 6:54 am

    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 06/11/2009

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

    Mensagem  Alexandre Neves Sab 17 Abr 2021, 9:18 pm

    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


    .................................................................................
    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
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho Sab 17 Abr 2021, 9:51 pm

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    elmanojr
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 20/07/2017

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

    Mensagem  elmanojr Ter 20 Abr 2021, 1:05 am

    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

    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho Ter 20 Abr 2021, 2:20 am

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    elmanojr
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 20/07/2017

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

    Mensagem  elmanojr Ter 20 Abr 2021, 7:06 am

    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


      Data/hora atual: Qui 23 Set 2021, 5:22 am