MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Problema: O Código está sendo aplicado em todos os registros do Formulário.

    Compartilhe

    Sard123
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 07/10/2014

    [Resolvido]Problema: O Código está sendo aplicado em todos os registros do Formulário.

    Mensagem  Sard123 em Sex 21 Out 2016, 15:23

    Olá Galera!

    Estou aprendendo a usar o Access, e inseri um código do qual, tenho um formulário onde ao ticar na CheckBox, ele formata o campo da legenda para acusar o assunto tratado. Porém ele deixa o campo formatado para todos os registros.

    Segue um trecho do código:

    Private Sub Ctl2°_Contato___Convite_Extra_AfterUpdate()

    If Me.Ctl2°_Contato___Convite_Extra = -1 Then
    Me.Rótulo27.ForeColor = RGB(127, 255, 0)
    Else
    Me.Ctl2°_Contato___Convite_Extra = 0
    Me.Rótulo27.ForeColor = RGB(3, 3, 3)
     
      End If

    End Sub

    Private Sub Ctl2°_Contato___Informativo_AfterUpdate()

    If Me.Ctl2°_Contato___Informativo = -1 Then
    Me.Rótulo30.ForeColor = RGB(127, 255, 0)
    Else
    Me.Ctl2°_Contato___Informativo = 0
    Me.Rótulo30.ForeColor = RGB(3, 3, 3)

    End If
    End Sub


    Private Sub Ctl2°_Contato___Viagem_AfterUpdate()

    If Me.Ctl2°_Contato___Viagem = -1 Then
    Me.Rótulo33.ForeColor = RGB(127, 255, 0)
    Else
    Me.Ctl2°_Contato___Viagem = 0
    Me.Rótulo33.ForeColor = RGB(3, 3, 3)

    End If
    End Sub

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2507
    Registrado : 29/06/2012

    Re: [Resolvido]Problema: O Código está sendo aplicado em todos os registros do Formulário.

    Mensagem  Noobezinho em Sex 21 Out 2016, 15:59

    Fernando

    Utilize a formatação condicional, é bem mai fácil.

    Veja na ajuda do Access, se não entender, retorne !!


    [ ]'s


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Sard123
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 07/10/2014

    Re: [Resolvido]Problema: O Código está sendo aplicado em todos os registros do Formulário.

    Mensagem  Sard123 em Sex 21 Out 2016, 16:28

    Obrigado Noob! Very Happy

    Consegui fazer algo que resolveu minha necessidade, coloquei no formulário atual o seguinte código:

    Private Sub Form_Current()

    If Me.Ctl1°_Contato___Ausência_da_Reunião_Final = -1 Then
    Me.Rótulo0.ForeColor = RGB(127, 255, 0)
    Else
    Me.Rótulo0.ForeColor = RGB(3, 3, 3)
    End If
    If Me.Ctl1°_Contato___Convite_Extra = -1 Then
    Me.Rótulo3.ForeColor = RGB(127, 255, 0)
    Else
    Me.Rótulo3.ForeColor = RGB(3, 3, 3)
    End If


    ....


    Sard123
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 07/10/2014

    Re: [Resolvido]Problema: O Código está sendo aplicado em todos os registros do Formulário.

    Mensagem  Sard123 em Sex 21 Out 2016, 16:30

    OBRIGADO!

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2507
    Registrado : 29/06/2012

    Re: [Resolvido]Problema: O Código está sendo aplicado em todos os registros do Formulário.

    Mensagem  Noobezinho em Sex 21 Out 2016, 17:12

    Ótimo que resolveu.

    Valeu o retorno !

    Boa sorte!


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Qui 08 Dez 2016, 23:58