SHARE
TWEET

Untitled

a guest Jun 19th, 2019 65 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub Data_Validation()
  2. ' Check if all data has been entered on the userform
  3.  
  4.      If ARLArea = False And KNBArea = False And LSQArea = False And RSQArea = False And RevenueControlInspectors = False And SpecialRequirementTeam = False Then
  5.         MsgBox "Select Area!", vbInformation, ("Area")
  6.         ARLArea.SetFocus
  7.         Exit Sub
  8.         End If
  9.      If EmployeeNo1 = "" Then
  10.         MsgBox "Enter Employee Number!", vbInformation, ("Employee Number")
  11.         EmployeeNo1.SetFocus
  12.         Exit Sub
  13.         End If
  14.      If FirstName1 = "" Then
  15.         MsgBox "Enter First Name!", vbInformation, ("First Name")
  16.         FirstName1.SetFocus
  17.         Exit Sub
  18.         End If
  19.      If LastName1 = "" Then
  20.         MsgBox "Enter Last Name!", vbInformation, ("Last Name")
  21.         LastName1.SetFocus
  22.         Exit Sub
  23.         End If
  24.      If CSA2 = False And CSA1 = False And CSS2 = False And CSS1 = False And CSM2 = False And CSM1 = False And AM = False And RCI = False And SRT = False Then
  25.         MsgBox "Select Grade!", vbInformation, ("Grade")
  26.         CSA2.SetFocus
  27.         Exit Sub
  28.         End If
  29.  
  30.         BlnVal = 1
  31.  
  32. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top