'111111111111111111111111
Public Sub KeyPress(KeyAscii As Integer)
'On Error Resume Next
'To move to the next control
'Input as keyascii
'returns cursor to the next control
If KeyAscii = vbKeyReturn Then
SendKeys ("{TAB}")
End If
End Sub

'2222222222222222222222222
Public Function caps(s1 As String) As String
' assigns the uppercase to controls
' eg:
' ctrl.text = caps(ctrl.text)
' ctrl.selstart = len(ctrl.text)
caps = UCase(s1)
End Function
'33333333333333333333333333
Public Sub novalidation(KeyAscii As Integer)
' this is for numeric validation
' to enter the numbers only
If Not (KeyAscii > 47 And KeyAscii < 59) Then
If Not KeyAscii = vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub
'444444444444444444444444444
Public Sub datevalidation(KeyAscii As Integer)
' this is for date validation
' to allow numbers , "-","/"
If Not (KeyAscii > 47 And KeyAscii < 59) Then
If KeyAscii = 45 Or KeyAscii = 47 Then
Exit Sub
End If
If Not KeyAscii = vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub
'555555555555555555555555
Public Sub alphabets(KeyAscii As Integer)
' this is for Alphabet validation
If Not (KeyAscii > 96 And KeyAscii < 123) Then
If Not (KeyAscii > 64 And KeyAscii < 91) Then
If Not KeyAscii = Asc(" ") Then
If Not KeyAscii = vbKeyBack Then
KeyAscii = 0
End If
End If
End If
End If
End Sub
'666666666666666666666666666
Public Sub numbersonly(KeyAscii As Integer)
If Not (KeyAscii > 47 And KeyAscii < 58) Then
'If Not KeyAscii = Asc(" ") Then
If Not KeyAscii = vbKeyBack Then
KeyAscii = 0
End If
'End If
End If
End Sub



'*************************************
Any Doubts contact me:
balakrishnan76@usa.net
'*************************************