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

    [Resolvido]Erro: Tipos Incompatíveis

    avatar
    davidmadureira
    Novato
    Novato

    Respeito às regras : 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 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 : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 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 : 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 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 : Respeito às Regras 100%

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

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

    Mensagem  caiosouza 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


    .................................................................................
    Caio Souza

    Engenheiro de Software
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 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 : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 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 : 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 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 : 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 15/12/2017, 20:47

    Fechando o tópico

      Data/hora atual: 21/4/2021, 17:27