[Resolvido]Formatação de caixa de texto no form

Oi pessoal!

tenho uma caixa de texto em um form, alimentada por essa instrução:

Me.TxtRg.Value = idcolab.Column(4)

sendo que essa instrução é dada pelo evento , após atualizar, da caixa de combinação do mesmo form.

Se eu colocar a Máscara ###\.###\.### na propriedade da caixa de texto não formata como deveria, fica assim de: 22222222 para 222.222.22

Como posso proceder?
Obrigado.

Flecha, bom dia!
E como voce quer que fique?

att; Sidney

Sidney,

Formato para RG : xxx.xxx.xxx, xx.xxx.xxx e x.xxx.xxx conforme a quantidade. Não preciso de dígito final.

12.200.200 pode ser 2.200.200.

Obrigado.

Flecha

Coleque esta instruções, no evento apos atualizar no seu campos RG,

Código:


Dim intNDigitos As Integer

intNDigitos = Len(txt_RG)

If intNDigitos = 6 Then
    Me!txt_RG = Left(Me.txt_RG, 3) & "." & Right(Me.txt_RG, 3)

ElseIf intNDigitos = 7 Then
    Me!txt_RG = Left(Me.txt_RG, 1) & "." & Mid(Me.txt_RG, 3, 3) & "." & Right(Me.txt_RG, 3)

ElseIf intNDigitos = 8 Then
    Me!txt_RG = Left(Me.txt_RG, 2) & "." & Mid(Me.txt_RG, 3, 3) & "." & Right(Me.txt_RG, 3)

ElseIf intNDigitos = 9 Then
    Me!txt_RG = Left(Me.txt_RG, 3) & "." & Mid(Me.txt_RG, 3, 3) & "." & Right(Me.txt_RG, 3)

End If
End Sub

Nota: o campo tem que ser do tipo String.

att; Sindey

Sidney,
Não deu certo não.
É um campo que não tem tabulação, o cursor não passa por ele, é Nãoacoplado.

Agradeço a ajuda, essa instrução que vc me passou eu tenho para formatar Campo "fone"

vou colocar como resolvido, depois retorno.

Valeu!