[Resolvido]Letras maiúsculas

Caros Mestres,

Como coloco em um código para, dependendo do valor de determinado campo, imprimir o nome da pessoa em MAIÚSCULO. A lógica seria:

If campox="correto" then

'Como coloco aqui dizendo para imprimir campoA, campoB...CampoN com todas as letras maiúsculas

Else if

'Como dizer para desfazer a condição anterior. Caso entre no IF anterior vai entrar em loop deixando tudo maiúculo, e se fizer o inverso (mandar imprimir tudo minúsculo) também vai alterar os conteúdos, já que possuem letras maiúsculas e minúsculas no conteúdo dos campos.

End if

Não estou conseguindo dizer via código que campoTal=MAIÚSCULO([nomedocampo]) e depois voltar ao normal (dependendo da condição) considerando maíúsculos e minúsculos

Desde já muito grato

Grande Abraço

Tente assim:

Dim TControle As Control

For Each TControle In Me.Controls
    If TControle.ControlType = acTextBox Then
        If campox = "correto" Then
            TControle = StrConv(TControle, 1)
        Else
            TControle = StrConv(TControle, 2)
        End If
    End If
Next TControle

Essa linha do código If TControle.ControlType = acTextBox Then ordena que sejam avaliadas todas as textboxes. Caso queria adicionar outros tipos de campos, basta adicioná-los à lista, por exemplo, combobox:
If TControle.ControlType = acTextBox Or TControle.ControlType = acComboBox Then

Deve ter resolvido e esqueceu o botão

Caro Vieira,

Vi a mensagem no neu email e retorno aqui para agradecer a ajuda de todos, embora com toda a ajuda recebida não foi possível fazer como desejava. Mudei a lógica de letra maiúscula para letra colorida (adaptei um código que já tinha feito em outra ocasião) e deu tudo certo.
Muito grato meus eternos Mestres
Grande abraço

PS. Pode considerar resolvido.