by Balakrishnan (1 Submission)
Category: String Manipulation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Tue 7th November 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
The complete validation for your project including date
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:
[email protected]
'*************************************