[Resolvido]Gravar InputMask na tabela

Bom Dia a Todos do Fórum

Venho Novamente solicitar ajuda aos amigos

Para resumir já pesquisei em todos os tópicos deste fórum (A não ser que passei despercebido por algum, mas acho difícil) e não encontrei algum que desse um resultado positivo ao assunto.
Uso este código abaixo para alterar a mascara de RG quando tem numerações diferente e ele esta no evento Private Sub Form_Current() do form, a mascara esta Ok no form mas não esta gravando na tabela.
EX: No form 11.111.111-0 Na tabela 111111110

Já passei por todos eventos do campo "Me.txtInscEst_RG" e não obtive resultado e também já fiz teste com números no lugar # e nada.

Nota: Na tabela esta como campo texto e sem mascara

Private Sub Form_Current()
             
Dim sCod As String
sCod = Len(Me.txtInscEst_RG)

Select Case sCod
Case Is = 7
Me.txtInscEst_RG.InputMask = "#\.###\.###;0;#"
Case Is = 8
Me.txtInscEst_RG.InputMask = "#\.###\.###\-#;0;#"
Case Is = 9
Me.txtInscEst_RG.InputMask = "##\.###\.###\-#;0;#"
Case Is = 10
Me.txtInscEst_RG.InputMask = "##\.###\.###\-##;0;#"
Case Is = 12
Me.txtInscEst_RG.InputMask = "###\.###\.###\.###;0;#"
End Select
                       
End Sub



O que pode estar errado?

Preciso de Ajuda

Aguardo

Amigão com ImputMask nao ira funcionar como pretende... Tera que usar o Format.

Remova seu Código atual, E coloque este, apenas no Evento AO SAIR do campo RG:

Código:


Private Sub txtInscEst_RG_Exit(Cancel As Integer)
If IsNull(Me.txtInscEst_RG) Or Me.txtInscEst_RG = "" Then Exit Sub

Select Case Len(Me.txtInscEst_RG)
Case 7
Me.txtInscEst_RG = Format(Me.txtInscEst_RG, "0\.000\.000")
Case Is = 8
Me.txtInscEst_RG = Format(Me.txtInscEst_RG, "0\.000\.000\-0")
Case Is = 9
Me.txtInscEst_RG = Format(Me.txtInscEst_RG, "00\.000\.000\-0")
Case Is = 10
Me.txtInscEst_RG = Format(Me.txtInscEst_RG, "00\.000\.000\-00")
Case Is = 12
MMe.txtInscEst_RG = Format(Me.txtInscEst_RG, "000\.000\.000\.000")
End Select

End Sub


Deverá se comportar como pretende...

Boa Noite Fabio
Obrigado pela ajuda..
Cara tenho quase que certeza que fiz teste com um código igual a este e não tinha dado certo e desisti do código também.
O seu não tinha dado certo e fiquei desanimado, isto porque estava fazendo teste com meu RG que tem uma Letra e também não formatava.
Pesquisando um pouco mais, acabei alterando o seu código para modo abaixo onde aceita números e letras e formata corretamente.

Te agradeço pela ajuda

Segue código alterado


If IsNull(Me.txtInscEst_RG) Or Me.txtInscEst_RG = "" Then Exit Sub

Select Case Len(Me.txtInscEst_RG)
Case 7
Me.txtInscEst_RG = Format(Me.txtInscEst_RG, "@\.@@@\.@@@")
Case Is = 8
Me.txtInscEst_RG = Format(Me.txtInscEst_RG, "@\.@@@\.@@@\-@")
Case Is = 9
Me.txtInscEst_RG = Format(Me.txtInscEst_RG, "@@\.@@@\.@@@\-@")
Case Is = 10
Me.txtInscEst_RG = Format(Me.txtInscEst_RG, "@@\.@@@\.@@@-@@")
Case Is = 12
Me.txtInscEst_RG = Format(Me.txtInscEst_RG, "@@@\.@@@\.@@@\.@@@")
End Select

End Sub


Abraços

A sim, sim... O Codigo que lhe passei funciona corretamente, Porem Apenas com Números! Caso seja Misto a solução é essa mesmo @...

Mas, RG Com Letra no Numero??? Eu Nunca vi o... Qual Estado é?

Boas...

Quando tirei 2º via veio com Números anterior acrescido de Digito X.
Pesquisei sobre Validação de RG e encontrei informações sobre RG que começa com letras como exemplo Minas gerais começa com MG, por este motivo que dificilmente se encontra códigos para validar RG, cada estado tem suas regras e não existe padrão único como CPF.
O meu é de São paulo

NOTA: Se por ventura você conhecer ou tiver algum código para validar RG me informe

Abraços