• Home
 · 
• OLE/COM/DCOM/Active-X
 · 
• CODING FOR CHECKING VALID MONTH AND DATE INPUTED BY THE USER

CODING FOR CHECKING VALID MONTH AND DATE INPUTED BY THE USER

CODING FOR CHECKING VALID MONTH AND DATE INPUTED BY THE USER

Rate CODING FOR CHECKING VALID MONTH AND DATE INPUTED BY THE USER

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

===========================================

1. FIRST CLICK ON FILE THEN SELECT NEW -ACTIVEX CONTROL
   CHANGE THE NAME(BY SELECTING PROPERTY)TO DATE
   CHANGE THE NAME OF THE PROJECT TO DATE

2. THEN CLICK ON PROJECT-COMPONENTS -SELECT 
   MICROSOFT MASKEDIT CONTROL 6.0

3. INSERT THE ABOVE CONTROL WHICH IS DISPLAY IN THE 
   TOOLBOX AUTOMATICALLY ON YOUR FORM.

4. CHANGE THE MASK PROPERTY OF MASKEDITBOX1 TO ##-##-####

5. THEN REDUCE THE SIZE OF ACTIVEX FORM AS PER THE SIZE 
   OF MASKEDITBOX.

6. THEN GO TO THE CODE WINDOW . SELECT LOST_FOCUS EVENT OF 
   MASKEDITBOX CONTROL

7. WRITE THE FOLLOWING  CODING ON LOST FOCUS OF    MASKEDBOX1 CONTROL


Private Sub MaskEdBox1_LostFocus()
TP = MaskEdBox1.Text
If Mid(TP, 1, 2) <= 0 Or Mid(TP, 1, 2) > 12 Then
    MsgBox "ENTER YEAR BETWEEN 1 TO 12"
    End If
If Mid(TP, 1, 2) = 1 Or Mid(TP, 1, 2) = 3 Or Mid(TP, 1, 2) = 5 Or Mid(TP, 1, 2) = 7 Or Mid(TP, 1, 2) = 8 Or Mid(TP, 1, 2) = 10 Or Mid(TP, 1, 2) = 12 Then
    If Mid(TP, 4, 2) <= 0 Or Mid(TP, 4, 2) > 31 Then
    MsgBox "ENTER DAYS BETWEEN 1 TO 31"
    End If
Else
If Mid(TP, 1, 2) = 4 Or Mid(TP, 1, 2) = 6 Or Mid(TP, 1, 2) = 9 Or Mid(TP, 1, 2) = 11 Then
    If Mid(TP, 4, 2) <= 0 Or Mid(TP, 4, 2) > 30 Then
    MsgBox "ENTER DAYS BETWEEN 1 TO 3O"
    End If
Else
If Mid(TP, 1, 2) = 2 Then
    If Mid(TP, 4, 2) <= 0 Or Mid(TP, 4, 2) > 28 Then
        MsgBox "ENTER DAYS BETWEEN 1 TO 28"
        End If
        End If
    End If
    End If
END SUB


8. SAVE THE PROJECT AS DATE.VBP 

9. SAVE THE FILE AS DATE.FRM

10. THEN CLICK ON FILE -SELECT MAKE DATE.OCX SUBMENU

11. SAVE THE FILE IN SYSTEM32 FOLDER OR SYSTEM FOLDER AS DATE. BECAUSE ALL THE OCX FILES OF VB ARE STORED IN SYSTEM32 
    IT IS NT AND SYSTEM IF IT IS WIN95 OR WIN98

12. THEN CLOSE THE ENTIRE PROJECT

13. SELECT THE ENTIRE NEW PROJECT(STANDARD EXE)

14. GO TO PROJECT-COMPONENTS -SELECT DATE

15. INSERT IT OF YOUR FORM , INSERT ONE COMMAND BUTTON AND THEN RUN THE FORM