新增一个窗体“窗体1”,添加一个名称为“分期”的窗本作为子窗体,其属性SourceObject与Name均为"分期"。
更改子窗体”分期“的Name="分期1",在VB编辑器中,窗体”分期“的模块中输入以下代码:
WITH FORMS("窗体1")
MSGBOX .FORM("分期1”).NAME '显示:分期1
MSGBOX .FORM("分期1").FORM.NAME '显示:分期
END WITH
子窗体与子窗体源对象是两个概念
你可以试试
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is SubForm Then
MsgBox ctl.Name & " " & ctl.SourceObject
End If
Next