[Resolvido]Muda cor da fonte ao alterar um Campo

Ola a Todos do Fórum.

Pessoal é o seguinte, tenho vários campos no meu formulário e gostaria de colocar um código para mudar a cor da fonte quando o usuário fazer qualquer aletração, tentei o seguinte código.:

Private Sub SeuCampo_AfterUpdate()
If Nz(SeuCampo) <> Nz(SeuCampo.OldValue)
Then
SeuCampo.ForeColor = vbRed
End If
End Sub


Porem esse altera todos os registros cadastrados no campo que eu utilizar.

Será que é possivel colocar um código que altere somente o Atual, ou seja, quando navegar nos registros os campos não alterados continuarem com a cor padrão (preto).

Ex.: Tenho vários endereços cadastrados todos com a cor padrão (preto), se o usuário alterar um endereço, queria que somente este ficasse marcado de vermelho.

Meu formulário está no Modo Padrçao Simples.

Access 2007.


No Aguardo

Olá, use a formatação condicional...

Olá Marcelo,

Nunca usei a formatação Condicional, poderia me ajudar ???

Sim, claro!
Vamos lá...
Tenho duas opções:
1- Você posta aqui seu banco de dados, me da as informações que precisa e eu faço e posto novamente para você estudar a maneira que eu fiz.

2- Você diz exatamente o nome da CBO e a lista de valores e quais campos que que altere a cor, que tentarei te instruir de como proceder.

Fica a sua disposição!

No aguardo.

Ok vamos tentar a 2ª Opção.

Tenho os seguintes campos no frm.: txtData, txtHora_Fato, txtHora_Trans, txtHora_Termino, txtEndereco, cmbBairro, cmbSetor, cmbCodigo, cmbNatureza e cmbSub_Natureza.

Gostaria que esses campos ficassem em vermelho caso algum usuário fizer alguma alteração após o cadastro. Lembrando que somente ficará no(s) campos que houver alteração.

No Aguardo.

Nesse caso, acho melhor usar da seguinte maneira:
No evento após atualizar de cada campo que você quer que fique em vermelho:

Me.NomeDoCampo.BackColor = 858083

Teste primeiro em 1 campo, caso consiga é só fazer para os demais

Marcelo

Testei a sua dica, ela funciona perefeitamente, porem esta deixando o capo marcado para todos os registros.

Vou dar um exemplo que eu estou querendo.

Tenho um formulário de cadastro com o vários registros no seguinte campo txtHora_Fato, vou citar os três primeiros.

1º Regitro = txtHora_Fato: 18:00 - Registro com cor Padrão
2º Registro = txtHora_Fato: 18:30, usuário alterou para 18:50 - não precisa aparecer a hora antiga(18:30)somente a hora que foi alterada na cor vermelha ou o fundo vermelho.
3º Registro = txtHora_Fato : 20:00 - Registro com cor Padrão

Note que somente a cor do segundo registro deve mudar os demais so se fizerem alteração.

No aguardo.

O seu formulário é contínuo?

Formulário Simples !!!!

Minha sugestão é que você tenha um campo boleano para informar a alteração do campo.

Dessa forma após atualizar do seu campo, o campo boleano passe para True mais ou menos assim:

Evento No atual:

If Me.Boleano = -1 Then
Me.Hora.ForeColor = vbRed
Else
Me.Hora.ForeColor = vbBlack
End If

Após atualizar do seu campo Hora:

Me.Alt = -1
Call Form_Current

Daniel e Marcelo

Acompanhando este tópico creio que a solução para esse caso é o seguinte:
Teremos que colocar na tabela um campo booleao (sim/não) de nome [Alterado] - Padrão=Não.
Quando se cadastra, esse campo não é modificado para sim.
Portanto, quando se cadastra a propriedade sujo(dirty)está fazia (a confirmar).
Baseado nessa propriedade, poderemos definir o campo Alterado para sim a cada alteração
Então entra em campo o evento noAtual do formulário.
Nele colocaremos:
if Me.Alterado = True
Me.Hora.ForeColor = vbRed
Else
me.Nora.forecolor = vbBlanck
Endif

editando:

Agora que vi tua reposta,Marcelo.

Abraços

Acontece...

Marcelo e Balem.

Agradeço a atenção, fiz o teste e funcionou em parte.

Criei o campo Alterado na tabela e no formulario, coloquei o código que me enviaram e funcionou.

O problema esta quando vou criar um novo registro, apos digitar a data e pular para outro campo ela fica com a Cor Vermelha.

