Formatar text no form sem maskbox

[Flecha]

Olá,

coloquei as linhas abaixo para validar o rg, cpf, data de nascimento.

Private Sub TxtCpf_Validate(Cancel As Boolean)

TxtCpf = Format(TxtCpf, "@@@.@@@.@@@-@@")

End Sub

São iguais para o RG e Data

Acontece que na Inclusão funciona ao perder o foco.

Quando entro para editar e o campo que aparece no texto que já foi formatado, ao perder o foco ele fica duplicado

ex: 123..111..222--00 (duplica os caracteres de separação.

O campo cpf e data de nascimento são do tipo texto e estão ficando duplicados e a data de nascimento fica errada

Ex: 01//02//19

O campo RG é do tipo número não salva a formatação e quando recupera ao abrir o form esta sem formato 1234567.

Como faço para resolver isso?

Flecha

[kuroi]

se é maskedbox, o melhor é simplesmente adicionar a mascara "###.###.###-##" no campo mask e ai ela já fica automatico, não precisa usar o format.

[Flecha]

Kuroi,

Não Maskedbox, gostaria de uma função em algum evento, pois se for maskedbox tenho que alterar em muitos lugares.

Tem como?

estou tentando isso:

Private Sub TxtCpf_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case 8, 48 To 57 ' BackSpace e numericos

If Len(TxtCpf) = 3 Or Len(TxtCpf) = 7 Or Len(TxtCpf) = 11 Then

TxtCpf.text = TxtCpf.text & "."

SendKeys "{End}", True

End If

Case Else ' o resto é travado

KeyAscii = 0

End Select

End Sub

Até funciona mas fica tudo com (.) ponto 101.101.101.11

Flecha

[kuroi]

a eu li errado, entendi q era com masked box.

bom, aqui nesse tópico o macedo postou um codigo, mas não testei: http://scriptbrasil.com.br/forum/index.php?showtopic=103752

de qualquer forma, acho q esse seu primero codigo funcionaria se você antes desse um replace tirando os pontos e tracos.

[Flecha]

Como uso esse comando replace ? dá um exemplo.

Mesmo assim vou ver esse tópico do Macedo.

Obrigado

Flecha

[kuroi]

seria assim:

TxtCpf.Text = Replace(TxtCpf.Text, "-", "")
TxtCpf.Text = Replace(TxtCpf.Text, ".", "")[/code]

[Flecha]

Valeu !

O exemplo do Macedo funciona.

Obrigado