[Resolvido]Reunir vários campos em um único código com uma única ação

Boa noite

Estou com a seguinte situação:

Como faço para reunir vários campos neste único código, abaixo?

Private Sub NomeDoCampo_AfterUpdate()
Me.ActiveControl = UCase(Me.ActiveControl)
End Sub

A ação é a mesma para todos eles; como fazer para economizar código?

Aguardo um esclarecimento.

Obrigado

Amigo, essa função não permite mais de um Campo...

O que deve ser feito é um Loop em todos os Campos do Formulário (por tipos: acTextBox e acComboBox ) e Rodado a Função com o nome desse Campo.

Veja como fazer o Loop pelos campos do formularios aqui:
https://www.maximoaccess.com/t26998-gravar-registo-apos-preencimento-do-ultimo-campo-de-um-formulario#190254
Nesse Exemplo é colorido a Caixa de Texto, porem utilize apenas a forma de como é feito o Loop pelos campos, e execute seu Código ja montado.



https://www.maximoaccess.com/t26998-gravar-registo-apos-preencimento-do-ultimo-campo-de-um-formulario#190254

Olá!

estude também esta alternativa:

Nota: copie e cole o endereço no seu navegador

usandoaccess.com.br/tutoriais/alterar-cor-campo-ao-receber-foco.asp?id=1#inicio

Bom estudo!

Bom dia Avelino!

Desculpe a demora em responder; é que estou testando (consertando) algumas outras funcionalidades no meu BD, que preciso ajustar!

Funcionou perfeitamente essa forma de fazer que você sugeriu!

Obrigado!