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: Tipos Incompatíveis

    avatar
    davidmadureira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 14/12/2017

    [Resolvido]Erro: Tipos Incompatíveis Empty [Resolvido]Erro: Tipos Incompatíveis

    Mensagem  davidmadureira em 14/12/2017, 19:32

    Pessoal, estou com um problema em um formulário que eu supostamente usaria para abrir um relatório(RPT_PRAZOS_PLANEJAMENTO) baseado em uma consulta (QRY_PRAZOS_GERAL).

    No botão executar(Comando2) do formulário que criei (formulario1) estou tentando colocar o seguinte código para aplicar os dois filtros que preciso, mas sempre dá um erro de execução 13 "Tipos Incompatíveis". já tentei mudar de tudo que é jeito os tipos das variantes, formato do campo, etc (os campos estão do tipo caixa de combinação). Conseguem me ajudar?

    Código:
    Private Sub Comando2_Click()

    Dim strDocName As String
    Dim strFilterADV As String
    Dim strFilterDTI As String

    strDocName = "RPT_PRAZOS_PLANEJAMENTO"
    strFilterADV = "COD_ADV = " & Me!txt_teste
    strFilterDTI = "COD_TP_PRAZO =" & Me!txt_tpprazo

    DoCmd.OpenReport strDocName, acViewPreview, , strFilterDTI And strFilterADV


    End Sub
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Erro: Tipos Incompatíveis Empty Re: [Resolvido]Erro: Tipos Incompatíveis

    Mensagem  FabioPaes em 14/12/2017, 19:46

    Olá, seja bem vindo ao Forum!!!

    Vamos analisar seu Filtro:

    strFilterADV = "COD_ADV = " & Me!txt_teste
    strFilterDTI = "COD_TP_PRAZO =" & Me!txt_tpprazo

    Imagina que no strFilterADV vc coloque 1021, entao ficará ( COD_ADV = 1021 ), Correto?
    no strFilterDTI vc coloque 14/12/2017, entao ficará ( COD_TP_PRAZO =14/12/2017 ), Correto?


    Agora, se vc junta elas no Filtro: , strFilterDTI And strFilterADV

    Ficará assim:  COD_ADV = 1021AndCOD_TP_PRAZO =14/12/2017 <=== Primeiro problema é a falta de Espaços.



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    davidmadureira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 14/12/2017

    [Resolvido]Erro: Tipos Incompatíveis Empty Re: [Resolvido]Erro: Tipos Incompatíveis

    Mensagem  davidmadureira em 14/12/2017, 19:54

    Fábio, obrigado pela resposta.

    Coloquei os espaços, mas o erro persiste.

    veja:

    Código:
    DoCmd.OpenReport strDocName, acViewPreview, , strFilterDTI & " " And " " & strFilterADV
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 416
    Registrado : 05/12/2016

    [Resolvido]Erro: Tipos Incompatíveis Empty Re: [Resolvido]Erro: Tipos Incompatíveis

    Mensagem  caiosouza em 15/12/2017, 10:35

    Teste:

    Código:
    Private Sub Comando2_Click()
    Dim strDocName As String
    Dim strFilterADV, strFilterDTI

    strDocName = "RPT_PRAZOS_PLANEJAMENTO"
    strFilterADV = Me.txt_teste
    strFilterDTI = Me.txt_tpprazo

    DoCmd.OpenReport strDocName, acViewPreview, "[COD_ADV]=" & strFilterADV And "[COD_TP_PRAZO]=" & strFilterDTI

    End Sub


    .................................................................................
    A persistência leva ao sucesso!
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4576
    Registrado : 20/04/2011

    [Resolvido]Erro: Tipos Incompatíveis Empty Re: [Resolvido]Erro: Tipos Incompatíveis

    Mensagem  Silvio em 15/12/2017, 10:36

    Bom dia....

    Com a permissão dos colegas, tenho uma pergunta...

    Os campos: Me!txt_teste e Me!txt_tpprazo se encontram no mesmo formato de datas ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Erro: Tipos Incompatíveis Empty Re: [Resolvido]Erro: Tipos Incompatíveis

    Mensagem  FabioPaes em 15/12/2017, 12:39

    So lembrando que datas devem ser Formatadas para o Formato mm/dd/yyyy e ainda estarem entre ##.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    davidmadureira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 14/12/2017

    [Resolvido]Erro: Tipos Incompatíveis Empty Re: [Resolvido]Erro: Tipos Incompatíveis

    Mensagem  davidmadureira em 15/12/2017, 20:46

    Consegui pessoal. Mas fiz pelo campo critérios da consulta na qual o relatório está baseado. Assim ele pega os campos do form como referênca para fazer os filtros. Obrigado.
    avatar
    davidmadureira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 14/12/2017

    [Resolvido]Erro: Tipos Incompatíveis Empty Re: [Resolvido]Erro: Tipos Incompatíveis

    Mensagem  davidmadureira em 15/12/2017, 20:47

    Fechando o tópico

      Data/hora atual: 2/6/2020, 11:23