[Resolvido]SINALIZAR COM IMAGEM

Prezados,

Mais uma vez estou solicitando um "help" dos professores.
Tenho um formulário onde são listados vários percentuais (campo ctPercent)
Gostaria de colocar, sempre que o percentual fosse menor que 100%,
uma imagem ao lado do percentual (imgNegativo), por exemplo, uma bola vermelha e quando fosse maior do que 100%, uma bola azul (imgPositivo).
Nessa maneira usei a propriedade Visible da imagem, mas não funcionou.

Experimentei uma caixa de texto ao lado do percentual, alterando
o backcolor conforme o valor do percentual, mas não consegui fazer
funcionar corretamente.

Abaixo códigos que coloquei e não funcionaram:
============================================
Private Sub Form_Current()
If Me.ctPercent.Value > 1 Then
Me.imgPositivo.Visible = True 'imagem bolinha Azul
Me.imgNegativo.Visible = False 'imagem bolinha Vermelha
End If
If Me.ctPercent.Value < 1 Then
Me.imgPositivo.Visible = False
Me.imgNegativo.Visible = True
End If
End Sub
============================================
Private Sub Form_Current()
Select Case Me.ctCheckPerc
Case "P"
Me.ctCheckPerc.BackColor = vbBlue
Case "N"
Me.ctCheckPerc.BackColor = vbRed
Case Else
Me.ctCheckPerc.BackColor = vbWhite
End Select
Me.ctCheckPerc.Requery
============================================
Private Sub ctCheckPerc_AfterUpdate()
If Me.ctCheckPerc.Value = "P" Then
Me.ctCheckPerc.ForeColor = QBColor(15)
Me.ctCheckPerc.BackColor = QBColor(9)
End If
If Me.ctCheckPerc.Value = "N" Then
Me.ctCheckPerc.ForeColor = QBColor(15)
Me.ctCheckPerc.BackColor = QBColor(12)
End If
End Sub
============================================
Se os amigos tiverem uma idéia, agradeço desde já.

Esqueci de dizer que o tipo de formulário é contínuo.

OBS: Como sou novo no Forum, gostaria de saber onde fica o botão RESOLVIDO,
para acionar quando o problema estiver solucionado.

Abraço

Formulário contínuo é meio complicado de se fazer isso, é diferente de formulário simples. Se você quiser usar uma caixa de texto, use formatação condicional com a expressão [CampoPercentual]<100. Pode colocar apenas uma condição e deixar a cor normal para quando não satisfazer a condição. Por exemplo, se você quer verde para 100%, coloque o campo com cor normal verde e coloque a cor vermelha na formatação condicional.

Caso você queira fazer isso utilizando uma imagem, pode criar uma função e usá-la como Origem da imagem. A função ficaria mais ou menos assim:

Function CorImg()
If me.txtPorcentagem < 100 Then
CorImg = CurrentProject.Path & "\Negativo.jpg"
Else
CorImg = CurrentProject.Path & "\Positivo.jpg"
End If
End Function

Na linha "Fonte do Controle", aba "Dados", do seu controle Imagem, você coloca assim: =CorImg()

Nesse caso, as duas imagens devem estar na pasta do aplicativo e você pode deixar o "Tipo de imagem", na aba "Formato" das propriedades do controle, como "Vinculada" ao invés de "Incorporada".

Prezado criquio,

Não consegui fazer funcionar.
O controle de imagem, na aba Dados, não possui nenhuma linha para digitação.
A Fonte de Controle, na aba Dados, só tenho em caixa de texto.

No controle imagem, se eu colocar na linha Imagem, a função que vc enviou,
ocorre uma mensagem de erro.

Será que fiz algo errado ?

Abraço

Você deve estar usando uma versão anterior ao 2007. Talvez seja melhor usar um campo texto com a dica da formatação condicional.

Quanto ao botão Resolvido, ele está logo na frente do título do tópico ali logo acima do botão que você clica para enviar a mensagem

Prezado criquio,

Grato pelo apoio, mas continuo sem solução.
Desculpe minha ignorância, mas quando vc fala em formatação condicional na caixa de texto, vc diz para utilizar a função SeImed na linha Fonte do Controle da caixa de texto ?

Para exemplificar o que fiz:
na linha Fonte do Controle da caixa de texto, coloquei: =[PERCENTUAL]>100 e na cor de fundo, coloquei o código da cor azul.

Quando abro o formulário, todos os registros ficam com essa caixa de texto em azul,
ou seja, não ocorre uma seleção conforme o valor do percentual.
Com toda certeza estou fazendo algo errado.

Mais uma vez solicito seu apoio.

Quanto a versão, realmente é a versão 2003.
O botão Resolvido agora localizei.

Grato e um abraço.

Clique no campo com o botão direito e escolha "Formatação condicional". Abrirá uma janelinha com as opções referentes. Nessa janela terá a "Condição 1". Na primeira caixa de combinação, escolha "A expressão é". Aparecerá uma caixa de texto na frente. Coloque a condição nessa caixa de texto e escolha a cor de fundo.

Prezado criquio,

Muitíssimo obrigado pelo tempo que lhe tomei.
Funcionou super bem a formatação condicional em cima da caixa de texto.

Como diz um amigo meu, quando se tem um problema, deve-se sempre ir diretamente
à Deus (que é quem sabe tudo) e nunca pedir auxílio ao porteiro do Céu.

Um abraço e novamente muito obrigado.

Valeu amigo, mas estou longe de ter os conhecimentos dos grandes mestres do forum