Olá, pessoal.
Tô de volta, tive alguns problemas aqui com meu micro, mas agora está tudo "funfando".
Tekki:
Ainda estou com o problema da filtragem, eu fiz algumas pequenas alterações no seu código:
-- KeyPress
If Chr(KeyAscii) = ";" Then
If Len(txtCondicoesDePagamentos.Text) = 0 Then
KeyAscii = 0
ElseIf Right(txtCondicoesDePagamentos.Text, 1) = ";" Or Right(txtCondicoesDePagamentos.Text, 1) = "-" Then
KeyAscii = 0
End If
End If
If Chr(KeyAscii) = "-" Then
If Len(txtCondicoesDePagamentos.Text) = 0 Then
KeyAscii = 0
ElseIf Right(txtCondicoesDePagamentos.Text, 1) = "-" Or Right(txtCondicoesDePagamentos.Text, 1) = ";" Then
KeyAscii = 0
End If
End If
If Not IsNumeric(Chr(KeyAscii)) Then
If KeyAscii <> 13 And KeyAscii <> 45 And KeyAscii <> 8 And KeyAscii <> 59 Then
KeyAscii = 0
End If
End If
Ainda o usuário pode digitar, valores como:
3---5
5;;7
3-5-7-10;
[]'s,
Marcelo Tamanini
