设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 3611|回复: 10
打印 上一主题 下一主题

[窗体] [求助]如何用语句判断窗体上有没有窗体页眉窗体页脚

[复制链接]
跳转到指定楼层
1#
发表于 2006-4-15 08:00:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请教 谢谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-4-15 22:23:00 | 只看该作者
试试:

If Me.Section(acHeader).Height = 0 Then

MsgBox "窗体页眉不存在"
End If
If Me.Section(acFooter).Height = 0 Then

MsgBox "窗体页脚不存在"
End If
3#
 楼主| 发表于 2006-4-15 23:02:00 | 只看该作者
如果窗体中未有插入有窗体页眉窗体页脚时用Me.Section(acHeader).Height 会提示错误:输入节数无效,就是因为这个原因才判断窗体有没有插入窗体页眉窗体页脚。

好像用For Each...Next 语句可以历遍窗体上的控件并判断某控件是否存在,用这方法可以判断窗体上的节吗?应怎样写呢?

[此贴子已经被作者于2006-4-15 15:02:30编辑过]

4#
发表于 2006-4-15 23:36:00 | 只看该作者
你判断这个主要想实现什么样的功能,或者可以换别的方法解决
5#
 楼主| 发表于 2006-4-16 00:11:00 | 只看该作者
以下是引用andymark在2006-4-15 15:36:00的发言:
你判断这个主要想实现什么样的功能,或者可以换别的方法解决

用来计算窗体的高度,本来用 .WindowHeight  可以获得,如果窗体在子窗体出现时.WindowHeight  只能显未子窗体的高度,所以要用 .Section(acHeader).Height  + .Section(acDetail).Height + .Section(acFooter).Height  
6#
发表于 2006-4-16 00:57:00 | 只看该作者
窗体的高度用Me.InsideHeight,子窗体的高度Me.Child0.Height
7#
 楼主| 发表于 2006-4-16 01:31:00 | 只看该作者
以下是引用andymark在2006-4-15 16:57:00的发言:
窗体的高度用Me.InsideHeight,子窗体的高度Me.Child0.Height

可能你还是没理解我的意思,如果在a窗体的窗体打开事件上写上MsgBox Me.InsideHeight,如果直接打开a窗体时可以得到a窗体的高度,如果a窗体是在b窗体的子窗体出现时MsgBox Me.InsideHeight只能显然b窗体的子窗体的高度…而不是我想要的a窗体的高度

[此贴子已经被作者于2006-4-15 17:32:29编辑过]

8#
发表于 2006-4-16 04:24:00 | 只看该作者
以下是引用mrl在2006-4-15 17:31:00的发言:



可能你还是没理解我的意思,如果在a窗体的窗体打开事件上写上MsgBox Me.InsideHeight,如果直接打开a窗体时可以得到a窗体的高度,如果a窗体是在b窗体的子窗体出现时MsgBox Me.InsideHeight只能显然b窗体的子窗体的高度…而不是我想要的a窗体的高度

我真的给你说糊涂了,b是主窗体,a是b的子窗体,在B主窗体的事件上Me.InsideHeight,当然是b主窗体的高度

同样在B主窗体事件上写上Me.a.Height显示的是子窗体a的高度了
9#
 楼主| 发表于 2006-4-16 05:06:00 | 只看该作者
晕,给个例子你看,我目的是在b窗体上获得a窗体的高度


[此贴子已经被作者于2006-4-15 21:07:09编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
10#
发表于 2006-4-16 08:01:00 | 只看该作者
看看你要的是不是这样的结果


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-8 04:16 , Processed in 0.091767 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表