[Resolvido]Formulário continuo com campos coloridos....

Prezados, tem como deixar os campos coloridos de um formulário contínuo ? Bom pensava eu que sim, então escrevi o código abaixo:

Me.Caption = "Formulário de O.S Abertas e Fechadas"
If Me.EncerrarOSvista.Value = -1 Then
With Me
.IDOservico.BackColor = RGB(198, 0, 255)
.DataOS.BackColor = RGB(0, 0, 255)
.IdCliente.BackColor = RGB(0, 0, 255)
.Nome.BackColor = RGB(0, 0, 255)
.Modelo.BackColor = RGB(0, 0, 255)
.Placa.BackColor = RGB(0, 0, 255)
.Cor.BackColor = RGB(0, 0, 255)
.TotalMO.BackColor = RGB(0, 0, 255)

End With
End If


Só que......nada acontece. A ideia, era destacar em cores as ordens fechadas.

Se alguém pude ajudar.....desde já agradeço.

No evento ao pintar do detalhe, não resolve.....

Silvio como vai amigo?

Você já viu?

http://maximoaccess.forumeiros.com/t11457-formatacao-condicional-em-formulario-continuo-via-codigo

Grande amigo ....eu estou bem, com bastante calor aqui ( Piracicaba/SP) e você...esta tudo em ordem ?

Pois é, daria certo, se não houve uma condição logo de cara na primeira linha do comando, temos um IF que está pegando legal..

Vou continuar a quebrar a cabeça aqui.

Abraços Lupércio.

Tente algo assim Silvio:

Private Sub Form_Current()
Dim DB As Database
Dim RS As Recordset
Set DB = CurrentDb
Set RS = DB.OpenRecordset("NomeSuaTabela", dbOpenTable)
If Not Me.Recordset.EOF Then

Me.IDOservico.BackColor = RGB(300, 0, 255)
Me.DataOS.BackColor = RGB(198, 0, 255)
Me.IdCliente.BackColor = RGB(0, 0, 255)
Me.Nome.BackColor = RGB(300, 0, 255)
Me.Modelo.BackColor = RGB(198, 0, 255)
Me.Placa.BackColor = RGB(0, 0, 255)
Me.Cor.BackColor = RGB(300, 0, 255)
Me.TotalMO.BackColor = RGB(198, 0, 255)

End If
RS.Close
Set RS = Nothing
Set DB = Nothing
End Sub

Vou testar....

Nada mesmo....

O que está pegando legal é o IF

O Silvio com todo respeito e lhe considero e sou seu admirador
Se puder postar parte do banco posso tentar lhe ajudar.

Sem crise....as vezes a solução esta diante de nossos olhos mas não conseguimos vê-la. E é por isso que eu estou vivenciando agora.

Não há como mandar uma parte, vai ter que ser inteiro mesmo, pois há muitas tabelas envolvidas.

Bom vamos lá:

a- user: admin
b- senha: 1234

ao abrir o menu, clicar no ícone " Ver O.S. Encerradas / Abertas ", canto esquerdo inferior do menu.

c- escolha a data entre o mês de julho e o presente mês. Vai abrir a causa da dor de cabeça aqui.

d- a ideia a ser implementada é:

a1- O.S. a vista de uma cor qualquer. A cor é para todos os campos da linha.
a2- O.S. a prazo uma outra cor qualquer. A cor é para todos os campos da linha.
a3- O.S em aberto outra cor qualquer. A cor é para todos os campos da linha.

e- o que está me matando é o dito cujo IF. em um formulário contínuo.

Se fosse um formulário normal, já estaria pronto tranquilamente.

Bem meu amigo, se puderes me ajudar, ficou aqui, agradecido pela tua prestimosa ajuda.

Abraços.

Silvio

Será algo assim ?

JPaulo bom dia!

Por favor se puder responda!
Você fez pela formatação condicional?

Basta abrir em modo de estrutura e ver.

Ta certo obrigado!

Há momentos em programação, que o simples é melhor mesmo. Pensava eu, em desenvolver linhas e linhas em VBA para ser mais rápido. Mas apenas uma simples formatação condicional resolve tudo em pouco tempo.

Paulo, muito obrigado pela força e pelo tempo dispensado a minha duvida, Lupércio, amigo, a você também meus agradecimentos.

Por ser tratar de um projeto rodando em cliente, vou retirar os anexos daqui.


Grato.

Fico feliz;

Obrigado pelo retorno o forum agradece.