So I have the following code that works pretty well when I use it with a regular subform; however, when I modified the code to try it with a navigation subform, it no longer works.
Any ideas?
Code:
Dim strFilter As String
'Cases for the filter. Limits to list.
Select Case Me.cboFilter
Case "Unavailable"
strFilter = "CheckoutDate IS NOT NULL"
Case "Available"
strFilter = "CheckoutDate IS NULL AND SerialNumber <> ''"
Case "No Filter"
strFilter = ""
Case Else
MsgBox "Invalid Filter"
strFilter = ""
End Select
'Apply filter
If strFilter <> "" Then
Me.NavigationSubform.Form.Filter = strFilter
Me.NavigationSubform.Form.Filter = True
Else
Me.NavigationSubform.Form.Filter = ""
Me.NavigationSubform.Form.Filter = False
End If