Fill Fields Before Reports (1 Viewer)

function CheckData(ctl as control) as boolean
  
  if len(me.AFRNumber & "")<1 then
     set ctl = me.AFRNumber
     goto MissingData
  endif

  if len(me.ReceivedDate & "")<1 then
     set ctl = me.ReceivedDate
     goto CheckData_Exit
  endif

  <add similar code for all other required fields>

  CheckData= true
  exit function

MissingData:
   CheckData = false

end function

Private Sub PreviewTearDown_Click()
  dim ctl as control
  
  if checkData(ctl) = false then
     msgbox "Please add data for " & ctl.name, 64,"Missing Data"
     me.ctl.setfocus
     exit sub
   endif

Private Sub PreviewTearDown_Click()
    If Me.Dirty Then Me.Dirty = False
    Dim strDocName As String
    Dim strWhere As String
    strDocName = "Tear Down"
    strWhere = "AFRsID=" & Me!AFRsID
    DoCmd.OpenReport strDocName, acPreview, , strWhere
End Sub

Private Sub PrintTearDown_Click()
    If Me.Dirty Then Me.Dirty = False
    Dim strDocName As String
    Dim strWhere As String
    strDocName = "Tear Down"
    strWhere = "AFRsID=" & Me!AFRsID
    DoCmd.OpenReport strDocName, acPrint, , strWhere
End Sub

Private Sub PreviewTearDown_Click()
   [COLOR=red]dim ctl as control
  
   if checkData(ctl) = false then
       msgbox "Please add data for " & ctl.name, 64,"Missing Data"
       me.ctl.setfocus
       exit sub
   endif[/COLOR]

    If Me.Dirty Then Me.Dirty = False
    Dim strDocName As String
    Dim strWhere As String
    strDocName = "Tear Down"
    strWhere = "AFRsID=" & Me!AFRsID
    DoCmd.OpenReport strDocName, acPrint, , strWhere
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

    On Error GoTo Form_BeforeUpdate_Error
Dim ctl As Control
Dim CName As String
For Each ctl In Me.Controls
  If ctl.Tag = "Reqd" Then
     If Nz(ctl, "") = "" Then
       CName = ctl.Controls(0).Caption
       MsgBox "Following field is required: " & vbCrLf & vbCrLf & CName
       Cancel = True
       ctl.SetFocus
       Exit Sub
     End If
   End If
Next ctl

    
    On Error GoTo 0
    Exit Sub

Form_BeforeUpdate_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_BeforeUpdate, line " & Erl & "."

End Sub

Private Sub PreviewTearDown_Click()
    If Me.Dirty Then Me.Dirty = False
    If IsNull(Me![AFRNumber]) Then
 
       ' Alert the user.
       MsgBox "You must enter an AFR Number."
 
      ' Cancel the update.
      Cancel = True
      Me.AFRNumber.SetFocus
    End If
    
       
    Dim strDocName As String
    Dim strWhere As String
    strDocName = "Tear Down"
    strWhere = "AFRsID=" & Me!AFRsID
    DoCmd.OpenReport strDocName, acPreview, , strWhere
End Sub