[Resolvido]Executar Função.

Amigos,

Tenho uma tabela com Endereço, Bairro, Cidade e Estado, porém todos os dados estão em maiúsculo, gostaria que no form aparecesse em maiúsculo e minúsculo, deixando 'de', 'da', 'dos', 'das', 'e', 'o', etc..., em minúsculo.
Ex.: NOVE DE ABRIL = Nove de Abril

Achei um módulo aqui no fórum, mas não sei como usá-lo, gostaria que ele funcionasse no meu form na Propriedade 'no atual' de forma que não se altere na tabela e sim na exibição do form, podem me ajudar?

segue o módulo:

Sub ColocaPrimeiraLetraMaiuscula()
'Muda todas as palavras da tabela para inicial maiúscula
'By JPaulo ® Maximo Access
'adaptado por Alexandre Neves, em 2011-05-03, do fórum MaximoAccess para manter "de" "da" "do" "dos" "e" "a"
Dim db As Database, rst As Recordset, camp As Field
Set db = CurrentDb
Set rst = db.OpenRecordset("select * from " & "[" & Tabela & "]")
If Not (rst.EOF) Then
For Each camp In rst.Fields
If camp.Name <> "Field Name" _
And camp.Type = 10 _
And Not IsNumeric(camp) _
And camp.Attributes = 34 Then
Do Until rst.EOF
If camp.Value <> "" Then
'Debug.Print StrConv(camp.Value, vbProperCase);
With rst
.Edit
camp.Value = StrConv(camp.Value, vbProperCase)
.Update
End With
End If
rst.MoveNext
Loop
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' A ',' a ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' Da ',' da ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' De ',' de ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' Do ',' do ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' Dos ',' dos ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' E ',' e ');"
End If
Next
end if
End Sub

Grato.

Para não alterar na tabela só se os campos forem desvinculados. Se for vinculado, ao alterar os campos do form, automaticamente será alterado na tabela. Ou então precisará voltar tudo para maiúsculo ao sair do registro.

Não tem problema alterar a tabela, como faço para usar o módulo?
Grato.

Já que não tem problema alterar na tabela, talvez seja o caso de atualizar toda a tabela de uma vez. Tente algo assim em uma cópia do banco:

Código:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("NomeDaTabela")

Do While Not rs.EOF

    rs.Edit

    rs!NomeDoCampo = strConv(rs!NomeDoCampo, vbProperCase)
    rs!NomeDoCampo = Replace(Replace(Replace(Replace(Replace(Replace(rs!NomeDoCampo, " Da ", " da "), " Das ", " das "), " De ", " de "), " Di ", " di "), " Do ", " do "), " Dos ", " dos ")

    rs.Update
    rs.MoveNext

Loop

rs.Close
Set rs = Nothing

Coloco esse código onde?
Grato.

Aonde melhor lhe convier. No clique de um botão por exemplo.

Boa tarde criquio, desde já agradeço pela força que tu está dando.
Criei um form para atualizar as informações e criei um botão com o nome Atualizar, neste botão coloquei o código que tu me passou, mas apresentou esse erro que segue no arquivo em anexo.
Grato.

Resolvido.

muito bom criquio também estava á procura dum codigo desses