none
Mascara TexBox RRS feed

  • Pergunta

  • 1- Excel 2003 2 - Montei um formulario de cadastro com n campos um dele é o RG. Copie de algum lugar a mascara do do CPF e modifiquei para 99.999.999-9 só que alguns RGs terminan em X e quando digito X a mascara não aceita o que devo modificar?

    Private Sub Txt_Cad_RG_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'AQUI É O TEXTBOX, NO CASO CHAMA-SE Txt_Cad_RG;
        Txt_Cad_RG.MaxLength = 12
        Select Case KeyAscii
        Case 8, 48 To 57
        If Len(Txt_Cad_RG) = 2 Or Len(Txt_Cad_RG) = 6 Then
        Txt_Cad_RG.Text = Txt_Cad_RG.Text & "."
        SendKeys "{End}", True
        ElseIf Len(Txt_Cad_RG) = 10 Then
        Txt_Cad_RG.Text = Txt_Cad_RG & "-"
        SendKeys "{End}", True
        End If
        Case Else
        KeyAscii = 0
        End Select
    End Sub

    Agradeço antecipadamenbte

    Carlos

    quinta-feira, 13 de maio de 2010 13:28

Respostas