Restrições no TextBox

[Mikel Silveira Fraga]

Bom dia a todos.

Mais uma vez venho solicitar ajuda ao pessoal do fórum. Estou desenvolvendo alguns formulários de cadastro, onde envolve datas.

Em pesquisas feitas até o momento, consegui identificar situações em que consigo restringir um TextBox para aceitar apenas letras Maiusculas/Minúsculas e somente Números.

O problema é a formatação da data (00/00/0000) que possui as "/" quando é informada.

Segue abaixo o código usando para restringir apenas o números:

Código: Selecionar todos

Sub TextBox1_Change()

if isnumeric(TextBox1) = False Then

TextBox1.Value = ""

End If

End Sub

Gostaria também de alterar o comando TextBox1.Value = "". Por exemplo, quando uma letra é digitada, no lugar de ficar vazio, fosse ativado o Command BackSpace.

Galera, aguardo respostas e mais uma vez, vlw.

[Mauro Coutinho]

Veja se é isto :

Código: Selecionar todos

Private Sub txtData_Change()
'Formata Data automática ao digitar
If Len(txtData) = 2 Or Len(txtData) = 5 Then
        txtData.Text = txtData.Text & "/"
        SendKeys "{End}", True
    End If
    
End Sub

Acerte o nome do seu TextBox, depois va em propriedade do TextBox na Janela do VBE e altere a Propriedade MaxLength para 10.

[]s

[Mikel Silveira Fraga]

Valeu Mauro, mais uma vez me salvando dos apuros.

Obrigado mais uma vez. Abraços.