Me mandaram respostas mas nao deram certo. Tenho um 'txtvend', e quero que ele so aceite número (durante a digitação, e aceite virgula ","), e depois que perder o foco fique no formato ###,##. Ex: 578,55

depois que este topico tiver pronto, como que eu encerro ele?

 André, no seu Outro Tópico eu disse que te enviei um e-mail com um projeto que eu fiz, você recebeu por acaso ?

T+ André !

Olhe, tem várias maneiras de se fazer isto, outro dia vi aqui no forum um exemplo bem simples, mas não sei se funciona, voce pode procurar, eu faça criando um procedimento, para usar as propriedades Get e Let, ou então:

Private Sub LostFocus()

   If Len(Text)>0 Then

      If Isnumeric(Text) then

         Text = Fprmat$(Text, "###,##0.00")

      Else

         Text = ""

      End If

    End If

End Sub

 

vlu//

 exit sub

    

 

 

 

Muito obrigado marcus, com o programa que me enviou deu certo. Agora só nao sei como encerrar este topico... mais uma duvida, estou quase terminando meu projeto, e queria colocar um text igual ao do explorer, fazendo preechimento inteligente, e tendo como banco de dados uma taleba. Vc sabe como posso fazer ou tem algum programa, tipo o que vc me enviou? Obrigado. Se outra pessoa souber...

Olá André, Bom Dia !
Olhe, eu até sei fazer mais o problema é que eu só sei fazer conexão com o Banco de Dados (ACCESS) via DAO e não ADO...

T+