有一个主窗体 【frm订单信息】，在主窗体上有一个子窗体，子窗体的控件名称为 【sfr订单信息明细】，当订单窗体打开时，如果子窗体没有数据时，可以使用以下代码对子窗体进行隐藏不显示，代码存放于主窗体【frm订单信息】的 【成为当前】 事件过程中：

Private Sub Form_Current() 
 
    With Me![sfr订单信息明细].Form 
     
        ' 检查子窗体的记录数 
        If .RecordsetClone.RecordCount = 0 Then 
         
            ' 隐藏sfr订单信息明细子窗体 
            .Visible = False 
        End If 
    End With 
End Sub