Combine 2 Subs in one event

[ChrisCione]

How do I combine these two subs into one (On Format event of a report's detail section)?

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Nz(Me.txtReferralIssuedDate) = 0 Then
    Me.txtUSAJobsCloseDate.Visible = True
    Me.lblREFERRALISSUED.Visible = False

Else
    Me.txtUSAJobsCloseDate.Visible = False
    Me.lblREFERRALISSUED.Visible = True

End If
End Sub

and

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Nz(Me.txtReferralReturnedDate) = 0 Then
    Me.txtReferralDueDate.Visible = True
    Me.lblRETURNED.Visible = False
    
Else
    Me.txtReferralDueDate.Visible = False
    Me.lblRETURNED.Visible = True
 
End If
End Sub

Many thanks in advance.

 

[Joe4]

Just drop the body of one into the other, i.e.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

'1st block
If Nz(Me.txtReferralIssuedDate) = 0 Then
    Me.txtUSAJobsCloseDate.Visible = True
    Me.lblREFERRALISSUED.Visible = False
Else
    Me.txtUSAJobsCloseDate.Visible = False
    Me.lblREFERRALISSUED.Visible = True
End If

'2nd block
If Nz(Me.txtReferralReturnedDate) = 0 Then
    Me.txtReferralDueDate.Visible = True
    Me.lblRETURNED.Visible = False
Else
    Me.txtReferralDueDate.Visible = False
    Me.lblRETURNED.Visible = True
End If

End Sub

 

[ChrisCione]

Thank you.

 

[Joe4]

You are welcome.