[Resolvido]Ajuda com Formatação Condicional

Bom dia!

tenho um formulário folha de dados onde eu gostaria de alterar a cor do campo valorproduto que contiver o menor valor
como fazer isso?

Veja o exemplo que deixo em anexo e tente adaptá-lo.

A mágica está no evento ao abrir do formulário2. O código está comentado.

Amigo IvanJr

Meus campos Tabela =TabProd campos Produto Preçocusto
tentei adaptar com seguinte código, mas não funcionou


Private Sub Form_Open(Cancel As Integer)

Dim rs As DAO.Recordset
Dim strprodutoAnterior As String

'abre a tabela1 na memória com os campos categoria e checkbox se é menorvalor ordenado por categoria,
'e, para produtos de mesma categoria, ordenado por valor
Set rs = CurrentDb.OpenRecordset("select produto,menorvalor from Tabprod order by produto, preçocusto;")

While Not rs.EOF 'fazendo loop em todos os registros

'compara se eu estou mexendo já com outra categoria
If rs!Produto <> strprodutoAnterior Then

rs.Edit 'prepara pra edição
rs!menorvalor = -1 'marca como o de menor valor
rs.Update 'e salva a alteração
strprodutoAnterior = rs!Produto 'e salva essa categoria como já trabalhada

Else 'senão

rs.Edit 'prepara pra edição
rs!menorvalor = 0 'marca como não sendo o de menor valor
rs.Update 'e salva a alteração

End If

rs.MoveNext 'move-se para o próximo registro

Wend 'fim do loop

'fecha a tabela1: e a descarrega da memória
rs.Close: Set rs = Nothing


End Sub
com seguinte código

Conferiu se o código chega a marcar algum registro do campo menor valor na tabela?

Se estiver marcando então só falta aplicar a regra da formatação condicional: no modo design, clique com o botão direito controle "valor" do formulário folha de dados no exemplo que anexei e escolha a opção formatação condicional e veja como eu fiz. Aí então, faça o mesmo no seu aplicativo.

Se não estiver marcando nada na tabela, então anexe aqui os objetos envolvidos no seu projeto para que possamos analisar e ver o que está acontecendo.

corrigi o código ,mas ele pinta dos valores que estiverem marcados!
o que gostaria de fazer é ao abrir o form pintar apenas aquele registro com menor valor entre todos.

então esse é o código

Código:

Private Sub Form_Open(Cancel As Integer)

Dim rs As DAO.Recordset

'usa o primeiro registro da tabela na memória ordenado por preçocusto
Set rs = CurrentDb.OpenRecordset("select top 1 menorvalor from Tabprod order by preçocusto;")

rs.Edit 'prepara pra edição
rs!menorvalor = -1 'marca como o de menor valor
rs.Update 'e salva a alteração

'fecha a tabela1: e a descarrega da memória
rs.Close: Set rs = Nothing


End Sub

top1 se refere a qual campo?

A nenhum (observe que há um espaço "TOP 1"). Esta instrução apenas diz para o código que quero como resultado no recordset apenas o primeiro registro encontrado na tabela ordenado por preçocusto (que certamente é o de menor valor e é ele que será marcado). Faltou só um pequeno detalhe que adicionei agora no código.

Código:

Private Sub Form_Open(Cancel As Integer)

Dim rs As DAO.Recordset

'desmarcando todos os registros que tiver marcado como menor valor para uma nova avaliação que se seguirá
Currentdb.Execute "update Tabprod set menorvalor = 0;"

'usa o primeiro registro da tabela na memória ordenado por preçocusto
Set rs = CurrentDb.OpenRecordset("select top 1 menorvalor from Tabprod order by preçocusto;")

rs.Edit 'prepara pra edição
rs!menorvalor = -1 'marca como o de menor valor
rs.Update 'e salva a alteração

'fecha a tabela1: e a descarrega da memória
rs.Close: Set rs = Nothing


End Sub

me perdoe a inexistência ,mas continua a pintar todos
anexei um exemplo se quiser dar uma olhada.

Aqui funcionou depois que exclui três registros cadastrados sem valor que não eram retornados no formulário de pesquisa.

Exclui os registros em branco ,mas aqui não funciona !

Vou ficar devendo nessa particularidade.

Agravina, conseguiu resolver?

Sim
veja a solução
https://www.maximoaccess.com/t34510-resolvidomudar-cor-de-campo-via-vba#236383

Ok. Dá um resolvido neste tópico aqui.

Não devem esquecer o resolvido

Aqui para min aparece como resolvido!