Colorir 1 linha do subform para 1 client apenas

Olá ; a minha duvida é o seguinte .

Tenho um subformulário e um formulário que filtra todos nossos clientes .
Oque eu quero fazer é pintar 1 linha do nosso client chamado DATA/VENCIMENTO , para que nós possa identificar quais clientes terá o contrato vencido.

É possivel ? quando eu fui tenta fazer pintou todas as linhas

Boa noite.
Se seu subform for form continuo é possível fazer com a Formatação Condicional do access.

Bom dia Claudio ;

Fiz um subform contínuo porém ele fica não fica com uuma cara de subform ( ou eu que não soube edtar ) , e quando eu fui tentr pintar as linhas ele estáva pintando uma coluna inteira.

Olá Kenny,

Tente usar este código

Sugestão do Sub Formulário

Código:

Private Sub Form_Load()
    If Me.DataDeVencimento >= Date Then 'Aqui você coloca sua comparação conforme suas necessidades
        Me.SeusCampos.ForeColor = vbBlack 'Preto
    Else
        Me.SeusCampos.ForeColor = vbRed 'vermelho
    End If
End Sub

Um pequeno detalhe, no exemplo acima quando for colocar as condições dos campos, você deverá listar todos os campos da linha do seu SubFormulário se não o Access pintará somente o campo que você declarou na condição IF no exemplo acima seria o "Me.SeusCampos".

Outras opções de cores é o RGB, existe muito mais opções de cores, neste caso você deverá declarar uma variável que irá conter o valor do RGB, observe o exemplo abaixo:

Exemplo de Declaração do RGB

Código:

Private Sub Form_Load()
Dim strRGB As String

    strRGB = RGB(255, 255, 255)
        Me.SeuCampo.ForeColor = strRGB
End Sub

Aplicando o RGB na Condição

Código:

Private Sub Form_Load()
Dim strRGBWhite As String
Dim strRGBBlack As String

    strRGBWhite = RGB(255, 255, 255)
    strRGBBlack = RGB(0, 0, 0)
    If Me.DataDeVencimento >= Date Then 'Aqui você coloca sua comparação conforme suas necessidades
        Me.SeusCampos.ForeColor = strRGBBlack 'Preto
    Else
        Me.SeusCampos.ForeColor = strRGBWhite 'Braco
    End If
End Sub

Aqui segue a tabela de código das cores RGB. Espero que ajude!



Por Administrador: Tabela Completa de Cores RGB

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

hm , entendi porém onde eu aplico este código , é no evento do subform ?

Sim Kenny, acesse as Propriedades do SubFormulário depois em "Evento" e finalmente no evento "Ao carregar" você cola o código acima.

Sucesso!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

não , encontrei o evento Ao Carregar nas propriedades do subform ;
Eu encontrei ele na Propriedade do formulário

Observe Kenny:



Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Kenny as explicações do Jeferson estão perfeitas, é só aplicar.

Sim , esta mt bem detalhda porém como não sou tão avançado assim tenho muitas dificuldades a respeito de codes

Olá Kenny, como vai a solução do problema? Qualquer dúvida é dar uma alô!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Bom dia ;

Não consegui preencher os dados ; exemplo

Não sei se é a coluna do subform o nome do form etc. :/

Amigo Kenny, não entendi sua dúvida podes, por favor, explica-la melhor? Se quiser pode postar parte do seu Banco de Dados aqui que eu posso tentar resolver para você!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

ja lhe mandei por MP , pois é doc de empresa

Olá Kenny, o motivo do problema é que seu SubFormulário está em Modo Padrão como: "Folha de Dados" alterei para o modo Formulário Contínuo e então apliquei o código acime e tudo funcionou corretamente! Siga as instruções a baixo para implantá-lo no seu sistema de produção.

Primeiramente abra o seu SubFormulário "ASO subformulário" e então clicando com o botão direito do seu mouse no canto superior esquerdo selecione a opção "Propriedades". Veja na Imagem 1.1 abaixo.


