Hi Everyone need a new trick I have been checking fields one at a time and stopping print if a filed is missing.  Well someone asked if I could validate all the fields so they can fix the errors and not have to hit print several times.  My thought is you may miss one field not 3 or 4...

Private Function RdyToSend() As Boolean
      If IsNull([Preparer]) Then
         MsgBox "Preparer name missing, Must Have Prior to Printing"
         RdyToSend = False
           Exit Function
      ElseIf IsNull([Phone]) Then
         MsgBox "Phone Number is missing, Must Have Prior to Printing"
         RdyToSend = False
           Exit Function
      ElseIf IsNull([Email]) Then
        MsgBox "Email missing, Must Have Prior to Printing"
        RdyToSend = False
          Exit Function
      ElseIf IsNull([Code]) Then
        MsgBox "Code missing, Must Have Prior to Printing"
        RdyToSend = False
          Exit Function
      ElseIf IsNull([DatebyPreparer]) Then
        MsgBox "Date missing, Must Have Prior to Printing"
        RdyToSend = False
          Exit Function
      End If
      
      ' If all checks are good then rdytosend is True
      RdyToSend = True
      
End Function

I have done this for a very long time and cant think of a way around it does anyone have a trick up the sleeve?
V/r
Juan