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

    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 29/1/2018, 13:28

    Bom dia,

    Tenho esta linha de código no VBA que se encontra em: Um relatório, Detalhe, ao pintar

    ----------------------------------
    Código:
    Option Compare Database
    Private Sub Detalhe_Paint()

    If Me!Texto26.Value <= 30 Then
    Texto26!BackColor = vbRed
    Me!Rótulo27.Caption = "Situação extremamente crítica. Atenção!!!)"

    ElseIf Me!Texto26.Value <= 60 Then
    Texto26!BackColor = vbYellow
    Me.Rótulo27.Caption = "Vencimento dentro de 60 dias. Atenção!!!)"

    'Me.Texto4.BackColor = RGB(61, 145, 64)

    ElseIf Me!Texto26.Value <= 90 Then
    Texto26.BackColor = vbGreen
    Me.Rótulo27.Caption = "Vencimento dentro de 90 dias"

    Else

    Me.Texto26!BackColor = vbWhite
    Me.Rótulo27.Caption = "Situação Regular"

    End If

    End Sub
    ------------------------------
    Ao abrir o relatório no modo visualização, aparece a mensagem: Tipos incompatíveis.

    Nesta parte:    If Me!Texto26.Value <= 30 Then

    O relatório na visualização fica piscando intermitentemente. já tentei mudar esta ! (Antes de Texto26 para .) também não deu certo.

    Alguém pode dar alguma dica para este probleminha?

    Ah, o campo Texto26 é uma caixa de texto.
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1176
    Registrado : 07/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  tauron em 29/1/2018, 14:07

    Ja tentou tirar o ".value"?
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 29/1/2018, 14:16

    Tentei. Inclusive a linha: Texto26!BackColor = vbRed também está acusando tipo incompatíveis.
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 29/1/2018, 14:19

    Na fonte do controle da Caixa de Texto: Texto26 há uma fórmula: =DifData("d";Data();[Vigencia]). é uma fórmula. Será que tem haver?
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 368
    Registrado : 23/01/2017

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  thiagomcosta em 29/1/2018, 15:26

    É bem provável que seja a fórmula. [Vigencia] é formato data?
    Tente usar:
    Código:
    DifData("d";Data();CDate([Vigencia]))
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 5/2/2018, 12:55

    Deu certo, mas percebi que as cores não estão batendo com as fórmulas, não entendi o porque. Como corrigir?

    Fórmula:

    Option Compare Database
    Private Sub Detalhe_Paint()

    If Me!Texto26.Value <= 30 Then ** (TERIA QUE APARECER VERMELHO NOS VALORES ABAIXO DE 30) Não aparece.
    Texto26!BackColor = vbRed
    Me!Rótulo27.Caption = "Situação extremamente crítica. Atenção!!!)"

    ElseIf Me!Texto26.Value <= 60 Then ** (mesmo caso) Não aparece.
    Texto26!BackColor = vbYellow
    Me.Rótulo27.Caption = "Vencimento dentro de 60 dias. Atenção!!!)"

    ElseIf Me!Texto26.Value <= 90 Then ** (mesmo caso) Não aparece.
    Texto26.BackColor = vbGreen
    Me.Rótulo27.Caption = "Vencimento dentro de 90 dias"

    Else

    Me.Texto26!BackColor = vbWhite
    Me.Rótulo27.Caption = "Situação Regular"

    End If

    End Sub
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1176
    Registrado : 07/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  tauron em 5/2/2018, 14:40

    tente assim

    Option Compare Database

    Private Sub Detalhe_Paint()

    If Me.Texto26.Value <= 30 Then
    Texto26.BackColor = vbRed
    Me.Rótulo27.Caption = "Situação extremamente crítica. Atenção!!!)"

    ElseIf Me.Texto26.Value <= 60 Then
    Texto26.BackColor = vbYellow
    Me.Rótulo27.Caption = "Vencimento dentro de 60 dias. Atenção!!!)"

    ElseIf Me.Texto26.Value <= 90 Then
    Texto26.BackColor = vbGreen
    Me.Rótulo27.Caption = "Vencimento dentro de 90 dias"

    Else

    Me.Texto26.BackColor = vbWhite
    Me.Rótulo27.Caption = "Situação Regular"

    End If

    End Sub
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 5/2/2018, 17:09

    Tentei. Tá pintado tudo de amarelo. no modo Exibição de relatório.
    E no modo Visualização de impressão está pintando tudo de amarelo.
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 368
    Registrado : 23/01/2017

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  thiagomcosta em 5/2/2018, 17:31

    Tente usar

    VAL(Me.Texto26.Value )

    nas linhas com IF
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1176
    Registrado : 07/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  tauron em 5/2/2018, 17:44

    Poste seu bd para que possamos analisar melhor.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  Noobezinho em 5/2/2018, 17:47

    Thiago


    Dica: =Usa-se o ! quando refere-se a controles do formulário e . (Ponto) para propriedades.

    Então, veja:

    Me!Texto26!BackColor = vbRed  para Me!Texto26.BackColor = vbRed

    Código:

    Option Compare Database
    Private Sub Detalhe_Paint()

    If Me!Texto26.Value <= 30 Then
       Me!Texto26.BackColor = vbRed
       Me!Rótulo27.Caption = "Situação extremamente crítica. Atenção!!!)"

    ElseIf Me!Texto26 <= 60 Then
             Me!Texto26.BackColor = vbYellow
             Me!Rótulo27.Caption = "Vencimento dentro de 60 dias. Atenção!!!)"

    'Me.Texto4.BackColor = RGB(61, 145, 64)

    ElseIf Me!Texto26 <= 90 Then
            Me!Texto26.BackColor = vbGreen
            Me!Rótulo27.Caption = "Vencimento dentro de 90 dias"

    Else

            Me!Texto26.BackColor = vbWhite
            Me!Rótulo27.Caption = "Situação Regular"

    End If

    End Sub


    Veja se funfa

    [ ]'s
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1176
    Registrado : 07/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  tauron em 5/2/2018, 18:10

    No formato "Visualizacao de impressao" nao funfa.

    Tente assim:
    coloque o codigo no evento "ao carregar";

    defina o evento pop up como "sim"

    modo padrao: visualizacao de impressao
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 6/2/2018, 13:09

    Segui todas as orientações de vocês amigos. Ainda não pinta.

    Envio o banco para análise.
    Anexos
    [Resolvido]Tipos Incompatíveis - VBA AttachmentHistorico Processos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (385 Kb) Baixado 5 vez(es)
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1176
    Registrado : 07/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  tauron em 6/2/2018, 14:17

    Amigo, qual seria mesmo o relatorio em questao?

    Olhando o relatorio "vigcontrato" notei que seu codigo menciona uma parte do relatorio e os campos em questao se encontram em outra:

    Seria isto?
    Anexos
    [Resolvido]Tipos Incompatíveis - VBA AttachmentHistorico ProcessosMod.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (394 Kb) Baixado 13 vez(es)
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  Noobezinho em 6/2/2018, 16:17

    Exatamente Tauron

    Percebi a mesma coisa, estava digitando quando mandou mensagem, dai apaguei a minha.

    O Relatório chamado pelo form Pesquisa avançada é o relatório com o mesmo nome que

    não tem nada no VBA.

    O Relatorio VigContrato que tem  código VBA na propriedade Pintar do detalhe, tem

    campos que não tem no formulário.

    Marco: Dê nome aos seu controles é justamente por isso que você está confuso.

    Está chamando controle que não existe , dai fica muito difícil.

    Faça um pente fino no teu projeto:

    Nomeie também as tabelas, formulários, consultas e relatórios:

    tbl_Nometabela,  frm_Nomefor.cons_NomeCliente, rel_NomeRelatório

    Conserte, que depois se ainda não conseguir, anexe o projeto, que ajudaremos.

    [ ]'s
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 6/2/2018, 17:34

    Boa tarde,

    O relatório é o VigContrato
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1176
    Registrado : 07/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  tauron em 6/2/2018, 17:36

    Então no anexo da minha ultima mensagem a questao das cores esta funfando so falta agora a organizacao e definicao dos objetos.
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 6/2/2018, 17:37

    As cores não aparecem no meu e nem o status da situação.
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1176
    Registrado : 07/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  tauron em 6/2/2018, 17:51

    Você baixou o anexo da minha mensagem (14)?
    Cláudio Más
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1276
    Registrado : 21/01/2012

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  Cláudio Más em 6/2/2018, 17:57

    edjunho, o mais indicado para resolver a questão das cores é com a formatação condicional (o que não impede a solução do tauron).
    Clique com o botão direito do mouse no controle Texto23, depois em "Formatação Condicional" e "Nova regra".

    Quanto ao status da situação, qual campo do relatório se refere a esse status?


    Última edição por Cláudio Más em 6/2/2018, 18:01, editado 1 vez(es)
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 6/2/2018, 18:00

    Vou dar uma olhada Tauron. Não sabia que estava com modificações.
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 6/2/2018, 18:13

    Cláudio, teria um exemplo.
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 6/2/2018, 18:16

    Tauron,

    Simulei algumas datas para acertar os parâmetros.
    30, 60 e 90 dias.

    Deu certo mesmo. Mas no modo "Modo de exibição de relatório" os relatório fica piscando.
    ...no modo "Visualizar impressão" não aparece as cores.

    Sinto que está perto a solução. Falta só este detalhe.
    Cláudio Más
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1276
    Registrado : 21/01/2012

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  Cláudio Más em 6/2/2018, 18:59

    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 6/2/2018, 19:04

    Desculpe, Faltou o anexo.
    Anexos
    [Resolvido]Tipos Incompatíveis - VBA AttachmentHistorico ProcessosMod2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (389 Kb) Baixado 8 vez(es)
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1176
    Registrado : 07/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  tauron em 6/2/2018, 20:23

    Edson sabe porque ainda ao resolveu? Porque estamos lhe mostrando as alternativas e vc continua tentando impor seu codigo.

    No meu exemplo, o codigo comeca com:

    Private Sub Report_Load()

    O que quer dizer que independentemente de onde o campo em questao esteja localizado.

    E voce continua insistindo no seu codigo:

    Private Sub Detalhe_Paint()

    E, ainda, tem a opcao da Formatacao Condicional.

    Amigo mais, uma vez lhe pergunto se vc baixou e observou o anexo da mensagem 14?
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 7/2/2018, 00:31

    Tauron, você tem toda razão. Troquei pra reload (ao carregar). Funcionou. No entanto. Algo estranho acontece.

    "Modo de exibição de relatório" as cores ficam todas amarelas. Valores encontrados: 22, 113, 53. O 113 deveria ficar branco, o 22 vermelho, e o 53 amarelo.
    ...no modo "Visualizar impressão" as cores ficam todas vermelhas.

    Código corrigido:

    Private Sub Report_Load()

    If Me!Texto23.Value <= 30 Then
    Me!Texto23.BackColor = vbRed
    Me!Rótulo24.Caption = "Situação extremamente crítica. Atenção!!!)"

    ElseIf Me!Texto23.Value <= 60 Then
    Me!Texto23.BackColor = vbYellow
    Me!Rótulo24.Caption = "Vencimento dentro de 60 dias. Atenção!!!)"

    'Me.Texto4.BackColor = RGB(61, 145, 64)

    ElseIf Me!Texto23.Value <= 90 Then
    Me!Texto23.BackColor = vbGreen
    Me!Rótulo24.Caption = "Vencimento dentro de 90 dias"

    Else

    Me!Texto23.BackColor = vbWhite
    Me!Rótulo24.Caption = "Situação Regular"

    End If

    End Sub

    Vou tentar pela sugestão do amigo Cláudio, mas vai continuar a dúvida no VBA. Queria justamente entender.
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 7/2/2018, 00:32

    Tauron, baixei o arquivo da mensagem 14. Testei por ele.
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1176
    Registrado : 07/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  tauron em 7/2/2018, 10:27

    Edson, esta muito estranho seu relato, observe nas imagens
    Anexos
    [Resolvido]Tipos Incompatíveis - VBA AttachmentHistorico.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (177 Kb) Baixado 2 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  Silvio em 7/2/2018, 11:22

    Bom dia a todos, se me permitem um pitaco....

    Fiz desse modo e funcionou perfeitamente.

    [Resolvido]Tipos Incompatíveis - VBA <a href=[Resolvido]Tipos Incompatíveis - VBA Forum12" />


    .................................................................................
    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."
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 7/2/2018, 11:34

    Amigo Silvio, foi a sugestão do Cláudio. Vou empreender deste modo e darei o retorno. Muito obrigado também pela ajuda Silvio.
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Tipos Incompatíveis - VBA Empty Re: [Resolvido]Tipos Incompatíveis - VBA

    Mensagem  edjunho em 15/2/2018, 12:43

    Deu certo a questão das cores. Muito obrigado a todos pela ajuda. Aprendizado muito útil.

      Data/hora atual: 26/5/2020, 10:00