[Resolvido]Formatação de campo no form

ola,

Não consegui deixar a formatação do campo RG no form frmrequisicao!

Assim: 1.111.111
          11.111.111
Podem me ajudar?

Exemplo anexo.

Boa tarde...temos vários exemplos no repositório, basta procurar.

No eventos " Após Atualizar " do campo RG e também no " Atual " do referido formulário !


If Len(RG) <> "" Then
Select Case Len(RG)
Case 8
Me.RG.Format = "@@-@@@-@@@"
Case 7
Me.RG.Format = "@-@@@-@@@"
Case Else
MsgBox ("Número Inválido!"), vbInformation + vbOKOnly, "ATENÇÃO"
Me.RG.SetFocus
End Select
End If

Não funcionou nem no form nem no campo txtRg.


Como o campo txtRG é alimentado por essa linha

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


em

Private Sub idcolab_AfterUpdate()

Me.nomecargo.Value = idcolab.Column(2)
Me.exercico.Value = idcolab.Column(3)
Me.TxtRg.Value = idcolab.Column(4)

inclui aqui e deu certo!

End Sub



Obrigado

inclui

Então né......quanto mais informações...melhor para ajudarmos.

Ainda bem que resolveu.

O fórum agradece o retorno.