[5分]如何让主窗体上的所有子窗体刷新？

我设计的数据库中，一个主控窗体上有三个子窗体，它们都是按照日期筛选的数据，与主窗体无主子关系。我想写一段代码让子窗体在主窗体刷新时也一同刷新。代码如下：

Public Sub FormRefresh(strForm As String, lngID As Long)
'刷新窗体
    Dim MyControl As Control
   
    If IsLoaded(strForm) Then
        Forms(strForm).Filter = "cliid=" & lngID
        Forms(strForm).FilterOn = True
        For Each MyControl In Forms(strForm).Controls
            If MyControl.ControlType = acSubform Then
                Forms(strForm).MyControl.Requery
            End If
        Next
    End If
End Sub

问题是主窗体刷新后子窗体无反应。求各位老师们指点。