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

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!

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.

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.

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

Show de bola!

Deu certinho.

Muito obrigado!

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

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

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