• Home
 · 
• String Manipulation
 · 
• The complete validation for your project including date

The complete validation for your project including date

The complete validation for your project including date

Rate The complete validation for your project including date

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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]
'*************************************