No aguardo.

Amigão, aplicando o código que postei, irá dar certo sim.

Veja o exemplo examente com os códigos postados:

Marcelo

Conferi seu exemplo.

O Botão aparece a seguinte mensagem de erro: Erro emtempo de execução '2046' O Comando ou ação "RegistroIrParaNovo' não esta disponível agora.

Criei um botão novo porem não esta zerando o campo Hora (ao clicar em novo permanece 12:00).

Para alterar os demais campos sera necessário criar um campo Alterado para cada um ?? ou posso acescentar no mesmo ??

Grato.

No aguardo.

Para cada campo um "Boleano"...
O campo hora não limpa porque eu pus como padrão 12:00, basta voce deixa-lo em branco nas propriedades...
O erro ocorre porque você ja está em um registro novo...

Basta inserir a seguinte linha acima do código do botão novo:

On Error Resume Next
Ficará assim o código do botão:

On Error Resume Next
DoCmd.RunCommand acCmdRecordsGoToNew

O botão que você criou foi com o assistente... É com macros e ja vem com tratamento de erros...
Mas eu não uso macros apenas VB, pois se precisar usar no aplicativo em ambiente RumTime (sem o Access instalado), as macros com tratamento de erro não irão funcionar...

Marcelo

No meu esta dando errado, vou mandar o BD pra você verificar.

No aguardo.

Segue o BD

Aqui está tudo dando certo...
E para repetir a mesma ação, basta criar um campo boleano para cada controle e proceder com o código que você já até incluio no seu formulário...

Você ja fez com um, basta proceder para os outros o mesmo código, bastando mudar os nomes dos controles é claro. E não esqueça que terá que ter um boleano para cada controle que quer monitorar a alteração...

Bom dia Daniel

Será isto ?

Bom dia Amigos

Marcelo e Assis

Todos os novos registros que estou criando estão ficando em vermelho, ou seja, ao clicar no botão NovoRegistro, e adicionar a Hora_Fato ela fica na cor Preta, ao sair do campo Hotra_Fato ela fica vermelha.

O que pode estar acontecendo ?

No aguardo.

Olá Daniel

Se a(s) caixa(s) de texto estão aparecendo em vermelho quando se vai para novo registro, é sinal que o campo Alterado está com o valor padrão = Sim, Verifique isso na tabela e muda o valor padrão para Não.

Abraços

Teste

Registei o Nº 6 e o Nº 7

Balem

O valor Padrão esta vazio, fiz o que você indicou e não funcionou.


Assis

Testei o seu exemplo, mas ao alterar não fica em vermelho.

Será que pode ser alguma Referência que esta faltando ???

Só um detalhe Daniel

Como o valor padrão do campo alterado não estava como Não, os registros anteriores que não foram alterados nesse campo devem estar como Sim ou vazios.
Verifique na tabela como está esse campo nos registro, se tiverem vazios, coloque manualmente Não em todos os registros.
Entenda o seguinte: O valor padrão de um campo só será gravado na tabela no momento de gravar um novo registro na tabela desde que não haja modificação nesse campo manualmente.
Depois de ter colocado o Não em todos os registro na tabela, refaça os testes.
Creio que é ai que a "coisa" está pegando.
Após fazer um novo registro, verifique se campo Atualizado na tabela foi mudado para Sim.

Aproveitando, coloque o código que você colocou no evento no Atual do formulário.

Abraço

Amigos, o exemplo que eu poste é exatamente o que o amigo Daniel quer...
Só que a função está apenas para um campo e ele quer também em outros...
Como eu já falei, basta repetir o procedimento para os demais campos e criar na tabela os repectivos campos Sim/Não
Basta o amigo olhar os códigos com cuidado e fazer as alterações, que por sinal são bastantes simples.

Forte abraço

Marcelo

Consegue por o seu exemplo em 2003 ?

Obrigado

Amigo Marcelo

Estou usando o seu exemplo em apenas um Campo (txtHora_Fato), o que esta pegando é o seguinte.

Todos os novos registros inseridos estão ficando em vermelho.

Gostaria que todos ficassem na cor Padrão Preto e só mudar pra Vermelho quando o usuário fizer alguma alteração.

Com relação aos demais dados, eu compreendi o que tem de ser feito, porém tenho que conseguir fazer no Primeiro.

Fiz as dicas que o Balem informou, mas também nao funcionou, deletei todos os registros e adicionei novos, mas o problema continua, ou seja, todo novo registro esta ficando marcado como sim no campo alterado.

