Office中国论坛/Access中国论坛

标题: 如何检测子窗体中的"子窗体1"是否存在? [打印本页]

作者: 软件下载 时间: 2010-11-24 21:30
标题: 如何检测子窗体中的"子窗体1"是否存在?
数据库中有几个窗体,部分窗体中还有子窗体,且至少有一个名称为"子窗体1"

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

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

作者: todaynew 时间: 2010-11-24 21:48
本帖最后由 todaynew 于 2010-11-24 21:50 编辑

写个自定义函数即可：
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

作者: 软件下载 时间: 2010-11-25 18:18
谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)