如何检测子窗体中的"子窗体1"是否存在?

软件下载

数据库中有几个窗体,部分窗体中还有子窗体,且至少有一个名称为"子窗体1"

我希望打开一个窗体后,如果窗体中有"子窗体1",则设置该"子窗体1"的数据源,如果没有则设置主窗体的数据源,我想只用一句代码实现,请问怎么写?

我现在用的是笨办法,即把所有有子窗体的窗体中该子窗体tab键设为0,然后在主窗体加载代码中写入 if me.窗体.forms(0).name="子窗体1" then...(大概是这意思)

todaynew

写个自定义函数即可：
Function B(frm As Form) As Boolean
Dim ctls As Controls
Dim ctl As Control
Set ctls = Me.Controls
B = False
For Each ctl In ctls
    If clt.ControlType = acSubform Then
        B = True
        Exit Function
    End If
Next ctl
End Function

调用时：
if B(me.form)=true then
    msgbox "存在子窗体！"
end if

软件下载

谢谢