[Resolvido]Tipos Incompatíveis - VBA

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.

Ja tentou tirar o ".value"?

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

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

É bem provável que seja a fórmula. [Vigencia] é formato data?
Tente usar:

Código:

DifData("d";Data();CDate([Vigencia]))

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

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

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.

Tente usar

VAL(Me.Texto26.Value )

nas linhas com IF

Poste seu bd para que possamos analisar melhor.

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

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

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

Envio o banco para análise.

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?

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

Boa tarde,

O relatório é o VigContrato

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

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

Você baixou o anexo da minha mensagem (14)?

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?

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

Cláudio, teria um exemplo.

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.

Desculpe, Faltou o anexo.

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?

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.

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

Edson, esta muito estranho seu relato, observe nas imagens

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

Fiz desse modo e funcionou perfeitamente.

" />

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

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