效果图:

代   码:

Private Sub Command72_Click()
    Me.选项卡控件57.Pages(1).SetFocus  'Me.选项卡名称.Pages(页索引).SetFocus
    If Me.Child62.Form.RecordsetClone.recordcount < 2 Then
        MsgBox "子窗体记录小于2条，输出A条件"
        Exit Sub
    Else
        MsgBox "子窗体记录数大于等于2条，输出B条件"
    End If
End Sub