[Resolvido]Comparar dois valores e apagar o menor

Como faço para o access Comparar 02 valores, apagar o menor e colocar o maior no lugar do mesmo ?

ex: tenho cammpo a1 e a2 , guando a2 for > a1 ele apaga o que tem em a1 automaticamento e colocar o que tem em a2.....

If a2.Value>a1.Value Then
a1.Value=a2.Value
End If

Pode fazer através de um botão de comando ou outro evento.

Não esqueça de prever erros.O que lhe passei é síntese apenas

Olá,

Título do tópico foi modificado para facilitar a ferramenta de buscas.

Cumprimentos.

Boa noite,

Se forem muitos registos, utilize
Currentdb.execute "UPDATE Tabela SET a1=a2 WHERE a2>a1;"
Cumprimentos,

Oi amigos gostaria de mais detalhes...como usar principalmente o ultimo codico 'seria em apos atualizar sou leigo" a função teria q limpa o campo e colocar o outro dado no luguar o primeiro codico colocar mas não limpa o campo acoplado...tem que limpa....

Uma dúvida: vai apenas colocar o valor de a2 em a1 quando for maior? Então se a1 for maior que a2 não iguala? Ou essa hipótese não existirá?

oi bom dia....

não essa hipóteses não existe....sempre que a2 for maior vai pro luguar do menor e o que tem em a1 tem apagar automaticamente e receber o valor de a2, por favor me responda com riqueza de detalhes, em que opção entra no formulario e como fazer.....obrigado....

Uma segunda pergunta: existem muitos registros a serem alterados na tabela ou você vai precisar disso para registros que ainda serão adicionados? Para o primeiro caso, basta colocar a sugestão do Alexandre em prática, em um evento que melhor lhe convier. Para o segundo caso, a dica do Vieira vai funcionar a contento, acredito.

fiz mas não deu certo...explicando...

Private Sub Recuperação1Simestre_AfterUpdate()
CurrentDb.Execute "UPDATE Tabela SET Méd1=Recuperação1Simestre WHERE Méd1End Sub

Méd1 tem o resultado de de duas notas dividido olhe : Méd1: ([1ª N]+[2ª N])/2 em propiedade de formulario/dados, não deu erro e nem fez, tinha que limpa o dado do campo e colocar a maior....

Esse método que está usando seria para atualizar os registros da tabela, mas ao que parece você quer fazer essa mudança no registro corrente no formulário. Aí seria a dica do Vieira.

não deu certo...sou principiante...não seu como fazer.. obs...

Private Sub Recuperação1Simestre_AfterUpdate()
If Recuperação1Simestre.Value > Méd1.Value Then
Recuperação1Simestre.Value = Méd1.Value
End If
End Sub


não deu erro e nem fez....estou em apos atualiza o campo reculperação1simestre vou mandar a tabela e o formulario

Boa tarde

Amigo, faça isso por exemplo a partir de outro campo no evento ao sair desse campo

E aí amigo, deu certo?