效果图:
代 码:
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