Desclupe pela minha falta de Conhecimentos.

No aguardo.

Daniel

Faltou postar o código que está usando.

Do evento no Atual do formulário e

Do evento após atualizar da caixa de texto.

Aguardando

Meu amigo, veja o seguinte, se fizer o que eu fiz no campo data, nos demais campos, terá o mesmo resultado...
O exemplo que eu postei, está funcionando e basta seguir o exemplo.

Amigo Assis, segue em anexo na versão MDB.

Caro Marcelo


No seu proprio exemplo ao inserir novo registro já vem na cor vermelha, ou seja, o campo alteração esta vindo marcado.

Daniel

Testei o exemplo do Marcelo e está funcionando perfeitamente.

Coloque os códigos que pedi, para a nós analisar.

Aguardando ...

Boa tarde

Balem e Marcelo

O exemplo que baixei do Marcelo versão 2003, quando a gente abre o form para registar um novo registo, já vem com um Hora predefenido de 12:00.

Confirme ... que se alterar esse valor predefenido de 12:00 para 13:00 o Daniel tem razão, para logo para vermelho.

Sem menosprezar ninguem ainda não vi aqui no forum hoje O MESTRE para dar a sua dica .

Mas pelos meus minimos conhecimentos isto não vai ser façil de fazer no mesmo form.

Amigos Marcelo, Balem e Assis.


Será que tem algum código que possamos usar no evento ao Alterar do Campo ?

Tentei com esses mas não obtive resultado.

Não entendo muito bem, mas acho que esta ficando vermelho porque estamos usando o codigo no evento Após Atualizar.

No aguardo.

Uma ultima tentativa:

Anexe teu aplicativo para a gente analizar.

Esse código é simples demais para tanto problema.

Abraços

Balem

Teste o da mensagem 23

OK

Segue BD.

BD

Daniel

Editei esse post, somente o código abaixo é necessário

Acrescente a parte em marrom no teu aplicativo

Para que o campo alterado não seja mudado para sim quando estiver cadastrando pela primeira vez, coloque:

Private Sub txtHora_Fato_AfterUpdate()
If Not Me.NewRecord Then
Me.Alt = -1

End If

End Sub

Teste

Abraços

Grande Balem

Agora Sim o código Funcionou.

Agradeço a todos que me Ajudaram

Marcelo

Assis

Balem

Um Forte abraço.

Tópico Resolvido.

As vezes as pequenas coisas podem se tornar complicadas, por isso contamos com pessoas qualificadas como vocês para nos ajudarem...

Ufa, ainda bem!!!

Grato pelo retorno!

Daniel


Que bom que funcionou!

Então não precisamos o team viewer como sugeri na mp

Só outra coisinha

No valor padrão do campo Alterado está:
=Não

Tire o sinal de igual é somente o Não ou coloque 0 que é a mesma coisa.

Valeu pelo retorno

Boa sorte!

Ok

Vou fazer a alteração.

Sucesso.

Obs: Realmente não foi necessário o uso do team viewer.

Boa noite

Daniel teste num dos registos alterar mas manter os mesmo valor

Por exemplo se tiver gravado 10:00, selecione o campo e volte a marcar 10:00 a ver o que acontece ?

Aguardo

Amigo Assis

Obrigado por esta dica, mas esse Tópico já foi resolvido com a Dica do Amigo Balem.

Para que o campo alterado não seja mudado para sim quando estiver cadastrando pela primeira vez, coloque:

Private Sub txtHora_Fato_AfterUpdate()
If Not Me.NewRecord Then
Me.Alt = -1

End If

End Sub



Sucesso.

Daniel
Poste a BD conforme está agora
Obrigado

Amigo Assis

Segue BD conforme solicitado.

Eu tenho razão

O seu primeiro registo tem 12:00

Depois de ele aberto volte a escrever 12:00 e feche o form.

Volte a abrir está a vermelho mas o valor não foi alterado.

Amigo Assis

Não entendi o que você quis dizer:

Alterei a hora 12:00 para 12:01 e o registro continuou vermelho (como é pra ser).

Voltei a hora para 12:00 e continuou vernelho (como é pra ser)

Adicionadno novo registro fica na cor preta, se for alterado passa para a cor vermelha.

No aguardo.

O seu primeiro registo tem 12:00 e está a preto

Abra o form volte a escrever 12:00 e não 12:01 como fez e feche o form.

Volte a abrir está a vermelho mas o valor não foi alterado.