First create a function:
Function PersTimely(ByVal SFID As String, ByVal sDATE As String, ByVal eDate As String)
PersTimely = DCount("TRANSACTION", "MASTERDTL", "ET < " & 10 & " AND STATUS <> '" & "Reject' AND " & "TRANSACTION LIKE '" & SFID & "*' AND POSTDT BETWEEN #" & sDATE & "# AND #" &...