[Resolvido]Destacar retângolo

Olá colegas!

Tenho um form onde há uma caixa de texto, nesta digito um número de 1 a 3.
Tenho um SubForm, neste tenho 3 retângulos: "caixa1, caixa2, caixa3"

Gostaria que ao digitar na caixa de texto do form o nº "1", por exemplo, a "caixa1" do subform ficasse com a borda preta, quando digitasse "2" a "caixa2" do subform ficasse com a borda preta. e assim por diante. Como faço?


grato...

a solução para isso que você quer é fácil, vc desenha ao todo no subformulário 6 retângulos, 3 com borda simples e 3 com borda preta destacada como vc quer, ai vc coloca um por cima do outro, sendo que vc deixa as de borda destacadas com a propriedade invisível, tipo assim: me.caixatexto.visible = false. Feito isso no formulário onde vc vai digitar os valores, vc coloca um if, tipo:

if me.suacaixadetexto=1 then
forms!subformulário!caixadetextodestacada.visible = true
forms!subformulário!caixadetextonormal.visible = false
end if

assim quando vc digitar o número a a caixa de texto normal some e a com borda destacada se torna visível.

Valeu, entendi. No entanto estava tentado solucionar enquanto aguardava a resposta e fiz o seguinte:

No form coloquei um textobox (txtSemena) que ao ser atualizado faz um refresh (me.refresh - vba), atualiza um outro textobox (refSem) que coloquei no subform. No evento noAtual do subform coloquei o seguinte código, considerando que no subform tenho 4 retangulos referente a 4 semanas do mês (cx1, cx2, cx3, cx4):

Private Sub Form_Current()
If Me.refSem = 1 Then
Me.cx1.BorderColor = RGB(8, 3, 77)
Else
Me.cx1.BorderColor = RGB(252, 213, 181)
End If

If Me.refSem = 2 Then
Me.cx2.BorderColor = RGB(8, 3, 77)
Else
Me.cx2.BorderColor = RGB(252, 213, 181)
End If

If Me.refSem = 3 Then
Me.cx3.BorderColor = RGB(8, 3, 77)
Else
Me.cx3.BorderColor = RGB(252, 213, 181)
End If

If Me.refSem = 4 Then
Me.cx4.BorderColor = RGB(8, 3, 77)
Else
Me.cx4.BorderColor = RGB(252, 213, 181)
End If

End Sub

Assim: ao atualizar o texbox do form, dependendo do número que coloco (1, 2, 3 ou 4), o retângulo correspondente ao nº ganha o destaque.


Atenciosamente...

ótimo, o forum agradece o retorno