How do I format the following to work properly?
Thanks
Dan
Code:
Private Sub btnFilterOutstanding_Click()
Dim stFilter As String
If "#Tables![tblMilitaryLeave]![DatePaid] ISNull#" Then
stFilter = "Tables[tblMilitaryLeave]![DatePaid]"
End If
'Set the Filter property
Reports!rptMilitaryLeave.Filter = stFilter
Reports!rptMilitaryLeave.FilterOn = True
End Sub
Dan
Comment