(Resolvido) Formato De Campo De Texto

[Humm]

bom dia..

como eu coloco no na propriedade formato do campo para que ele exiba o texto com a primeira em caixa alta e as demais em caixa baixa?

tipo

DINHEIRO = Dinheiro

CARTÃO CRÉDITO = Cartão Crédito

[MrMALJ]

Coloque algo assim na máscara da caixa de texto

>L<??????????????

[Humm]

oi..

valeu a atencao mas não é isso..

eu não quero criar uma mascara de entrada, eu so quero que a caixa exiba o texto com a primeira em maiuscula.

[MrMALJ]

Bom você poderia utilizar isso na caixa de texto que ia exibi-la, mais quem sabe alguém não tem outra solução!

[Humm]

eu tentei colocar aqueles parametros na propriedade "formato" mas não aceitou

é que mascara de entrada ach o que só funciona pra campos com entrada de dados.. não é? tipo no momento que o campo está sendo digitado.

e como esse campo é um campo tipo calculado, acho que não pega la..

valeu pela atencao amigo

encontrei isso que pode ser colocado no campo via VB

'******************* Code Begin ****************
Function Proper(X)
' Capitalize first letter of every word in a field.
' Use in an event procedure in AfterUpdate of control;
' for example, [Last Name] = Proper([Last Name]).
' Names such as O'Brien and Wilson-Smythe are properly capitalized,
' but MacDonald is changed to Macdonald, and van Buren to Van Buren.
' Note: For this function to work correctly, you must specify
' Option Compare Database in the Declarations section of this module.
Dim Temp$, C$, OldC$, i As Integer
    If IsNull(X) Then
        Exit Function
    Else
        Temp$ = CStr(LCase(X))
        ' Initialize OldC$ to a single space because first
        ' letter needs to be capitalized but has no preceding letter.
        OldC$ = " "
        For i = 1 To Len(Temp$)
            C$ = Mid$(Temp$, i, 1)
            If C$ >= "a" And C$ <= "z" And _
                (OldC$ < "a" Or OldC$ > "z") Then
                    Mid$(Temp$, i, 1) = UCase$(C$)
            End If
            OldC$ = C$
        Next i
        Proper = Temp$
    End If
End Function
'******************* Code End ****************

[MrMALJ]

Bom que você tenha encontrado essa função pronta e postado pra gente, eu tinha pensando tambem em fazer algo parecido, mais agora não precisarei bater cabeça.

vlw