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


2 participantes

    [Resolvido]Não repetir cor em um formulário contínuo.

    avatar
    Rosalvo0
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Localização : Anónimo
    Mensagens : 28
    Registrado : 19/03/2021

    [Resolvido]Não repetir cor em um formulário contínuo. Empty [Resolvido]Não repetir cor em um formulário contínuo.

    Mensagem  Rosalvo0 11/12/2022, 22:34

    Boa noite a todos!

    Tenho um formulário contínuo onde usei um retângulo como plano de fundo (colorido) para cada registro do campo Setor. Esse campo por sua vez, tem o estilo de fundo transparente para que a cor do retângulo (que está por trás dele) sobressaia. Esse campo setor é representado por uma letra do alfabeto. O que pretendo é:
    Quando o formulário abrir, esse retângulo ganha uma cor diferente para cada letra representada no campo Setor.
    Ex: A LETRA "A" terá o seu retângulo sempre vermelho, azul para o retângulo do campo onde está o Setor B e assim por diante até que cada uma das 26 letras do alfabeto ganhe um cor própria para preencher o seu retângulo. A cor da fonte do campo (Setor) pode ser sempre a mesma. Acho que a cor branca seria uma boa opção.
    A pergunta é, isso é possível?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não repetir cor em um formulário contínuo. Empty Re: [Resolvido]Não repetir cor em um formulário contínuo.

    Mensagem  Avelino Sampaio 13/12/2022, 06:29

    Olá!

    veja se este meu artigo ajuda:

    (copie e cole o endereço no seu navegador)
    usandoaccess.com.br/dicas/formularios-e-relatorios-zebrados-ao-pintar.asp


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    Rosalvo0 gosta desta mensagem

    avatar
    Rosalvo0
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Localização : Anónimo
    Mensagens : 28
    Registrado : 19/03/2021

    [Resolvido]Não repetir cor em um formulário contínuo. Empty Re: [Resolvido]Não repetir cor em um formulário contínuo.

    Mensagem  Rosalvo0 13/12/2022, 11:03

    Obrigado pela dica Avelino. Como não tenho acesso aos códigos irei procurar mais informações por aqui sobre esse evento "Ao pintar" que eu não conhecia.
    avatar
    Rosalvo0
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Localização : Anónimo
    Mensagens : 28
    Registrado : 19/03/2021

    [Resolvido]Não repetir cor em um formulário contínuo. Empty Re: [Resolvido]Não repetir cor em um formulário contínuo.

    Mensagem  Rosalvo0 13/12/2022, 11:36

    Com esse código de Alexandre Neves, fiz minhas adaptações e ficou perfeito.
    Obrigado a todos!

    Private Sub Detalhe_Paint()
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' código criado por Alexandre Neves, do Fórum MaximoAccess '
    ' utilize o código livremente mas mantenha os créditos '
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim Rst As DAO.Recordset

    Set Rst = Me.RecordsetClone
    If Rst.RecordCount = 0 Then Exit Sub
    If Me.Cad = 0 Then
    Me.MC.ForeColor = 255
    Else
    Me.MC.ForeColor = -1
    End If
    End Sub

    Conteúdo patrocinado


    [Resolvido]Não repetir cor em um formulário contínuo. Empty Re: [Resolvido]Não repetir cor em um formulário contínuo.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 3/10/2024, 11:28