[Resolvido]Contar campos coloridos no formulário

Boa tarde Galera,

Tenho um formulário com 120 campos, nos quais uso a formatação condicional em alguns, deixando o background dos mesmos na cor Verde e Vermelho.

Gostaria de saber se existe a possibilidade de:

1. Contar o n. total de campos do formulário, apenas os que estão com a cor vermelho e verde;
2. Contar os vermelhos e contar os verdes.

É possível?

Att

Kellyton

Poste o arquivo.

Bom dia,

Segue o arquivo que preciso codificar.

Att

Kellyton

Boa tarde kasa1982,

Para contar campos coloridos bastaria colocar uma simples condição para verificar se o campo é diferente se uma determinada cor (nesta caso branco) tipo:

Código:

If Me.txtTeste.BackColor <> 16777215 Then ....

O problema é que o campo quando colorido pela formatação condicional, que eu saiba, não tem como verificar a cor formatada (acho que no excel tem o DisplayFormat).

Contudo você pode colocar as mesmas condições que tem na formatação condicional para fazer a contagem.

Deixo um exemplo do que estou a explicar.

Veja se serva o seu propósito.

Boa tarde amigo,

Infelizmente não resolve meu problema, pois tenho um formulário com mais de 100 campos.

Teria que usar algo semelhante a isso, mas nao estou conseguindo contar os controles com backcolor <> de 16777215 como vc sugeriu.

Código:

Private Sub Comando20_Click()
Dim strNomeFormulario As String
Dim Msg As String
Dim iCnt As Integer
On Error GoTo 1

Dim FormAberto As Form
Dim ctl As Control

'Repasso para a variavel o nome do form ativo
strNomeFormulario = Me.Form.Name

'Aqui defino o objeto form
Set FormAberto = Forms(strNomeFormulario)

    For Each ctl In FormAberto

        'Percorro os controles textbox e combobox onde a propriedade Marcar esá definido como Trata
        If TypeOf ctl Is TextBox And ctl.BackColor <> 16777215 Or TypeOf ctl Is ComboBox And ctl.BackColor <> 16777215 Then
       
            'AQUI QUE O BICHO ESTÁ PEGANDO, POIS PARA CADA TIPO DE CONTROLE CUJO BACKGROUND <> DE 16777215, ENTÃO ELE DEVERIA ATRIBUIR O VALOR 1 E SOMAR TODOS,
            'TALVEZ SEJA MAIS CORRETO A EXPRESSÃO DO...WHILE, PORÉM, NÃO ESTOU SABENDO USAR CORRETAMENTE.
           
        End If
    Next ctl


Exit_1:
    DoCmd.Hourglass False
    DoCmd.Echo True
    Exit Sub

1 A:
    DoCmd.Hourglass False
    DoCmd.Echo True
    Msg = "Erro # " & Str(Err.Number) _
        & vbNewLine & "Descrição: " & Err.Description _
        & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
    MsgBox Msg, vbExclamation, "Atenção"
    Resume Exit_1
End Sub

Bom dia Avelino,

Primeiramente, obrigado pela ajuda.

Respondendo sua pergunta

Avelino escreveu:
Nos diga - o senhor está utilizando a mesma regra na formatação condicional para todos os campos ou cada campo possui uma regra diferente ?

Eu utilizo a mesma regra de formatação condicional para cada campo, onde, o valor do campo sendo <= a "X" será verde e > será vermelho.

Att

Kellyton

Veja se ajuda.

@Tauron, bom dia

Deu certo.

Obrigado!

Que bom que resolveu, o forum agradece pelo retorno.