• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Validate items on a form

Validate items on a form

Validate items on a form

Rate Validate items on a form

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'****************************
'RUNS ALL FUNCTIONS
'By SmartAddins.com
'****************************
    Dim intRetVal As Integer
    
    'CALL VALIDATION FUNCTION
    intRetVal = FormInputs_Validate()
    If intRetVal <> -1 Then
        GoTo Exit_Command1_Click
    End If
    
Exit_Command1_Click:
    Exit Sub
    
End Sub
'****************************************************************


Function FormInputs_Validate()
'VALIDATE THE FORMS INPUTS

    Dim strMsgVal As String
    
    'CHECK THE FIRST NAME TEXT BOX
    If IsNull(txt_FirstName) Then
        strMsgVal = "Please enter value for First Name." & vbCrLf
    End If
    
    'CHECK THE LAST NAME TEXT BOX
    If IsNull(txt_LastName) Then
        strMsgVal = strMsgVal & ("Please enter value for Last Name." & vbCrLf)
    End If
    
    'CHECK THE ADDRESS TEXT BOX
    If IsNull(txt_Address) Then
        strMsgVal = strMsgVal & ("Please enter value for Address." & vbCrLf)
    End If
    
    'DISPLAY MESSAGE IF NEEDED
    If strMsgVal > "" Then
        MsgBox strMsgVal, vbExclamation
    Else
        FormInputs_Validate = -1
    End If
    
End Function