This rev will restrict the active checkbox to only affect the members subform.
Code:
Option Compare Database
Option Explicit
Private Sub Form_Load()
'Call Is_Active_AfterUpdate
End Sub
Private Sub Is_Active_AfterUpdate()
' By Davegri on Access Forum
Dim ssql As String
Select Case Is_Active
Case True
ssql = "select * from members where Active = true"
Case False
ssql = "Select * from Members"
End Select
Call fcnMakeNamedQryFromSQLString(ssql, "qry_MembersSelected")
'below will set the recordsource for only the members subform as the checkbox is clicked!
If Me.NavigationControl0.SelectedTab.Name = "NavigationButton14" Then
Me.NavigationSubform.Requery
End If
DoEvents
Select Case Me.NavigationControl0.SelectedTab.Name
Case "nbMembers"
Me.NavigationSubform.Form.RecordSource = "qry_MembersSelected"
Case Else
Forms![Manage SCATeam].NavigationSubform.Form.Refresh
End Select
End Sub