FORMTACAO DE DADOS

USUARIO.EXCLUIDOS 21/08/2007 13:00:26
#231862
Preciso faramtar 9 números da seguinte forma:

111.111.111 onde 1 são os valores digitados...

qual o comando format que devo enviar??
USUARIO.EXCLUIDOS 21/08/2007 13:13:01
#231864
ACHO QUE ISSO RESOLVE

 
Format(CCur(VARIAVEL), "#,##0.00;(#,##0.00)")


ATT,

MARCELO BRESSAN
USUARIO.EXCLUIDOS 21/08/2007 14:16:12
#231877
Não adiantou!!!

Segue aqui a Function que estou mechendo... bem simples sua estrutura mas não funfa...


Function FormataCodigo(txtBox As Double)
    txtBox = Format(CCur(txtBox), "#,##0.00;(#,##0.00)")
    MsgBox txtBox
End Function
USUARIO.EXCLUIDOS 21/08/2007 14:36:53
#231882
Tente assim:


Function FormataCodigo(txtBox As Double)
    txtBox = Format(txtBox, "999.999.999")
    MsgBox txtBox
End Function
ROBIU 21/08/2007 14:51:51
#231886 Resposta escolhida
Se o campo é do tipo código e não será usado em nenhum lugar para cálculos, o ideal é que seja do tipo texto. Assim você garante que o n. seja gravado da forma que está na textbox. Imagine que "000.001.452" vai ser gravado como 1452 no banco. A seguir uma rotina para formatar o textbox sendo o campo do tipo texto.
coloca isso no evento KeyPress da textbox:

 Text1.MaxLength = 11 'Define o tamanho do campo
    If IsNumeric(Chr(KeyAscii)) Then 'Verifica se uma tecla numeric foi precionada
        Select Case Len(Text1.Text)
            Case 3
                Text1.Text = Text1.Text & "."
                Text1.SelStart = 4
            Case 7
                Text1.Text = Text1.Text & "."
                Text1.SelStart = 8
        End Select
    ElseIf KeyAscii = 8 Then
    'Para permitir apagar com Bkspc
    Else
        KeyAscii = 0 'O campo só permite numeric
    End If

Anexo um exemplo de como fica.
USUARIO.EXCLUIDOS 21/08/2007 16:01:42
#231903
Robiu...

funcionou 100%... ficou bom... masss...

eu terei que usar esse código em 500 forms diferentes e queria fazer 1 funcion p/ isso pois é um saco ficar copiando e colando, sem contar que o meu código aumenta um monte...

como poderia fazer isso numa Function ao invés de fazer no evento keypress??
USUARIO.EXCLUIDOS 21/08/2007 16:42:51
#231917
Sendo String também pode-se utilizar o Format com @

MsgBox Format(Me.SeuTextBox.Text, "@@@.@@@.@@@")
Tópico encerrado , respostas não são mais permitidas
Voltar