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]Caixa de Opções para mudar a cor de texto de outro campo

    avatar
    berninirobs
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 14/09/2012

    [Resolvido]Caixa de Opções para mudar a cor de texto de outro campo Empty [Resolvido]Caixa de Opções para mudar a cor de texto de outro campo

    Mensagem  berninirobs 18/2/2023, 15:33

    Boa tarde.

    Queria que ao selecionar a Opção1 o campo de texto [nome_pac] mudasse de cor vermelho e 
    ao selecionar a Opção2 o mesmo campo de texto [nome_pac] mudasse de cor verde.

    Tentei deste jeito, mas não deu:


    Private Sub Quadro6_AfterUpdat()

    If Me.MeuCampo1.Value = True Then
    Me.nome_pac.ForeColor = vbRed
    End If

    If Me.MeuCampo2.Value = True Then
    Me.nome_pac.ForeColor = vbGreen
    End If

    End Sub


    Obrigado.......
    avatar
    berninirobs
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 14/09/2012

    [Resolvido]Caixa de Opções para mudar a cor de texto de outro campo Empty Re: [Resolvido]Caixa de Opções para mudar a cor de texto de outro campo

    Mensagem  berninirobs 18/2/2023, 19:09

    Vejam banco em anexo......
    Anexos
    [Resolvido]Caixa de Opções para mudar a cor de texto de outro campo AttachmentGrupoDeOpçoesTest.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (201 Kb) Baixado 5 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8295
    Registrado : 05/11/2009

    [Resolvido]Caixa de Opções para mudar a cor de texto de outro campo Empty Re: [Resolvido]Caixa de Opções para mudar a cor de texto de outro campo

    Mensagem  Alexandre Neves 19/2/2023, 09:30

    Bom dia
    Comece por aqui
    Código:
    Private Sub Quadro6_AfterUpdate()
        If Quadro6 = 1 Then
            nome_pac.ForeColor = vbRed
        ElseIf Quadro6 = 2 Then
            nome_pac.ForeColor = vbGreen
        End If
    End Sub
    Depois adapte para pintar apenas a linha corrente


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    berninirobs
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 14/09/2012

    [Resolvido]Caixa de Opções para mudar a cor de texto de outro campo Empty Re: [Resolvido]Caixa de Opções para mudar a cor de texto de outro campo

    Mensagem  berninirobs 19/2/2023, 11:47

    Boa tarde Alexandre.

    Coloquei o código no evento Ao Pintar nos Detalhes e foi show de bola.

    Eu estava fazendo referencia ao campo e não ao Grupo de Opções.

    Muito obrigado mesmo para ter amenizado minha eterna burrice.

    Grato mesmo. 

    Um forte abraço quântico....

      Data/hora atual: 22/3/2023, 19:40