MaximoAccess

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

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
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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!
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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: Seg 20 Nov 2017, 05:50