Imagem 1.1

Na guia "Formato" da Página de Propriedade altere a opção "Modo padrão" de "Folha de dados" para "Formulário contínuo". Veja na Imagem 1.2 abaixo.


Imagem 1.2

Altere o design do seu SubFormulário como desejar, no meu caso deixei igual na imagem abaixo. Veja na Imagem 1.3 abaixo.


Imagem 1.3

Após ter feito isso cole o código abaixo na guia "Evento" opção "Ao carregar". Veja na Imagem 1.4 abaixo.


Imagem 1.4

No Cabeçalho da Página de Códigos Insira o "Option Explicit" veja o exemplo abaixo:

Código:

Option Compare Database
Option Explicit

Código de Verificação Adaptado

Código:

Private Sub Form_Load()
Dim strLaranja As String
Dim strVermelho As String
Dim strCinza As String

strCinza = RGB(110, 110, 110)
strLaranja = RGB(255, 97, 3)
strVermelho = RGB(255, 0, 0)

    If Me.VENCIMENTO > Date Then
        Me.CODIGO.ForeColor = strCinza
        Me.ID_FUNCIONARIO.ForeColor = strCinza
        Me.VENCIMENTO.ForeColor = strCinza
        Me.DATA.ForeColor = strCinza
        Me.PRÓXIMO = strCinza
    Else
        If Me.VENCIMENTO = Date Then
            Me.CODIGO.ForeColor = strLaranja
            Me.ID_FUNCIONARIO.ForeColor = strLaranja
            Me.VENCIMENTO.ForeColor = strLaranja
            Me.DATA.ForeColor = strLaranja
            Me.PRÓXIMO = strLaranja
        Else
            If Me.VENCIMENTO < Date Then
                Me.CODIGO.ForeColor = strVermelho
                Me.ID_FUNCIONARIO.ForeColor = strVermelho
                Me.VENCIMENTO.ForeColor = strVermelho
                Me.DATA.ForeColor = strVermelho
                Me.PRÓXIMO = strVermelho
            End If
        End If
    End If
End Sub

Agora pronto é só executar e ver no que dá, kkkkkk... Seu banco de dados foi enviado em resposta a sua MP (Mensagem Privada).

Qualquer dúvida é só dar um toque.

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Ótimo tutorial *---* , unica coisa que não funcionou foi o a COR , eu dei uma olhada no BD que você me mando e nele também não contem as cores :C

Amigo Kenny, a comparação do VENCIMENTO é feita pela data atual ou pelo campo DATA? Para você fazer os testes mude a data do vencimento para os dias: 24/09/2013 depois para 25/09/2013 e depois para 26/09/2013.

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

@ a comparação é feita pelo CAMPO data por exemplo  "  o ASO foi feito dia 25/09/2013 ele vence dia 25/10/2013  ai no caso esse 25/10/2013 teria que estar em amarelo par ao funcionario saber que o NOSSO FUNCIONÁRIO DA OBRA TERA QUE FAZER OUTRO ASO / EXAMES
Oque percebi foi que a cor amarela não fica no quadrado e sim somente quando você seleciona ela é possivel colocar para ficar permanente neste quadrado

Então amigo Kenny, altere o código acima por este que está abaixo:

Código:

Private Sub Form_Load()
Dim strLaranja As String

strLaranja = RGB(255, 97, 3)

    Me.VENCIMENTO.ForeColor = strLaranja
End Sub

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

#agora sim amigo obrigado ;

@ uma duvida simples para nn criar outro topic denovo ;
quando eu filtro o funcionario nn tm como o nome dele ficar fixo no filtro ? para aparecer?

Que bom que deu certo! Nova dúvida, tópico atual "[Resolvido]" e novo tópico amigão, não se esqueça em dar o máximo de detalhes possível!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

ok irei fazer !