[Resolvido]Converter todos os campos em maiúsculo

Alá pessoal!

Como poderia fazer para que ao clicar no botão salvar todas as informações digitadas no form fossem convertidas em letras maiúsculas antes de ser salvas?

grato...

Código:

dim ctl as control

for each ctl in me.controls
  if ctl.controltype = acTextBox then
      ctl.value = ucase(ctl.value)
  end if
next ctl

'... continuação da rotina de salvamento

Olá,

Você pode utilizar a função UPPER na hora de gravar os dados. Ex.:

CurrentDb.Execute ("UPDATE NOME_TABELA SET CAMPO_TABELA = UPPER(" & CAMPO_FORMULARIO & ")")

É isso.

Att,
FIM

Perfeito DamascenoJr.

Criei um módulo e inclui os tipos de controles que preciso e assim, posso usar em todos os formulários.

Grato.

O fórum agradece o retorno. Sucesso.