A SOLUTION TO PROBLEM
So the best solution I could contrive for an unbound text box when not placing the code in the Property Sheet Control Source is the first and second set of code below, which was actually easier than doing it the other way (i.e. Private Sub).
First I created a Module for the Public Function then added either code below (tested first code to mitigate troubleshooting variables, then changed it to the second set permanently). Then I added the function name into the Control Source of the unbound text box (=TotalCasesToDate).
Now in keeping with the entire reason why I did not just paste the first set of code into the unbound text box Control Source is the second set of code actually evaluates whether or not the date range filter fields are empty. I wanted to mitigate any potential errors arising later if nothing was available for dates, which means all records should be counted.
Forgive the "iSQL" I did not come up with a more creative name
Code:
Public Function TotalCasesToDate()
TotalCasesToDate = DCount("[CaseNum]", "tblCase", "([DateCreated] Between #" & [Forms]![frmViewStats]![txtBeginDateFilterCase] & "# And #" & [Forms]![frmViewStats]![txtEndDateFilterCase] & "#)")
End Function
Public Function TotalCasesToDate()
Dim iSQL As Long
If [Forms]![frmViewStats]![txtBeginDateFilterCase] & "" = "" Or [Forms]![frmViewStats]![txtEndDateFilterCase] & "" = "" Then
iSQL = DCount("[CaseNum]", "tblCase")
Else
iSQL = DCount("[CaseNum]", "tblCase", "([DateCreated] Between #" & [Forms]![frmViewStats]![txtBeginDateFilterCase] & "# And #" & [Forms]![frmViewStats]![txtEndDateFilterCase] & "#)")
End If
TotalCasesToDate = iSQL
End Function