主子窗体中当子窗体无数据时隐藏子窗体

时　间:2019-11-25 13:25:44
作　者:张志   ID：8  城市：上海  QQ：2851379730
摘　要:当子窗体无记录时用VBA代码进行隐藏。
正　文:

有一个主窗体 【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