Sub FrmHasChildForm()
Dim ctrl As Control
Dim frm As Object
Dim flag As Boolean
For Each frm In CurrentProject.AllForms
flag = False
DoCmd.OpenForm frm.Name, acNormal, , , , acHidden
For Each ctrl In Forms(frm.Name).Controls
If ctrl.ControlType = 112 Then
flag = True
Debug.Print frm.Name, ctrl.Name
Exit For
End If
Next
MsgBox IIf(flag = True, frm.Name & "包含子窗体", frm.Name & "不包含子窗体")
DoCmd.Close acForm, frm.Name
Next
End Sub
Access软件网交流QQ群(群号:198465573) |