复选框关联筛选好的子窗体

xyh2732

请问如何可以，在主窗体勾选复选框，可使筛选好的窗体全选勾，比如我根据发票号查询00000001至00000009，我勾选主窗体的核销复选框，子窗体00000001至00000009核销复选框也全部都打钩（没筛选出来的关联）

kangking

Private Sub 核销_Click()
    Dim sql As String
   
    DoCmd.SetWarnings False
    If 核销 Then
        sql = "UPDATE 汇总资料 SET 汇总资料.核销 = True WHERE " & StrWhere
        DoCmd.RunSQL sql
        

    Else
        sql = "UPDATE 汇总资料 SET 汇总资料.核销 = False WHERE " & StrWhere
        DoCmd.RunSQL sql
    End If
    DoCmd.SetWarnings True
    Me.[发票总查询].Form.Refresh
End Sub

另将变量定义为模块级变量
    Dim StrWhere As String  '定义条件字符串