MASK COM DATA

CRCJ 10/05/2013 09:55:01
#423243

F001E
Ok modifiquei o modulo e funcionou direitinho, não aceita letras

Module ValidaTextBox
Function SoLETRAS(ByVal KeyAscii As Integer) As Integer
[ô]Transformar letras minusculas em Maiúsculas
KeyAscii = Asc(UCase(Chr(KeyAscii)))
[ô] Intercepta um código ASCII recebido e admite somente letras
If InStr([Ô]AÃÁBCÇDEéÊFGHIÍJKLMNOPQRSTUÚVWXYZ[Ô], Chr(KeyAscii)) = 0 Then
SoLETRAS = 0
Else
SoLETRAS = KeyAscii
End If

[ô] teclas adicionais permitidas
If KeyAscii = 8 Then SoLETRAS = KeyAscii [ô] Backspace
If KeyAscii = 13 Then SoLETRAS = KeyAscii [ô] Enter
If KeyAscii = 32 Then SoLETRAS = KeyAscii [ô] Espace
End Function

Function SoNumeros(ByVal Keyascii As Short) As Short
If InStr([Ô]1234567890.,[Ô], Chr(Keyascii)) = 0 Then
SoNumeros = 0
Else
SoNumeros = Keyascii
End If

Select Case Keyascii
Case 8
SoNumeros = Keyascii
Case 13
SoNumeros = Keyascii
Case 32
SoNumeros = Keyascii
End Select
End Function
End Module