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] Alterar a cor e o valor de um campo usando checkbox

    Compartilhe

    bankayo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 30/08/2017

    [Resolvido] Alterar a cor e o valor de um campo usando checkbox

    Mensagem  bankayo em Ter 05 Dez 2017, 12:51

    Bom dia, pessoal

    Gostaria de saber como eu poderia alterar o campo Nome do aluno ao clicar na checkbox Aluno transferido/desistente.

    Por exemplo:

    Onde está o nome Jânio Alves da Silva Filho ficasse Jânio Alves da Silva Filho (Transferido) e o nome do aluno ficasse vermelho, caso o checkbox fosse desmarcado voltaria ao normal.


    Agradeço bastante pela ajuda!

    [Você precisa estar registrado e conectado para ver este link.]


    Última edição por bankayo em Ter 05 Dez 2017, 14:25, editado 1 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3484
    Registrado : 14/08/2013

    Re: [Resolvido] Alterar a cor e o valor de um campo usando checkbox

    Mensagem  FabioPaes em Ter 05 Dez 2017, 13:07

    Então, deverá ter esse Código em dois Lugares:

    No Evento Apos atualizar do Campo Transferido, coloque:

    If Me.Transferido = -1 Then
       Me.NomeAluno = Me.NomeAluno & " (Tranferido)"
       Me.NomeAluno.ForeColor = vbRed
    Else
       Me.NomeAluno = Me.NomeAluno
       Me.NomeAluno.ForeColor = vbBlack
    End If


    NomeAluno É onde mostra o Nome do Aluno, o nome da caixa de Texto
    Transferido É o Campo Sim/Não para marcar se ele foi transferido.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    bankayo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 30/08/2017

    Re: [Resolvido] Alterar a cor e o valor de um campo usando checkbox

    Mensagem  bankayo em Ter 05 Dez 2017, 13:42

    Obrigado, Fabio Paes

    O programa deu certo, mas o nome (Transferido) não está sendo retirado do campo ao desmarcar o checkbox. Na verdade, ele fica adicionando um novo (Transferido) cada vez que eu marco e desmarco.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3484
    Registrado : 14/08/2013

    Re: [Resolvido] Alterar a cor e o valor de um campo usando checkbox

    Mensagem  FabioPaes em Ter 05 Dez 2017, 14:02

    Opa... Blz... Mude a linha apos o Else, para:


    Else
       Me.NomeAluno = Left(Me.NomeAluno, InStrRev(Me.NomeAluno, " (") - 1)



    Obs: Estou partindo da ideia que no nome do aluno ficará assim:  Nome Aluno (Transferido) . Se atente para o espaço antes do primeiro parentese... Pois utilizo eles para determinar até a onde eu quero do Texto...


    Acredito também, que deverá incluir esse código no evento No atual do Seu Formulário... Para Ficar mais interessante a Navegação entre os registros:


    If Me.Transferido = -1 Then

      Me.NomeAluno.ForeColor = vbRed
    Else

      Me.NomeAluno.ForeColor = vbBlack
    End If


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    bankayo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 30/08/2017

    Re: [Resolvido] Alterar a cor e o valor de um campo usando checkbox

    Mensagem  bankayo em Ter 05 Dez 2017, 14:13

    Show de bola!

    Deu certinho.

    Muito obrigado!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3484
    Registrado : 14/08/2013

    Re: [Resolvido] Alterar a cor e o valor de um campo usando checkbox

    Mensagem  FabioPaes em Ter 05 Dez 2017, 14:34

    Grato pelo Retorno e até a próxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1044
    Registrado : 05/02/2010

    Alterar a cor e o valor de um campo usando checkbox

    Mensagem  good guy em Ter 05 Dez 2017, 15:36

    Olá Fabio e bankayo,

    Se me permitem um pitaco aqui. Uma outra fórmula Neston para obter este mesmo resultado:

    Código:

    Private Sub Status_AfterUpdate()  'Nome da checkbox
    On Error Resume Next
    Dim strNome, strNomeA, strNomeB As String

    strNomeA = Me.NomeAluno
    If Me.Status = -1 Then
    strNomeA = strNomeA & "(Transferido)"
    Me.NomeAluno = strNomeA
    Me.NomeAluno.ForeColor = vbRed
    Me.Refresh
    Else
    strNomeB = InStr(1, strNomeA, "(Transferido)")  'Procura pela cadeia de caracteres "(Transferido)"
        If strNomeB > 0 Then          'Se localizou a mesma
        strNome = "(Transferido)"
        strNomeB = Left(strNomeA, Len(strNomeA) - Len(strNome))  'Subtrai a cadeia "(Transferido)" a partir do início desta
        Me.NomeAluno = strNomeB
        Me.NomeAluno.ForeColor = vbBlack
        Me.Refresh
        Else
        Exit Sub
        End If
    End If
    End Sub

    bankayo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 30/08/2017

    Re: [Resolvido] Alterar a cor e o valor de um campo usando checkbox

    Mensagem  bankayo em Ter 05 Dez 2017, 16:41

    Agradeço muito, irei testá-la também!

      Data/hora atual: Seg 11 Dez 2017, 23:00