using Hasdata method this is doing what I want.
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim total as Currency
If Me![invoicesubsundriesrpt].[Report].HasData then
total = Me![invoicesubsundriesrpt].[Report]![totsuns]
End If
Me![txtTotal] =...