MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Contar campos coloridos no formulário

    avatar
    kasa1982
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 06/12/2018

    [Resolvido]Contar campos coloridos no formulário Empty [Resolvido]Contar campos coloridos no formulário

    Mensagem  kasa1982 7/12/2020, 19:56

    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
    tauron
    tauron
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1291
    Registrado : 07/12/2011

    [Resolvido]Contar campos coloridos no formulário Empty Re: [Resolvido]Contar campos coloridos no formulário

    Mensagem  tauron 7/12/2020, 22:21

    Poste o arquivo.
    avatar
    kasa1982
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 06/12/2018

    [Resolvido]Contar campos coloridos no formulário Empty Re: [Resolvido]Contar campos coloridos no formulário

    Mensagem  kasa1982 8/12/2020, 12:05

    Bom dia,

    Segue o arquivo que preciso codificar.

    Att

    Kellyton
    Anexos
    [Resolvido]Contar campos coloridos no formulário AttachmentCores.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (246 Kb) Baixado 6 vez(es)
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 376
    Registrado : 28/10/2010

    [Resolvido]Contar campos coloridos no formulário Empty Re: [Resolvido]Contar campos coloridos no formulário

    Mensagem  zcarloslopes 9/12/2020, 16:21

    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.
    Anexos
    [Resolvido]Contar campos coloridos no formulário AttachmentCountColoredFields.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 6 vez(es)
    avatar
    kasa1982
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 06/12/2018

    [Resolvido]Contar campos coloridos no formulário Empty Re: [Resolvido]Contar campos coloridos no formulário

    Mensagem  kasa1982 9/12/2020, 18:23

    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
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Contar campos coloridos no formulário Empty Re: [Resolvido]Contar campos coloridos no formulário

    Mensagem  Avelino Sampaio 9/12/2020, 20:34

    Olá!

    Também concordo com o Carlos em não ser possível capturar a cor da formatação. Sugiro capturar a condição utilizada na formatação.

    Exemplo para seu formulário de teste:


    Dim TxtBox As TextBox
    Dim strNomeFormulario As String
    Dim Msg As String
    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
    If TypeOf ctl Is TextBox Then
    Set TxtBox = ctl
    If TxtBox.FormatConditions.Count > 0 Then 'verifica se o campo possui formatação condicional
    Select Case ctl
    Case Is = 0
    Me!txtVerdes = Nz(Me!txtVerdes) + 1
    Me!Texto24 = Nz(Me!Texto24) + 1
    Case Is = 1
    Me!txtVermelhos = Nz(Me!txtVerdes) + 1
    Me!Texto24 = Nz(Me!Texto24) + 1
    End Select
    End If
    End If
    Next ctl


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

    Aguardamos



    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    kasa1982
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 06/12/2018

    [Resolvido]Contar campos coloridos no formulário Empty Re: [Resolvido]Contar campos coloridos no formulário

    Mensagem  kasa1982 14/12/2020, 11:10

    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
    tauron
    tauron
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1291
    Registrado : 07/12/2011

    [Resolvido]Contar campos coloridos no formulário Empty Re: [Resolvido]Contar campos coloridos no formulário

    Mensagem  tauron 14/12/2020, 18:09

    Veja se ajuda.
    Anexos
    [Resolvido]Contar campos coloridos no formulário AttachmentCores.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (260 Kb) Baixado 13 vez(es)
    avatar
    kasa1982
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 06/12/2018

    [Resolvido]Contar campos coloridos no formulário Empty Re: [Resolvido]Contar campos coloridos no formulário

    Mensagem  kasa1982 15/12/2020, 12:05

    @Tauron, bom dia

    Deu certo.

    Obrigado!
    tauron
    tauron
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1291
    Registrado : 07/12/2011

    [Resolvido]Contar campos coloridos no formulário Empty Re: [Resolvido]Contar campos coloridos no formulário

    Mensagem  tauron 15/12/2020, 17:38

    Que bom que resolveu, o forum agradece pelo retorno.

    Conteúdo patrocinado

    [Resolvido]Contar campos coloridos no formulário Empty Re: [Resolvido]Contar campos coloridos no formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 13/5/2021, 09:20